以下为程序代码及注释。 [Code]: 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