怎样获取客户端的ip地址？

itzhiren 2006-02-25 04:27:28

好多网站一进去的时候，都会显示访问客户的真实ip地址，请问这个是怎么实现的？

...全文

251 15 打赏收藏转发到动态举报

写回复

用AI写文章

15 条回复

切换为时间正序

请发表友善的回复…

发表回复

尚和空四 2006-03-21

打赏
举报

rem ---得到真实的客户端IP---
CODE Copy ...
Public Function GetClientIP()
dim uIpAddr
' 本函数参考webcn.Net/AspHouse 文献<取真实的客户IP>
uIpAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If uIpAddr = "" Then uIpAddr = Request.ServerVariables("REMOTE_ADDR")
GetClientIP = uIpAddr
uIpAddr = ""
End function

rotApple 2006-03-15

打赏
举报

见楼上或楼下的N多正解!!!

LIHY70 2006-03-15

打赏
举报

studying

itzhiren 2006-03-15

打赏
举报

最近在学习JSP，所以很少到asp这里来了。

jamila8 2006-02-27

打赏
举报

<%

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

response.write getip()
%>

jspadmin 2006-02-27

打赏
举报

itzhiren,最近怎么很少见到你？

sstgaps 2006-02-27

打赏
举报

userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
if userip = "" then
userip = Request.ServerVariables("REMOTE_ADDR")
end if

好记忆不如烂笔头abc 2006-02-27

打赏
举报

http://www.adjyc.com/?4577091

liuph3000 2006-02-27

打赏
举报

楼上说的对
先判断是否使用真实地址，如果真实地址不为空的就直接取真实地址，否则取代理地址

yutian130 2006-02-26

打赏
举报

楼上的请解释一下行吗？？俺不知道。。

liuph3000 2006-02-26

打赏
举报

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

========================================
http://peipei3000.jishuqi.com/reg.asp
http://www.goofar.com/?ID=634664011139
========================================

anwell 2006-02-26

打赏
举报

主要就是下面两个参数：
Request.ServerVariables("HTTP_X_FORWARDED_FOR")
Request.ServerVariables("REMOTE_ADDR")

如果Request.ServerVariables("HTTP_X_FORWARDED_FOR")为空那么就是真实地址直接取Request.ServerVariables("REMOTE_ADDR")地址，如果不为空那么就是用代理连接的。

liguiman 2006-02-26

打赏
举报

其实用 Request.ServerVariables("REMOTE_ADDR")就可以得到代理的ip
如果客户不用其它代理服务器，那么就是它本身的ip

sxsgssgs 2006-02-25

打赏
举报

同上

piperzero 2006-02-25

打赏
举报

function GetIp()
dim realip,proxy
realip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
proxy = Request.ServerVariables("REMOTE_ADDR")
if realip = "" then
GetIp = proxy
else
GetIp = realip
end if
end function