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")

%>