asp.net获得客户端外网IP

asp.net获得客户端外网IP,第1张

参考思路如下:

假设服务器内网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地理位置的代码并写入数据库等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/web/9788429.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-02
下一篇 2023-05-02

发表评论

登录后才能评论

评论列表(0条)

保存