Variabler til info i ASP??

Hey!
Browser type, windows type, landet(sproget?) - Kan vist godt lade sig gøre via Request.ServerVariables -

Dog er resten vist noget med WHOIS og du skal connecte med siden via querystrings, vil jeg mene - Men lad os se på andre kommentare/svar... :)

-Drago

Servervariabler:
http://www.opfinderen.dk/sites/?id=40

Brugerens browser og opløsning kan du finde tonsvis af eksempler på i Javascript-kategorien.

Du skal have fat i et komponent som kan har egenskaben "trace route", jeg kender ikke lige nogen umiddelbart.
Det de gør er at de har en stor database hvor de så kan slå dig din route tabel op i.

eks.

http://www.cse.bris.ac.uk/cgi-bin/troute?query=eksperten.dk

Her vil de kunne slå disse op i en database og kunne fastslå din udbyders position.

Det er dog ikke muligt at fastslå din computers specifikke position, men kun udbyderens.

Du kan hente lidt oplysninger her om udbyder osv.:

http://www.ripe.net/perl/whois?form_type=simple&full_query_string=&searchtext=80.196.131.173&do_search=Search

Jeg er godt klar over at jeg kan bruge request.servervariables. men det er variablerne..

Det med at hante det fra whois databasen har jeg tænkt over, men hvordan henter jeg en enkelt linie istedet for hele lortet??

Således f.eks.:

Set oServerXMLHTTPRequest = Server.CreateObject("Msxml2.ServerXMLHTTP")
URL = "http://www.ripe.net/perl/whois?form_type=simple&full_query_string=&searchtext=" & Request.ServerVariables("Remote_Addr") & "&do_search=Search"
oServerXMLHTTPRequest.open "GET", URL, False
oServerXMLHTTPRequest.Send
Kilde = LCase(oServerXMLHTTPRequest.ResponseText)

Arr_Kilde = Split(Kilde, "country:      ")
Land = Left(Arr_Kilde(1), 2)

Du kan også benytte AspHTTP-komponenten, hvis du har adgang til den.

Har lavet et lille eksempel til dig:

http://www.opfinderen.dk/info.asp

Ja ok! Men hvad med by f.eks.

Reload link.

sjovt nok, sidder jeg pt. på sjælland, og får at vide at min by er varde... godt nok er gym. elevernes geografi dårlig... men er det bare mig, eller er varde i jylland?

Hey!
Som førnævnt er det jo ikke selve byen hvor du selv befinder dig, men hvor main serveren står...

-Drago

Kan jeg få sourcen til den side der??

Eller, der mangler lige en ting.. Den med ISP.. Da den med ISP og den med by er de vigtigste

Ja, den er på vej.

Der er sikkert tilfælde, hvor den ikke vil fungere (ikke mindst hvis www.ripe.net ændrer opsætningen af deres infoside). Jeg har kun testet med et par enkelte IP'er.

************************************

<%
Info = LCase(Request.ServerVariables("HTTP_USER_AGENT"))
IP = Request.ServerVariables("REMOTE_ADDR")

If Instr(Info, "opera") then
    Browser = "Opera"
ElseIf Instr(Info, "netscape") Then
    Browser = "Netscape"
ElseIf Instr(Info, "msie") Then
    Browser = "Internet Explorer"
Else
    Browser = "Ukendt"
End If

If Instr(Info, "95") Then
    Platform = "Win95"
ElseIf Instr(Info, "98") Then
    Platform = "Win98"
ElseIf Instr(Info, "win 9x") Then
    Platform = "WinME"
ElseIf Instr(Info, "nt") Then
    Platform = "WinNT"
ElseIf Instr(Info, "nt 5.0") Then
    Platform = "Win2K"
ElseIf Instr(Info, "linux") Then
    Platform = "Linux"
ElseIf Instr(Info, "mac") Then
    Platform = "Mac"
Else
    Platform = "Ukendt"
End If

Set oServerXMLHTTPRequest = Server.CreateObject("Msxml2.ServerXMLHTTP")
URL = "http://www.ripe.net/perl/whois?form_type=simple&full_query_string=&searchtext=" & IP & "&do_search=Search"
oServerXMLHTTPRequest.open "GET", URL, False
oServerXMLHTTPRequest.Send
Kilde = LCase(oServerXMLHTTPRequest.ResponseText)

Arr_Kilde = Split(Kilde, "country:      ")
Land = Left(Arr_Kilde(1), 2)

Arr_Kilde = Split(Kilde, "address:      ")
Arr_Adresse = Split(Arr_Kilde(3), " ")
Bynavn = Replace(Replace(Replace(Arr_Adresse(1), "oe", "ø"), "ae", "æ"), "aa", "å")

Arr_Kilde = Split(Kilde, "<u>origin</u>")
Arr_ISP = Split(Arr_Kilde(UBound(Arr_Kilde) - 1), "descr:        ")
ISP = Arr_ISP(UBound(Arr_ISP))

Response.Write "<b>IP:</b> " & IP & "<br>"
Response.Write "<b>Platform:</b> " & Platform & "<br>"
Response.Write "<b>Browser:</b> " & Browser & "<br>"
Response.Write "<b>ISP:</b> <font style='text-transform:capitalize;'>" & ISP & "</font><br>"
Response.Write "<b>By:</b> <font style='text-transform:capitalize;'>" & Bynavn & "</font><br>"
Response.Write "<b>Land:</b> <font style='text-transform:uppercase;'>" & Land & "</font>"

Set oServerXMLHTTPRequest = Nothing
%>

Demoen ligger i øvrigt stadig her, hvis nogen ønsker at teste.
http://www.opfinderen.dk/info.asp