asp下比较全面的获取IP地址的代码
更新时间：2007年08月27日 22:47:03 作者：
最简单的用以下语句:
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)
%>
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)
%>
相关文章
现在黑客经常测试网站，一些网站经常被各种注入，为程序员的成长提供了比较紧迫的环境，所以大家在写程序的时候一定要注意网站安全问题2006-10-10
VBScript ASP CDbl() 函数转换为双精度类型
CDbl 函数用于进行从其他数据类型到 Double 子类型的国际公认的格式转换。例如，十进制分隔符和千位分隔符的识别取决于系统的区域设置。2011-05-05
很多时候，我们需要用到定时生成html页面的功能，原理简介：利用文件如index.html的最后修改时间和当前的时间做比较，当时间差超过一定间隔如2小时，则调用相关页面进行生成新页面。原始源代码如下2021-07-07
Asp函数返回引用类型代码，需要的朋友可以参考下。2010-03-03
asp重定向页面的方法总结...2007-08-08
GetBody asp实现截取字符串的代码...2007-09-09
asp #include命令...2007-09-09
asp之字符串函数示例...2007-09-09
最近公司开放网站需要用到根据用户添加的出生日期得到生肖发现了这个函数。使用起来不错2008-01-01
解决 JScript 中使用日期类型数据时出现类型错误的问题
在服务端JScript中，有些时候需要使用日期类型的数据，比如说设置一个cookie的到期时间，更新数据库中的日期字段等。但是按照平常的方法来用js里的date类型数据时，运行时就会发生错误。2008-05-05
最新评论