超凡魔术师50人都是托:如何用asp得到公网的ip地址?

来源:百度文库 编辑:高校问答 时间:2024/05/08 12:47:59
我用request.servervariables("http_x_forwarded_for")或request.servervariables("remote_addr")都不能正确获得公网的ip地址。
有没有别的方法呀

Function getIP()
Dim strIPAddr
If Request.ServerVariables(\"HTTP_X_FORWARDED_FOR\") = \"\" OR InStr(Request.ServerVariables(\"HTTP_X_FORWARDED_FOR\"), \"unknown\") > 0 Then
strIPAddr = Request.ServerVariables(\"REMOTE_ADDR\")
ElseIf InStr(Request.ServerVariables(\"HTTP_X_FORWARDED_FOR\"), \",\") > 0 Then
strIPAddr = Mid(Request.ServerVariables(\"HTTP_X_FORWARDED_FOR\"), 1, InStr(Request.ServerVariables(\"HTTP_X_FORWARDED_FOR\"), \",\")-1)
actforip=Request.ServerVariables(\"REMOTE_ADDR\")
ElseIf InStr(Request.ServerVariables(\"HTTP_X_FORWARDED_FOR\"), \";\") > 0 Then
strIPAddr = Mid(Request.ServerVariables(\"HTTP_X_FORWARDED_FOR\"), 1, InStr(Request.ServerVariables(\"HTTP_X_FORWARDED_FOR\"), \";\")-1)
actforip=Request.ServerVariables(\"REMOTE_ADDR\")
Else
strIPAddr = Request.ServerVariables(\"HTTP_X_FORWARDED_FOR\")
actforip=Request.ServerVariables(\"REMOTE_ADDR\")
End If
getIP = Trim(Mid(strIPAddr, 1, 30))
End Function