ASP网站映射后怎么设置都得不到客户真实IP怎么解决

andsow

我的路由器是用ROS2.97做的。使用NAT123产品后怎么设置都得不到客户真实IP....我非常郁闷,帮吗呀...
下面是我的测试地址帮忙看看吧
NAT123 映射地址
http://test.ebangpc.com/11.asp
没有使用NAT123映射地址
http://ns.ebangpc.com:81/11.asp

主机头


ros路由器NAT映射


超级郁闷,是不是我路由器脚本没写对？试了很多方法。都准备用一个普通路由器试试了。但是普通路由器影响速度。所以希望有高手或者论坛老大帮我想想招数呢？先谢谢了！

nat123

http://www.nat123.com/test/testip.asp
你试下打开这个页面能不能显示到你的真实IP
里边的源码是这样的：


<%
response.write("  REMOTE_ADDR的IP:"&Request.ServerVariables("REMOTE_ADDR"))


ip=Request.ServerVariables("REMOTE_ADDR")
v=Request.ServerVariables("ALL_HTTP")
istart=InStr(1,v,"HTTP_X_FORWARDED_FOR",1)
if(istart>0) then
iend=InStr(istart,v,"\r\n",1)
ip=mid(v,istart+len("HTTP_X_FORWARDED_FOR")+1,istart-iend+1)
response.write("  HTTP_X_FORWARDED_FOR的IP:"&ip)
end if
%>

你参考里边的做修改

nat123

首先你在ASP中原来是不是使用Request.ServerVariables("REMOTE_ADDR")来取得客户端的IP地址

如果是用这方法经我们代理后，那取到的就是nat123客户端所在电脑的IP地址，而不是真正的客户端IP地址。要想透过nat123代理取得客户端的真实IP地址，就要使用Request.ServerVariables("HTTP_X_FORWARDED_FOR") 来读取。这是代理的标准协议来的

nat123

另外为了保证产品质量，我们本网站也是使用nat123做映射的，自己率先做白老鼠，以发现和解决更多问题。。

本网站也可以获取到你的IP的，如图所示

andsow

nat123 发表于 2013-12-3 23:23
另外为了保证产品质量，我们本网站也是使用nat123做映射的，自己率先做白老鼠，以发现和解决更多问题。。
...

谢谢....我还是搞不定....我重新写了 一份源码....调用IP138来获取IP在返回然后写入数据库...智能这样了...这玩意已经搞了我几天了....实在不想弄了....万幸得到你们的产品已经很幸运了....祝你们越做越大....

andsow

nat123 发表于 2013-12-3 23:23
另外为了保证产品质量，我们本网站也是使用nat123做映射的，自己率先做白老鼠，以发现和解决更多问题。。
...

本来想用IP138做的...结果还是不行
在网上下了一大堆 还是不行

我贴源码
<%
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)  
%>

andsow

nat123 发表于 2013-12-4 11:26
http://www.nat123.com/test/testip.asp
你试下打开这个页面能不能显示到你的真实IP
里边的源码是这样的 ...

谢谢版主,看到你的源码后我又学了一课。

andsow

写了个正规,手机和电脑都能获取了....