class="area"> asp中实现记录网站访问者IP地址代码
if Request.Cookies("visited")<>"True" then ’判断是否为初次访问
ipFileAddr=Server.mapPath("visited.txt") ’定位记录IP文本文件
getIP=Request.ServerVariables("remote_addr") ’取客户端IP地址
set ipFS=Server.createObject("Scripting.FileSystemObject") ’建立FSO对象
set ipFile=ipFS.openTextFile(ipFileAddr,8) ’以添加方式打开文本文件
ipFile.write(getIP&"　") ’写入IP地址
ipFile.writeLine(now()) ’写入记录时间
ipFile.close ’关闭FSO对象
Response.Cookies("visited")="True" ’设置客户端已访问状态为True
end if