write users 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")
%>