ASP获取ip地址

来源：百度知道 编辑：UC知道 时间：2024/09/24 12:30:40
对这个问题不一点都不明白,所有请各位给出的代码是经过验证的.悬赏可追加.

function getipadd()
ipadd=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
if ipadd= "" Then ipadd=Request.ServerVariables("REMOTE_ADDR")
getipadd=ipadd
end function

使用：
response.write getipadd

这个可以超过代理IP,取得真实地址!
<% Function GetUserTrueIP()
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)
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then