如何从IP获知其所在地？.doc

如何从IP获知其所在地？ 程序开始： % Server.ScriptTimeout = HE10 H3CResponse.Buffer = (S.F. = S.F.)Dim IpSearchSet IpSearch = New clsIpSearch 建立类对象IpSearch.ConnectionString=DRIVER={SQLServer};SERVER=hostname:UID=sa;PWD=;DATABASE=Ip 建立SQL Server的IP地址库的连接,可用默认连接,但要保证wry.mdb(为什么用这个数据库,见后)数据库在同级目录IpSearch.IpAddress = H7F . H00 . H00 . H01 设置要查询的IP,默认为当前来访者,此处是If Request.QueryString(IP) Then? If IpSearch.Valid_IP(Request.QueryString(IP)) Then? IpSearch.IpAddress = Trim(Request.QueryString(IP))? End IfEnd IfResponse.Write (所在地: IpSearch.GetIpAddrInfo() br) 取得IP所在地, 三个反馈值以逗号分割.格式:所在国家或地区,当地上网地区,提供正确IP地址信息的用户名Response.Write (IP: IpSearch.IpAddress br) 取出IP地址Response.Write (IP转换为数值: IpSearch.CLongIP(IpSearch.IpAddress) br) 将IP地址转换为长整型数值Response.Write (数值还原成IP: IpSearch.CStringIP(IpSearch.CLongIP(IpSearch.IpAddress)) br) 将IP地址转换为长整型数值后还原成IP字符串 Response.Write (hr)%%Class clsIpSearch 类Public ConnectionStringPublic IpAddressPrivate DBConn? 连接对象,模块级声明 Private Sub Class_initialize() 类初始化ConnectionString=DRIVER={Microsoft Access Driver (*.mdb)};DBQ= Server.MapPath(wry.mdb) 这里建立的是通过“数据转换方法一”生成的mdb 库文件? IpAddress = GetClientIP() 取访问者的IP? Set DBConn = OpenConnection()End Sub Private Sub Class_Terminate()? ConnectionString = Null ADO访问数据库连接说明? IpAddress = Null? DBConn.Close? Set DBConn = Nothing 类注销End Sub Private Function OpenConnection()? ? Dim tmpConn? ? Set tmpConn=Server.CreateObject(ADODB.Connection)? ? tmpConn.Open ConnectionString? ? Set OpenConnection=tmpConn? ? Set tmpConn=nothing 建立一个连接End Function Private Function SQLExeCute(strSql)? Dim Rs? Set Rs=DBConn.ExeCute(strSQL)? Set SQLExeCute = Rs? Set Rs=nothing 执行一个SQL命令,并返回一个数据集对象End Function Public Function Valid_IP(ByVal IP) IP地址效验, IP为数值或字符串? Dim i ? Dim dot_count ? Dim test_octet ? Dim byte_check ? IP = Trim(IP) ? If Len(IP) H08 Then 确认IP长度 ? Valid_IP = False ? 显示错误提示 ? Exit Function ? End If ? i = H01 ? dot_count = H00 ? For i = 1 To Len(IP)