地理位置信息数据库

⑴ ip地址查询的数据库

1. IP市级库 ：可以查询到所有国内的IP段，精确到县级市（部分固定IP精确到区县）。
2. IP国家库 ：可以查询到国际上各个国家的IP段，精确到具体的国家，不能查到更深层的省市。
3. IP省级库（无ISP）：可以查询到国内的IP段，精确到省（有个别数据只能确定是在国内，不能定位到省，含港澳台地区）。
4. IP省级库（含ISP）：在省级IP库的基础上，可以进一步查询到该IP所属的ISP信息（只能查询到省，部分IP的ISP信息无法确定）。
5. 省级定制IP库：可以查询国内某个省份的IP段，精确到地级市。每个省为一个单位，按省销售（可以查询到这些IP的ISP信息）。
6. ISP定制IP库：可以查询某个ISP所辖IP段。每个ISP为一个单位，按ISP销售，不能查到省市信息。
7. 国内范围IP库（大陆地区）：可以查询到所有国内的IP段，不能精确到更深层的省市及ISP信息。不包含港澳台地区。 （1）IPV6地址长度为128比特，地址空间增大了2的9 6次方倍；
（2）灵活的IP报文头部格式。使用一系列固定格式的扩展头部取代了IPV4中可变长度的选项字段。IPV6中选项部分的出现方式也有所变化，使路由器可以简单路过选项而不做任何处理，加快了报文处理速度；
（3）IPV6简化了报文头部格式，字段只有8个，加快报文转发，提高了吞吐量；
（4）提高安全性。身份认证和隐私权是IPV6的关键特性；
（5）支持更多的服务类型；
（6）允许协议继续演变，增加新的功能，使之适应未来技术的发展；

⑵ 如何在数据库中加入酒店的地理位置信息

酒店管理系统
设计提纲
引 言 2
一、 系统设计过程 3
1.1 系统设计步骤 3
1.2 功能模块划分 3
二、 系统的特点 4
三、 系统运行环境 4
3.1 系统运行环境 4
3.2 vb概述 5
3.3 sql 数据库简介 5
四、 系统功能实现 6
4.1 数据库设计 6
4.1.1 数据库文件 6
4.1.2 数据库设计 7
4.2 界面设计 8
4.3 客户管理模块设计 9
4.3.1 客户登记 11
4.3.2 退房结算 12
五、 小结 13
参考文献 13
附:程序清单 14

⑶ 地理信息系统中缓冲区分析的原理和用途是什么

原理是地理学第一定律：一个空间单元内的信息与其周围单元信息有相似性，空间单元之间具有的连通性，
属性各阶矩的空间非均匀性或非静态性。
用途就是为了表达这个地理位置对周围的环境因素的影响程度及其范围。
地理信息系统（GIS）的基本功能有：
1、数据采集与编辑功能：包括图形数据采集与编辑和属性数据编辑与分析。
2、数据的存储和管理功能：地理信息数据库管理系统是数据存储和管理的高新技术，包括数据库定义、数据库的建立与维护、数据库操作、通讯功能等。
3、制图功能：根据
GIS的数据结构及绘图仪的类型，用户可获得矢量地图或栅格地图。地理信息系统不仅可以为用户输出全要素地图，而且可以根据用户需要分层输出各种专题地图，如行政区划图、土壤利用图、道路交通图、等高城图等等。
还可以通过空间分析得到一些特殊的地学分析用图，如坡度图、坡向图、剖面图等等。
4、空间查询与空间分析功能：包括拓扑空间查询、缓冲区分析、叠置分析、空间集合分析、地学分析、数字高程模型的建立、地形分析等。
5、二次开发和编程功能：用户可以在自己的编程环境中调用GIS的命令和函数，或者GIS系统将某些功能做成专门的控件供用户开发使用。

⑷ ASP代码 显示IP和 地理位置的 怎么写

显示IP的话直接用response.write(request.serverVariables('remote_addr'))来输出IP地址。如果要显示地理位置的话，你得找一个IP数据库，然后根据remote_addr返回的IP来判断位置。

⑸ 使用WebView时，网页无法通过WebView获得地理位置信息，权限都添加了，数据库，JAVAs

那就用那个吧

⑹ 手机怎么通过WIFI定位 如何去收集用户位置信息

不知道从什么时候开始，很多人发微信和微博时，都不忘附上自己所在地址，甚至有好事者，PS外太空高大上地址来显示自己尊贵身份。我们就要问了手机是如何通过WiFi定位，手机是如何搜集用户位置信息。 手机如何通过WiFi定位？ WiFi能够对用户进行定位。因为在Android、iOS和Windows Phone这些手机操作系统中内置了位置服务，由于每一个WiFi热点都有一个独一无二的Mac地址，智能手机开启WiFi后就会自动扫描附近热点并上传其位置信息，这样就建立了一个庞大的热点位置数据库。这个数据库是对用户进行定位的关键。 如果你的智能手机连接上了某个Wi-Fi热点，那么就可以调用数据库中附近所有热点的地理位置信息，而服务器会参考每个热点的信号强弱计算出设备的大致地理位置。 手机是如何搜集用户位置？ GPS解决方案以及它所生成的经纬度标签是目前地理位置数据的公认标准，也是大部分智能手机获得用户地理位置的基本方式。只要用户打开GPS定位功能，手机即可获得相关数据。 此外，还有其他四种方法可获得地理位置数据： 1.手机信号塔数据：当移动设备的GPS芯片不能接收到GPS信号时，移动设备就需要与它所连接的手机信号塔通讯和估算它与信号塔之间的距离以报告地理位置。 2.WiFi连接：WiFi地址与GPS坐标对应，可以准确标示出用户位置。 3.IP地址：地理位置也可通过与数据连接有关的IP地址来获得。 4.用户报告：用户注册电子邮件或移动应用和服务时，通常都会输入自己的地理位置和邮政编码。这些数据可被转换为GPS坐标，从而建立起用户群的地理位置档案。 后记： 如果想了解更多手机的知识，欢迎在讨论区提问留言。

⑺ QQ显示的地理位置不对该怎么办

1.网速慢卡(QQ识别不出或者识别超时) 2.IP隐藏(自己隐藏了QQ的IP显示.所以差不出所在的地理位置) 3.使用了IP代理(用其他的IP代理登陆QQ的) 4.另外还有校园网之类的(一个校园网没有那么多IP,都是通过统一的几个IP或其他方式上的,这个我也不是很清楚,不过我学校里上网不显IP的) 如果显示的地理位置信息有误，怎么办？ 答： 如果显示的地理位置有误，可能由以下原因造成： A 、您使用了代理，系统显示的是代理服务器的地理位置。 B 、 IP 数据库有误，因为匹配您所处城市的 IP 数据库并不是 100% 准确的。这时，请将鼠标移动到地理位置信息处，稍作停留，将会有“报告有误的地理位置”提示框显示，点击，选择正确的地理位置信息，提交即可。我们会进行确认并更新数据库。

⑻ asp注册时有什么办法将获取的ip，查询出地理位置并记录到数据库。rs1("ip")=reques

IP定位地理位置需要IP数据库的。此类数据库网上有下载的，大小一般5-10M不等。
思路是获取到用户ip：111.111.111.11,然后通过代码链接IP数据库，读取这个IP的地理位置。需要注意的是，IP数据库不是精确到每个IP,而是通过IP段来定位地址位置的，比如111.111.0.0--111.111.255.0是一个地理位置。
如果不想通过数据库来实现，也可以通过第三方程序接口，比如sina、qq、以及很多天气预报网站，他们的代码都有IP定位地理位置功能，可以通过程序直接调用他们的程序接口。

⑼ 谁能帮我写段ASP获取IP地理位置的代码并写入数据库

刚回答了一个问题,与这个相似..
是采用QQ的ip数据库.

1.将QQ安装目录下的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 & " " & Wry.LocalStr &""
End Function

'获得请求的实际IP地址
Function getIP()
Dim strIPAddr
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then
strIPAddr = Request.ServerVariables("REMOTE_ADDR")
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)
Else
strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
End If
getIP = Trim(Mid(strIPAddr, 1, 30))
End Function

Function Look_Ip(IP)
Dim Wry, IPType, QQWryVersion, IpCounter
' 设置类对象
Set Wry = New TQQWry
' 开始搜索，并返回搜索结果
' 您可以根据 QQWry(IP) 返回值来判断该IP地址在数据库中是否存在，如果不存在可以执行其他的一些操作
' 比如您自建一个数据库作为追捕等，这里我就不详细说明了
IPType = Wry.QQWry(IP)
' Country：国家地区字段
' LocalStr：省市及其他信息字段
Look_Ip = Wry.Country & " " & Wry.LocalStr
End Function
' ============================================
' 返回IP信息 JS调用
' ============================================
Function GetIpInfoAv(IP, sType)
Dim Wry, IPType
Set Wry = New TQQWry
IPType = Wry.QQWry(IP)

Select Case sType
Case 1 GetIpInfoAv = "document.write(""" & IP & """);"
Case 2 GetIpInfoAv = "document.write(""" & Wry.Country & """);"
Case 3 GetIpInfoAv = "document.write(""" & Wry.LocalStr & """);"
Case Else GetIpInfoAv = "document.write(""您来自：" & IP & " 所在区域：" & Wry.Country & " " & Wry.LocalStr & """);"
End Select
End Function
' ============================================
' 返回QQWry信息
' ============================================
Function WryInfo()
Dim Wry, IPType, QQWry(1)
' 设置类对象
Set Wry = New TQQWry
IPType = Wry.QQWry("255.255.255.255")
' 读取数据库版本信息
QQWry(0) = Wry.Country & " " & Wry.LocalStr
' 读取数据库IP地址数目
QQWry(1) = Wry.RecordCount + 1
WryInfo = QQWry
End Function
' ============================================
' 爱雪儿IP物理定位搜索类
' ============================================
Class TQQWry
' ============================================
' 变量声名
' ============================================
Dim Country, LocalStr, Buf, OffSet
Private StartIP, EndIP, CountryFlag
Public QQWryFile
Public FirstStartIP, LastStartIP, RecordCount
Private Stream, EndIPOff
' ============================================
' 类模块初始化
' ============================================
Private Sub Class_Initialize
Country = ""
LocalStr = ""
StartIP = 0
EndIP = 0
CountryFlag = 0
FirstStartIP = 0
LastStartIP = 0
EndIPOff = 0
QQWryFile = Server.MapPath("QQWry.dat") 'QQ IP库路径，要转换成物理路径
End Sub
' ============================================
' IP地址转换成整数
' ============================================
Function IPToInt(IP)
Dim IPArray, i
IPArray = Split(IP, ".", -1)
FOr i = 0 to 3
If Not IsNumeric(IPArray(i)) Then IPArray(i) = 0
If CInt(IPArray(i)) < 0 Then IPArray(i) = Abs(CInt(IPArray(i)))
If CInt(IPArray(i)) > 255 Then IPArray(i) = 255
Next
IPToInt = (CInt(IPArray(0))*256*256*256) + (CInt(IPArray(1))*256*256) + (CInt(IPArray(2))*256) + CInt(IPArray(3))
End Function
' ============================================
' 整数逆转IP地址
' ============================================
Function IntToIP(IntValue)
p4 = IntValue - Fix(IntValue/256)*256
IntValue = (IntValue-p4)/256
p3 = IntValue - Fix(IntValue/256)*256
IntValue = (IntValue-p3)/256
p2 = IntValue - Fix(IntValue/256)*256
IntValue = (IntValue - p2)/256
p1 = IntValue
IntToIP = Cstr(p1) & "." & Cstr(p2) & "." & Cstr(p3) & "." & Cstr(p4)
End Function
' ============================================
' 获取开始IP位置
' ============================================
Private Function GetStartIP(RecNo)
OffSet = FirstStartIP + RecNo * 7
Stream.Position = OffSet
Buf = Stream.Read(7)

EndIPOff = AscB(MidB(Buf, 5, 1)) + (AscB(MidB(Buf, 6, 1))*256) + (AscB(MidB(Buf, 7, 1))*256*256)
StartIP = AscB(MidB(Buf, 1, 1)) + (AscB(MidB(Buf, 2, 1))*256) + (AscB(MidB(Buf, 3, 1))*256*256) + (AscB(MidB(Buf, 4, 1))*256*256*256)
GetStartIP = StartIP
End Function
' ============================================
' 获取结束IP位置
' ============================================
Private Function GetEndIP()
Stream.Position = EndIPOff
Buf = Stream.Read(5)
EndIP = AscB(MidB(Buf, 1, 1)) + (AscB(MidB(Buf, 2, 1))*256) + (AscB(MidB(Buf, 3, 1))*256*256) + (AscB(MidB(Buf, 4, 1))*256*256*256)
CountryFlag = AscB(MidB(Buf, 5, 1))
GetEndIP = EndIP
End Function
' ============================================
' 获取地域信息，包含国家和和省市
' ============================================
Private Sub GetCountry(IP)
If (CountryFlag = 1 Or CountryFlag = 2) Then
Country = GetFlagStr(EndIPOff + 4)
If CountryFlag = 1 Then
LocalStr = GetFlagStr(Stream.Position)
' 以下用来获取数据库版本信息
If IP >= IPToInt("255.255.255.0") And IP <= IPToInt("255.255.255.255") Then
LocalStr = GetFlagStr(EndIPOff + 21)
Country = GetFlagStr(EndIPOff + 12)
End If
Else
LocalStr = GetFlagStr(EndIPOff + 8)
End If
Else
Country = GetFlagStr(EndIPOff + 4)
LocalStr = GetFlagStr(Stream.Position)
End If
' 过滤数据库中的无用信息
Country = Trim(Country)
LocalStr = Trim(LocalStr)
If InStr(Country, "CZ88.NET") Then Country = "114XP.CN"
If InStr(LocalStr, "CZ88.NET") Then LocalStr = "114XP.CN"
End Sub
' ============================================
' 获取IP地址标识符
' ============================================
Private Function GetFlagStr(OffSet)
Dim Flag
Flag = 0
Do While (True)
Stream.Position = OffSet
Flag = AscB(Stream.Read(1))
If(Flag = 1 Or Flag = 2 ) Then
Buf = Stream.Read(3)
If (Flag = 2 ) Then
CountryFlag = 2
EndIPOff = OffSet - 4
End If
OffSet = AscB(MidB(Buf, 1, 1)) + (AscB(MidB(Buf, 2, 1))*256) + (AscB(MidB(Buf, 3, 1))*256*256)
Else
Exit Do
End If
Loop

If (OffSet < 12 ) Then
GetFlagStr = ""
Else
Stream.Position = OffSet
GetFlagStr = GetStr()
End If
End Function
' ============================================
' 获取字串信息
' ============================================
Private Function GetStr()
Dim c
GetStr = ""
Do While (True)
c = AscB(Stream.Read(1))
If (c = 0) Then Exit Do

'如果是双字节，就进行高字节在结合低字节合成一个字符
If c > 127 Then
If Stream.EOS Then Exit Do
GetStr = GetStr & Chr(AscW(ChrB(AscB(Stream.Read(1))) & ChrB(C)))
Else
GetStr = GetStr & Chr(c)
End If
Loop
End Function
' ============================================
' 核心函数，执行IP搜索
' ============================================
Public Function QQWry(DotIP)
Dim IP, nRet
Dim RangB, RangE, RecNo

IP = IPToInt (DotIP)

Set Stream = CreateObject("ADodb.Stream")
Stream.Mode = 3
Stream.Type = 1
Stream.Open
Stream.LoadFromFile QQWryFile
Stream.Position = 0
Buf = Stream.Read(8)

FirstStartIP = AscB(MidB(Buf, 1, 1)) + (AscB(MidB(Buf, 2, 1))*256) + (AscB(MidB(Buf, 3, 1))*256*256) + (AscB(MidB(Buf, 4, 1))*256*256*256)
LastStartIP = AscB(MidB(Buf, 5, 1)) + (AscB(MidB(Buf, 6, 1))*256) + (AscB(MidB(Buf, 7, 1))*256*256) + (AscB(MidB(Buf, 8, 1))*256*256*256)
RecordCount = Int((LastStartIP - FirstStartIP)/7)
' 在数据库中找不到任何IP地址
If (RecordCount <= 1) Then
Country = "未知"
QQWry = 2
Exit Function
End If

RangB = 0
RangE = RecordCount

Do While (RangB < (RangE - 1))
RecNo = Int((RangB + RangE)/2)
Call GetStartIP (RecNo)
If (IP = StartIP) Then
RangB = RecNo
Exit Do
End If
If (IP > StartIP) Then
RangB = RecNo
Else
RangE = RecNo
End If
Loop

Call GetStartIP(RangB)
Call GetEndIP()

If (StartIP <= IP) And ( EndIP >= IP) Then
' 没有找到
nRet = 0
Else
' 正常
nRet = 3
End If
Call GetCountry(IP)

QQWry = nRet
End Function
' ============================================
' 类终结
' ============================================
Private Sub Class_Terminate
On ErrOr Resume Next
Stream.Close
If Err Then Err.Clear
Set Stream = Nothing
End Sub
End Class
%>

3.要查询ip的asp页面内加入:
<!--#include file = "ip.asp"-->
<%
dim ip,ipx
ip=getIP()
ipx=address(ip)
%>

详情: http://..com/question/63283862.html

要是回答的内容有问题，或认为不妥，请发送网络消息给我，消息内容加上本页网址哦。。

·

⑽ ASP怎么获取ip自动查询地理位置，然后存入access数据库中，

js可以直接获取访问者当前系统时间和IP，并把他插入到数据库。
但是你会发现你的做法其实很矛盾，ACCESS是本地的，客户端却不在，谁会诊的用ACCESS来做网站，建议使用SQL Server，这样才不会矛盾。