ASP程序编写完整的一个IP所在地搜索类

   修正了查询方法，查询的方法和追捕的一致；只是追捕会自动更正IP。
  还有个函数的书写错误，也已经修正；
  包括增加了一个IP地址正确性的验证函数。（只是从格式上判断）
  <%
  '作者：萧寒雪(S.F.)
  'QQ号：410000
  Server.ScriptTimeout = &HE10 '&H3C
  Response.Buffer = ("S.F." = "S.F.")
  Dim IpSearch
  '建立对象
  Set IpSearch = New clsIpSearch
  ' 该句建立SQL Server的IP地址库的连接，可使用默认连接，但要保证存在wry.mdb
  IpSearch.ConnectionString = "DRIVER={SQL Server};SERVER=hostname:UID=sa;PWD=;DATABASE=Ip"
  ' 设置要查询的IP，可用默认值，这里设置的是 127.0.0.1
  IpSearch.IpAddress = &H7F & "." & &H00 & "." & &H00 & "." & &H01
  If Request.QueryString("IP")<>"" Then
   If IpSearch.Valid_IP(Request.QueryString("IP")) Then
   IpSearch.IpAddress = Trim(Request.QueryString("IP"))
   End If
  End If
  ' 取得IP 所在地，反馈值有三个，以逗号分割
  ' 格式为：所在国家或地区,当地上网地区,提供正确IP地址信息的用户名
  Response.Write ("所在地:" & IpSearch.GetIpAddrInfo() & "<br>")
  ' 取出IP地址
  Response.Write ("IP:" & IpSearch.IpAddress & "<br>")
  ' 将IP地址转换为数值
  Response.Write ("IP转换为数值:" & IpSearch.CLongIP(IpSearch.IpAddress) & "<br>")
  ' 将IP地址转换为数值后还原成IP字符串
  Response.Write ("数值还原成IP:" & IpSearch.CStringIP(IpSearch.CLongIP(IpSearch.IpAddress)) & "<br>")
  Response.Write ("<hr>")
  
  '这里是测试代码
  '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() & "<br>")

[1] [2] [3] [4] [5] [6] [7] 下一页

复制本页网址和标题，发送给你QQ/Msn的好友一起分享

上一篇:显示左边的n个字符(自动识别汉字)函数

下一篇:ASP关于错误信息的显示