write user's ip

  <%
  ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
   If ip = "" Then ip = Request.ServerVariables("REMOTE_ADDR")
   'ip= Request.ServerVariables("REMOTE_ADDR")
   'response.Write(ip)
   %>
  

<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(Server.MapPath("ip.txt"),8,true) '参数 2,写入 ; 8 ,追加
f.WriteLine(ip&" 访问时间："&now())
f.close
set f = nothing
set fso = nothing
'response.write("test")
%>