当前位置:清晨 » 网站建设 » Asp获取真实IP地址如何实现

Asp获取真实IP地址如何实现

发布日期:2012年9月18日 09:09:00 点击量: 1,440

WDJA网站内容管理系统,免费开源可商用 点我获取,简单好用的PHP版CMS

Asp获取真实IP地址:

最简单的用以下语句:

ip=request.ServerVariables("REMOTE_ADDR")
response.Write(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
ip=getIP()
response.write(ip)
%>

response.write(ip) 这句就可以直接打印出IP地址。

推荐电脑手机软件资源站 点我进入,原烈火汉化作者运营


关键词:

本文网址:https://www.menglei.net/278/,转载请以链接形式注明出处,谢谢合作!

老薛主机专属优惠码: PT ,有需要购买的同学可以使用.可享受30%的优惠.

联系站长: shadoweb@qq.com QQ: 925474725