会员IP地址查询
来源:百度知道 编辑:UC知道 时间:2024/05/09 04:30:22
用QQWry.Dat也行,告诉asp源码,谢谢
网上也有同样的问题上,自己多找下
1.将QQwry.dat文件复制到asp文件夹下
2.建立一个asp文件,如文件名ip.asp.代码内容为:
<%
'文件名:ip.asp 与QQwry.dat放在一个文件夹下面
'使用:在要用到的查询ip的asp页面中最前面加入<!--#include file = "ip.asp"-->
'然后可以用address(getIP())获得请求的地理位置
'=========================================================
' IP物理定位搜索类 Version 3.0.0
' QQWry.DAT 利用程序 修改自互联网流传代码
' 本类在ASP环境中使用纯真版QQWry.dat通过完美测试
' 如果您的服务器环境不支持ADodb.Stream,将无法使用此程序
' 推荐使用纯真数据库,更新也方便
' ========================================================
' ============================================
' 返回IP信息
' 如address("127.0.0.1")
' 返回值为:"本机地址 CZ88.NET"
' ============================================
Function address(sip)
Dim Wry, IPType
Set Wry = New TQQWry
IPType = Wry.QQWry(sip)
address=""&Wry.Country & " &quo