当前位置: 首页 > 图文教程 > 网络编程 > ASP > 用通ASP直接获取用户真实IP地址

ASP
Asp Object 之:End
Asp Object 之:ServerVariables
Asp Object 之:Expires
Asp Object 之:ExpiresAbsolute
Asp Object 之:Flush
Asp Object 之:Form
Asp Object 之:IsClientConnected
Asp Object 之:PICS
Asp Object 之:QueryString
Asp Object 之:Redirect
Asp Object 之:Request.Cookies
Asp Object 之:Request
Asp Object 之:Response.Cookies
Asp Object 之:Response
Asp Object 之:Status
Asp Object 之:TotalBytes
Asp Object 之:Write
用ASP.Net编写留言本
如何把ASP编写成DLL(1)
如何把ASP编写成DLL(2)

No. « 119 120 121 122 »

技术文章搜索

关键字

用通ASP直接获取用户真实IP地址

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 89 ::
收藏到网摘: n/a

 

通用FUNCTION，如果不能取真实IP，就会取代理IP

Private 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)
    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)
    Else
        strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
    End If
    getIP = Trim(Mid(strIPAddr, 1, 30))
End Function