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

原文转自：http://www.ltesting.net