ASP获取公网IP地址,ASP获取外网IP

  • 文章来源:LG工作室
  • 发布时间:2018-02-26 03:41:51
  • 责任编辑:lg2lg5
导读:'***函数名:GetIP'***函数说明:获取IP地址'***参数:Null'***返回值:获取的公网IP地址PublicFunctionGetIP()Dim。
'***函数名  : GetIP
'***函数说明: 获取IP地址
'***参数    : Null
'***返回值  : 获取的公网IP地址
Public Function GetIP()
    Dim sIPAddr
    sIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
    If sIPAddr = "" OR InStr(LCase(sIPAddr), "unknown") > 0 Then
        sIPAddr = Request.ServerVariables("REMOTE_ADDR")
    ElseIf InStr(sIPAddr, ",") > 0 Then
        sIPAddr = Mid(sIPAddr, 1, InStr(sIPAddr, ",")-1)
    ElseIf InStr(sIPAddr, ";") > 0 Then
        sIPAddr = Mid(sIPAddr, 1, InStr(sIPAddr, ";")-1)
    Else
        sIPAddr = sIPAddr
    End If
    GetIP = Trim(Mid(sIPAddr, 1, 30))
End Function
建站套餐
联系我们
客户案例