asp記錄網站訪問者IP地址

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