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

文章来源于领测软件测试网 https://www.ltesting.net/