<%dim IPinfo,FileNameIPinfo = Request.servervariables("REMOTE_ADDR")'获得访问者IPFileName="IPinfo.txt" '声明纪录IP的文件,手工在同级目录下添加 '保存IP信息在IPinfo.txt文件中call SaveTextFile(FileName, IPinfo) '保存 '写文件Sub SaveTextFile(strFile, strFileInnew) Dim objFSO, objOutStream, strTestFile strTestFile = Server.Mappath(strFile) Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objOutStream = objFSO.OpenTextFile(strTestFile,8,True,False) objOutStream.WriteLine(strFileInnew) objOutStream.Close Set objOutStream = Nothing Set objFSO = NothingEnd Sub%>
<![CDATA[<body>
</body>]]>