关于取客户端ip的问题

mahui19780126 2009-06-26 10:23:11

取客户端ip老是取的服务器的ip,后知道可能服务器端口做过映射或是防火墙的原因。有没有办法在代码上修改解决这问题。

...全文

32 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

mahui19780126 2009-06-26

打赏
举报

HTTP_X_FORWARDED_FOR是对代理用的，没有用啊。

wxp886 2009-06-26

打赏
举报

获得客户真实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