我用上述语句写了一个简单的asp文件,
找网友测试了一下,取出的就是127.0.0.1
文件内容如下:
<%
dim aa
aa=request.servervariables("HTTP_X_FORWARDED_FOR")
if aa="" then
aa=request.servervariables("REMOTE_ADDR")
end if
response.write aa
%>
有兴趣的朋友试一下:http://command.dhcn.net/test/ip.asp
看是不是显示 127.0.0.1
Dim userip,userip2
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
userip2 = Request.ServerVariables("REMOTE_ADDR")
if userip = "" then
response.write "您的真实IP 是:"&userip2&","
else
response.write "您的真实IP 是:"&userip&","
end if
response.write usersysinfo(Request.ServerVariables("HTTP_USER_AGENT"),2)&","&usersysinfo(Request.ServerVariables("HTTP_USER_AGENT"),1)
函数如下
function usersysinfo(info,getinfo)
if instr(info,";")>0 then
dim usersys
usersys=split(info,";")
if ubound(usersys)>=2 then
usersys(1)=replace(usersys(1),"MSIE","Internet Explorer")
usersys(2)=replace(usersys(2),")","")
usersys(2)=replace(usersys(2),"NT 5.1","XP")
usersys(2)=replace(usersys(2),"NT 5.0","2000")
usersys(2)=replace(usersys(2),"9x","Me")
usersys(1)="浏 览 器:" & Trim(usersys(1))
usersys(2)="操作系统:" & Trim(usersys(2))
if getinfo=1 then
usersysinfo=usersys(1)
else
usersysinfo=usersys(2)
end if
else
if getinfo=1 then
usersysinfo="浏 览 器:未知"
else
usersysinfo="操作系统:未知"
end if
end if
else
if getinfo=1 then
usersysinfo="未知"
else
usersysinfo="未知"
end if
end if
end function
<%
mIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If mIPAddr = "" Then
mIPAddr = Request.ServerVariables("REMOTE_ADDR")
end if
%>
用户来访信息 你的ip地址是<%=mIPAddr %>