ASP手機頁面源代碼

私有函數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