怎样获取访问者的IP

[likefermat]

要求是真是的IP，如果是路由器，就要知道外网IP，请写详细点，包括在asp中的调用，怎么输出，谢谢.

[likefermat]

这上面的都是获取的内网IP，我早知道了，问题是怎样获取外网IP，这个才是真是的IP地址，
不要192.168.1.5这类的地址，没有意义，谁给出asp的实现代码，详细的，如果测试成功，
再加100分，150分，这个值了吧。

[Dogfish]

asp自己的就只用Request.ServerVariables("REMOTE_ADDR") 了。

[不耐烦]

<%
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
'测试
response.write GetIp()
%>

[一把编程的菜刀]

<%
Dim Sqlin_IP,rsKill_IP,Kill_IPsql
Sqlin_IP=Request.ServerVariables("REMOTE_ADDR")
Kill_IPsql="select Sqlin_IP from table where Sqlin_IP='"&Sqlin_IP&"' and kill_ip=true"
Set rsKill_IP=killSqlconn.execute(Kill_IPsql)
If Not(rsKill_IP.eof or rsKill_IP.bof) Then
Response.write "<Script Language=JavaScript>alert('chinmo提示你,你的IP已比管理员限制进入！原因可能是你尝试注入本站！');location.href='about:blank'</script><script>window.close();</script>"

Response.End
End If
rsKill_IP.close

%>

写进数据库时
killSqlconn.Execute("insert into table(Sqlin_IP,SqlIn_Web,SqlIn_FS,SqlIn_CS,SqlIn_SJ) values('"&Request.ServerVariables("REMOTE_ADDR")&"','"&Request.ServerVariables("URL")&"','GET','"&Fy_Get&"','"&replace(Request.QueryString(Fy_Get),"'","''")&"')")

[一把编程的菜刀]

Sqlin_IP=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
if Sqlin_IP="" then Sqlin_IP=Request.ServerVariables("REMOTE_ADDR")


killSqlconn.Execute("insert into table(Sqlin_IP,SqlIn_Web,SqlIn_FS,SqlIn_CS,SqlIn_SJ) values('"&Sqlin_IP&"','"&Request.ServerVariables("URL")&"','GET','"&Fy_Get&"','"&replace(Request.QueryString(Fy_Get),"'","''")&"')")

[wy7851193]

哈 哈 哈 哈 正好能用的上. 谢谢 楼上的大哥了.

[tcs533]

局域网访问当然是192.168.1.5 这类的地址!
外网访问的肯定是外网IP的!

[frank4298]

好代码,我也用一下,试试了,谢谢!

[wusongping]

Request.ServerVariables("REMOTE_ADDR")

[wildcoco]

老大能问一下用JSP如何实现？能发个源码吗，谢谢了