Da IP a coordinate Geografiche

[SoloWiFi]

qualche sito offre un servizio che: Fornito un IP di fa vedere la posizione geografica su mappa.

Mi sono documentato un po e, a quanto pare, i sistemi di VoIP gestiscono un Database con le coordinate degli IP.
Non so se sia possibile convertire un IP in Latitudine e Longitudine.

Vorrei creare una pagina simile e sto cercando di capirne qualcosa di più.

Chi mi sa aiutare?

[viki1967]

http://www.planet-source-code.com/vb...1=Quick+Search

[SoloWiFi]

a parte il fatto che i databases forniti sono solo degli USA ...e dintorni ...
... ma nulla sugli IP. Si parla solo di Zip code.
... comunque grazie per l'interessamento a questo 3D

[SoloWiFi]

Ho trovato QUESTA pagina
E' scritta in PHP (ma non dovrebbe essere un problema). Ho provato a riprodurla ma, ovviamente non mi funziona. Sicuramente non ho accesso al DataBase. Purtroppo non trovo la strada (legale) per iscrivermi o comunque per poter usufruire di questi dati, he se non sbaglio sono di google. Ne sapete qualcosa di più di me?

Ora non mi dite "Si parla di PHP e qui sei in ASP"
La mia intenzione è di gestirlo in ASP

[SoloWiFi]

Ho trovato quello che cercavo!
Gli IP italiani non sono tutti mappati, ma basta andare nel sito ufficiale e dichiarare la posizione. "http://www.hostip.info/"
Quando si trova un IP non mappato genera un errore ma facile da scavalcare con "On Error"

Vi rilascio il sorgente per chi ne ha bisogno

------------------------------------------------------------------------------------
<%
' © 2000-2005, Roderick W. Divilbiss, All Rights Reserved
' Except where otherwise noted, this content is licensed under a Creative Commons License.
' Original source code may be found at www.rodsdot.com.
' http://creativecommons.org/licenses/by-nc/2.0/
'
class browserLocaleObject
public city
public country
public longitude
public latitude
public ip

Private sub Class_Initialize
Dim objXMLHTTP
Dim coordinates
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
ip = Request.ServerVariables("REMOTE_ADDR")
objXMLHTTP.Open "GET", "http://api.hostip.info/?ip="&ip, False
objXMLHTTP.Send
Set xmldoc = objXMLHTTP.responseXML
city = xmldoc.selectSingleNode("HostipLookupResultSet/gml:featureMember/Hostip/gml:name").text
country = xmldoc.selectSingleNode("HostipLookupResultSet/gml:featureMember/Hostip/countryName").text
coordinates = Split(xmldoc.selectSingleNode("HostipLookupResultS et/gml:featureMember/Hostip/ipLocation").text,",")
longitude = coordinates(0)
latitude = coordinates(1)
set objXMLHTTP=nothing
End sub

Public Sub Spill
Dim out
out = "<table>"
out = out & "<tr><td width=""50%"">City</td><td width=""50%"">" & city & "</td></tr>"
out = out & "<tr><td width=""50%"">Country</td><td width=""50%"">" & country & "</td></tr>"
out = out & "<tr><td width=""50%"">IP</td><td width=""50%"">" & ip & "</td></tr>"
out = out & "<tr><td width=""50%"">Longitude</td><td width=""50%"">" & longitude & "</td></tr>"
out = out & "<tr><td width=""50%"">Latitude</td><td width=""50%"">" & latitude & "</td></tr>"
out = out & "</table>"
response.write out
End Sub
End class

Dim browserLocale
Set browserLocale = new browserLocaleObject
%>

--------------------------------------------------------------------------------------

Bella discussione Ho fatto tutto da solo ... come i matti

[luigi1970]

Per sorridere un po':


Nella schizofrenia non si è mai soli!!

[SoloWiFi]

a questo punto continuo ...
Per chi è curioso di sapere che roba sto facendo ... QUI

[santino83]

ma io sono di roma e questo mi dice che sto a milano mannaggia agli ip di fastweb

[mr.fifteen]

beato te... io sto a milano e mi dice che sto in mare tra togo e ghana...

[SoloWiFi]

hai ritirato fuori 'sta roba di 2 anni fa ... comunque a volte funziona