Avatar billede axkris Nybegynder
20. december 2004 - 13:13 Der er 1 kommentar og
1 løsning

Find isp'en

Hej alle

Hvordan har http://myip.dk/ fået lavet et script, som viser ISP'en? Jeg er med på, hvordan man udskriver IP'en (som sker i 2. linie på MyIps hjemmeside), men ikke hvordan man udskriver ISP'en (som sker i 3. linie).

F.eks.: xxxxxxxx.xxxxxxxxx.adsl-dhcp.tele.dk
Avatar billede tofte Juniormester
20. december 2004 - 17:27 #1
<%=Request.ServerVariables("REMOTE_HOST")%>
Avatar billede axkris Nybegynder
20. december 2004 - 17:33 #2
Den returnerer blot IP.

Jeg har selv løst det:

<%
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, "<u>origin</u>")
Arr_ISP = Split(Arr_Kilde(UBound(Arr_Kilde) - 1), "descr:        ")
ISP = Arr_ISP(UBound(Arr_ISP))

Response.Write "<b>ISP:</b> <font style='text-transform:capitalize;'>" & ISP & "</font><br>"

Set oServerXMLHTTPRequest = Nothing
%>
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester