<%
dim filesys, filetxt
Const ForWriting = 2, ForAppending = 8
Set filesys = CreateObject("Scripting.FileSystemObject")
Set filetxt = filesys.OpenTextFile(Server.MapPath("./logip.htm"), ForAppending, True)
if (Request.ServerVariables("REMOTE_ADDR")<>"210.107.140.171") then
filetxt.WriteLine("