1. 首页 >> 随笔 >> 学无止境

ASP编写完整的IP所在地搜索类(一)

  ASP编写完整的一个IP所在地搜索类的修正文稿

  修正了查询方法,查询的方法和追捕的一致;只是追捕会自动更正IP。还有个函数的书写错误,也已经修正; 包括增加了一个IP地址正确性的验证函数。(只是从格式上判断)


") '这里是测试代码 'dim a,b,c,d 'for a = 0 to 255 ' for b= 0 to 255 step 20 ' for c=0 to 255 step 20 ' for d = 0 to 255 step 20 ' IpSearch.IpAddress = a & "." & b & "." & c & "." & d ' Response.Write ("所在地:" & IpSearch.GetIpAddrInfo()) ' Response.Write ("IP:" & IpSearch.IpAddress) ' Response.Write ("IP转换为数值:" & IpSearch.CLongIP(IpSearch.IpAddress)) ' Response.Write ("数值还原成IP:" & IpSearch.CStringIP(IpSearch.CLongIP(IpSearch.IpAddress))) ' Response.Write (""
") ' next ' next ' next 'next Class clsIpSearch '################################################################## '声明:本程序采用的数据为网络上著名的IP工具软件《追捕》作者“冯志宏” '先生所精心搜集整理。 '《追捕》数据库的转换方法: '修改wry.dll 文件后缀名称为 wry.dbf '方法一: ' 启动Access 数据,选择打开数据库,选择打开的文件类型为“dBASE 5 (*.dbf)” ' 打开wry.dbf文件,选择《工具》菜单下的《数据库实用工具》中的《转换数据库》 ' 选择《转换为 Access 97 格式(版本可选)》功能,保存文件即可成为MDB格式。 '方法二: ' 使用SQL Server提供的《导入和导出数据》向导。 ' 方法简要说明:在ODBC 控制面板中设置指向wry.dbf的DSN。 ' 使用《导入和导出数据》向导,选择其正确的驱动程序和要导入的库即可。 ' 或者直接导入由方法一生成的MDB文件入库。 '方法三: ' 使用Access 打开wry.dbf 文件后将自动通过MDB库引用原库数据。 ' '未安装其他数据库平台,其他方法欠考虑。 '###################### 类说明 #################################### '# IP 所在地搜索类 '# ConnectionString 为数据库连接声明,默认声明同级目录的wry.mdb '# IpAddress 请设置为进行搜索的IP 地址,默认取当前访问者IP '# 类建立方法 '# Dim objVal '声明一个变量 '# Set objVal = New clsIpSearch '建立类对象 '# Response.Write (objVal.IpAddress) '显示当前访问者IP '# IP 搜索类方法列表: '# .Valid_IP 'IP 地址正确性效验 '# 参数:IP 'IP 数值或者字符串 '# .CLongIP '将IP地址转换为长整型的数值 '# 参数:asNewIP '要转换的IP地址字符串 '# .CStringIP '将长整型的数值转换为IP '# 参数:anNewIP '要还原为IP地址的数值 '# .GetClientIP '取访问者的IP '# .GetIpAddrInfo '得到设置过IpAddRess属性的IP所在地 '# 属性列表(自动初始化): '# ConnEctionString 'ADo 访问数据库连接说明 '# IpAddress '要操作的IP地址 '# 内部错误处理: '# 欠缺,未做,请自行补充。 %> ```

 

声明:本站部分文章,来源于互联网收集分享。如若本站内容侵犯了原著者的合法权益,可联系我们进行处理。
转载本文注明出处:http://www.suuxx.com/blog/a/BC741A1965120A9F.html

留言评论

{"error":401,"message":"site error"}