参考思路如下:
假设服务器内网ip:192168106
公司公网ip:60119X
所有内网用户访问都会留下公网IP:60119X。
在网站首页判断,如果来访IP为60119X,则将网站转向192168106内网访问。这样就可以记录到内网机器IP了。
注意:此方法要求服务器和内网机器在一个局域网内。
去下个动网的IP地址库
用下面这个函数
表名改成你的就可以
Function Fn_GetIPAddr(Ipaddr)
'根据IP地址得到所在地区
dim tmpSQL,rs,tmpIpAddr
dim str1,str2,str3,str4,num
If isnumeric(left(Ipaddr,2)) Then
If Ipaddr= "127001 " Then Ipaddr= "19216801 "
str1=left(Ipaddr,instr(Ipaddr, " ")-1)
Ipaddr=mid(Ipaddr,instr(Ipaddr, " ")+1)
str2=left(Ipaddr,instr(Ipaddr, " ")-1)
Ipaddr=mid(Ipaddr,instr(Ipaddr, " ")+1)
str3=left(Ipaddr,instr(Ipaddr, " ")-1)
str4=mid(Ipaddr,instr(Ipaddr, " ")+1)
If isNumeric(str1)=0 Or isNumeric(str2)=0 Or isNumeric(str3)=0 Or isNumeric(str4)=0 Then
Else
num=cint(str1)256256256+cint(str2)256256+cint(str3)256+cint(str4)-1
tmpSQL = "select top 1 Country from ipdata where StartIP <= ' "&num& " ' and EndIP > = ' "&num& " ' "
'ResponseWrite(tmpSQL)
set rs = connexecute(tmpSQL)
if rsbof and rseof then
Fn_GetIPAddr = "未知地址 "
else
Fn_GetIPAddr = rs( "Country ")
end if
'end if
end if
Else
Fn_GetIPAddr = "无效IP "
End If
End Function
ip可以由>
以上就是关于asp.net获得客户端外网IP全部的内容,包括:asp.net获得客户端外网IP、ASp.NET 如何根据IP查询所在城市、谁能帮我写段ASP获取IP地理位置的代码并写入数据库等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)