私有函數getIP()
暗淡條紋
如有要求。server variables(" HTTP _ X _ FORWARDED _ FOR ")= " "或InStr(Request。server variables(" HTTP _ X _ FORWARDED _ FOR ")，" unknown ")& gt；那麽0
strIPAddr =請求。服務器變量("遠程_ADDR ")
ElseIf InStr(請求。server variables(" HTTP _ X _ FORWARDED _ FOR ")，"，" & gt那麽0
strIPAddr = Mid(請求。server variables(" HTTP _ X _ FORWARDED _ FOR ")，1，InStr(Request。server variables(" HTTP _ X _ FORWARDED _ FOR ")，"，"-1)
ElseIf InStr(請求。server variables(" HTTP _ X _ FORWARDED _ FOR ")，"；")& gt那麽0
strIPAddr = Mid(請求。server variables(" HTTP _ X _ FORWARDED _ FOR ")，1，InStr(Request。server variables(" HTTP _ X _ FORWARDED _ FOR ")，"；")-1)
其他
strIPAddr =請求。服務器變量(" HTTP_X_FORWARDED_FOR ")
如果…就會結束
getIP = Trim(Mid(strIPAddr，1，30))
結束功能
Response.write“妳的IP是:“&；getIP()
% & gt