当前位置：主页 > 查看内容

asp下比较全面的获取IP地址的代码

发布时间：2021-07-28 00:00| 有 位朋友查看

简介：最简单的用以下语句: ip=request.ServerVariables("REMOTE_ADDR") response.Write(ip) 但这种方法对代理服务器上网的就不准了,故比较全面的是用下面的方法: 复制代码 代码如下: %PrivateFunctiongetIP() DimstrIPAddr IfRequest.ServerVariables("HTTP_X_FOR……
最简单的用以下语句:

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) 
%>

原文链接：https://m.jb51.net/article/11145.htm
本站部分内容转载于网络，版权归原作者所有，转载之目的在于传播更多优秀技术内容，如有侵权请联系QQ/微信：153890879删除，谢谢！
上一篇：ASP实现缓存类无错版 下一篇：没有了

推荐图文

  • 周排行
  • 月排行
  • 总排行

随机推荐