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

|