| 当前位置：首页>>WEB安全>>asp安全>>正文 |
|
用通ASP直接获取用户真实IP地址 |
| 文章出处：www.100down.com 发布时间：2004-12-02 点击:0 |
| |
通用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
（出处：《计算机世界》）
|
| 作者： |
| [返回顶部↑]
[推荐好友]
[查看评论] |
|
|
|
|
|
|
|
【设为首页】
【
【