CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede xtremer Nybegynder
07. november 2002 - 19:44 Der er 4 kommentarer og
1 løsning

Tilpasning af Whois script

Nogen som kan tilpasse denne domæne tester: http://activedeveloper.dk/aspdigital/kapitel5/whois.asp således at den kun viser udtrækket fra whois db hvis man ønsker det (ved klik på link).
Avatar billede xtremer Nybegynder
07. november 2002 - 19:50 #1
Det vil sige at scriptet skal deles op i 2 sider:

en der viset om domænet er ledigt eller ej

og en som viser ejerinformation om domænet
Avatar billede psyco01 Nybegynder
08. november 2002 - 14:09 #2
<%
If Not Request.QueryString("domain") <> "" Then
    strDomain = LCase(Trim(Request.Form("Domain")))
Else
    strDomain = Request.QueryString("domain")
End If
%>
<html><head>
<title>Domæne tester med w3 Sockets</title><body>

<p><b>Domæne tester</b></p>

<form method="POST" action="whois.asp">
<p><input type="text" name="Domain" size="30" value="<%=strDomain%>"> <input type="submit" value="Test" name="Test"></p>
</form>

<%
If Len(strDomain) > 0 Then
    ' Finder den sidste forekomst af .
    pos = InStrRev(strDomain, ".")

    If pos > 0 Then
        strDOM = Mid(strDomain, pos+1)
       
        Set objSocket = Server.CreateObject("Socket.TCP")
        Select Case strDOM
        Case "com", "net", "org", "edu"
            strHost = "Internic"
            objSocket.Host = "rs.internic.net:43"
            strMatch = "No match"
        Case Else
            strHost = "RIPE"
            objSocket.Host = "whois.ripe.net:43"
            strMatch = "No entries found for the selected source"
        End Select
   
        objSocket.Open

        ' Sender forespørgsel
        objSocket.SendLine(strDomain)
   
        ' Venter på at disconnecte
        objSocket.WaitForDisconnect
   
        ' Gemmer output i variablen tmpBuffer
        tmpBuffer = objSocket.Buffer
       
        If InStr(1, tmpBuffer, strMatch, 1) > 0 Then
            Response.Write "<p><font color=blue>Domæne navnet <b>" & strDomain & "</b> er ledigt hos " & strHost & "</font><br><a href='whois.asp?domain=" & strDomain & "&showInfo=true'>Vis info</a></p>"
        Else
            Response.Write "<p>Desværre domænet <b>" & strDomain & "</b> er optaget.<br><a href='whois.asp?domain=" & strDomain & "&showInfo=true'>Vis info</a></p>"
        End If
    If Request.QueryString("showInfo") = "true" Then
            Response.Write "<hr><p><blockquote><pre>" & tmpBuffer & "</pre></blockquote></p>"
        End If
       
        objSocket.Close
    Else
        Response.Write "<p>Du skal angive et gyldigt domænenavn</p>"
    End If
End If
%>

</body></html>

Vær så god :)
Avatar billede xtremer Nybegynder
08. november 2002 - 14:22 #3
Hej

Jep ...den er der næsten. Det skal bare være 2 sider ikke den samme :)
Avatar billede psyco01 Nybegynder
08. november 2002 - 14:31 #4
Jeg kan godt lave det til 2 sider... Vil bare lige høre hvorfor først :)
Avatar billede psyco01 Nybegynder
08. november 2002 - 14:41 #5
Her er den 2 sidede version...
Side: whois.asp
<%strDomain = LCase(Trim(Request.Form("Domain")))%>
<html><head>
<title>Domæne tester med w3 Sockets</title><body>

<p><b>Domæne tester</b></p>

<form method="POST" action="whois.asp">
<p><input type="text" name="Domain" size="30" value="<%=strDomain%>"> <input type="submit" value="Test" name="Test"></p>
</form>

<%
If Len(strDomain) > 0 Then
    ' Finder den sidste forekomst af .
    pos = InStrRev(strDomain, ".")

    If pos > 0 Then
        strDOM = Mid(strDomain, pos+1)
       
        Set objSocket = Server.CreateObject("Socket.TCP")
        Select Case strDOM
        Case "com", "net", "org", "edu"
            strHost = "Internic"
            objSocket.Host = "rs.internic.net:43"
            strMatch = "No match"
        Case Else
            strHost = "RIPE"
            objSocket.Host = "whois.ripe.net:43"
            strMatch = "No entries found for the selected source"
        End Select
   
        objSocket.Open

        ' Sender forespørgsel
        objSocket.SendLine(strDomain)
   
        ' Venter på at disconnecte
        objSocket.WaitForDisconnect
   
        ' Gemmer output i variablen tmpBuffer
        tmpBuffer = objSocket.Buffer
       
        If InStr(1, tmpBuffer, strMatch, 1) > 0 Then
            Response.Write "<p><font color=blue>Domæne navnet <b>" & strDomain & "</b> er ledigt hos " & strHost & "</font><br><a href='whois2.asp?domain=" & strDomain & "'>Vis info</a></p>"
        Else
            Response.Write "<p>Desværre domænet <b>" & strDomain & "</b> er optaget.<br><a href='whois2.asp?domain=" & strDomain & "'>Vis info</a></p>"
        End If
       
        objSocket.Close
    Else
        Response.Write "<p>Du skal angive et gyldigt domænenavn</p>"
    End If
End If
%>

</body></html>

Side: whois2.asp
<% strDomain = Request.QueryString("domain")%>
<html><head>
<title>Domæne tester med w3 Sockets</title><body>

<p><b>Domæne tester</b></p>
<%
If Len(strDomain) > 0 Then
    ' Finder den sidste forekomst af .
    pos = InStrRev(strDomain, ".")

    If pos > 0 Then
        strDOM = Mid(strDomain, pos+1)
       
        Set objSocket = Server.CreateObject("Socket.TCP")
        Select Case strDOM
        Case "com", "net", "org", "edu"
            strHost = "Internic"
            objSocket.Host = "rs.internic.net:43"
            strMatch = "No match"
        Case Else
            strHost = "RIPE"
            objSocket.Host = "whois.ripe.net:43"
            strMatch = "No entries found for the selected source"
        End Select
   
        objSocket.Open

        ' Sender forespørgsel
        objSocket.SendLine(strDomain)
   
        ' Venter på at disconnecte
        objSocket.WaitForDisconnect
   
        ' Gemmer output i variablen tmpBuffer
        tmpBuffer = objSocket.Buffer
       
        Response.Write "<p><blockquote><pre>" & tmpBuffer & "</pre></blockquote></p>"
       
        objSocket.Close
    Else
        Response.Write "<p>Du skal angive et gyldigt domænenavn</p>"
    End If
End If
%>

</body></html>
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP 4 26/04/202417:16 26/04/202418:37
JSON Af ingeman i ASP 3 07/04/202417:53 08/04/202412:09
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 19:57 SMB på Synology Af johnnylassen i Servere
I dag 13:51 Anmeldelse af bog i Weekendavisen Af Ikke-ekspert i Fri debat
I dag 11:22 20 år gammel mobil simlåst Af xMsBx i Mobiltelefoner
I går 19:11 Ændre autoudfyld i Outlook og Word Af TTA i Office & Kontorpakker
I går 12:27 Office Pro 2019 forsvinder Af mort1 i Office & Kontorpakker
White papers
Flere white papers »


Premium
Teaser billede
Vil fyre tusindvis af ansatte globalt: Nu reagerer Microsofts danske organisation med 800 medarbejdere
Læs mere »
Staten binder sig med ny aftale til Microsoft i usædvanlig lang tid - og det er der en særlig årsag til
Pengene vælter ud af den danske Dynamics-kæmpe Cepheo i selskabets andet leveår - men forretningen buldrer frem
Du skal opdatere hurtigst muligt: Alvorlig sårbarhed opdaget i Citrix-software
Se alle »
Computerworld
Teaser billede
Danmarks største fiberselskab skifter navn: Norlys skal ikke længere hedde Norlys
Læs mere »
Glemte at fjerne adgang for suspenderet it-medarbejder: Næste dag var kunder i Tyskland og Bahrain låst ude
Aktie-kursen ottedoblet på fire år: Er nu verdenshistoriens mest værdifulde selskab
Amerikansk koncern med 700 ansatte i Danmark: Sender besked til kunder 21 måneder efter storstilet angreb
Se alle »
CIO
Teaser billede
Microsoft kæmper med at få Copilot ud over rampen – og det skyldes især én ting
Læs mere »
Her står medarbejderne for at ansætte og fyre - og det har gjort rekruttering af it-professionelle langt lettere
Rigspolitiet gør klar til stort opgør med it-evighedskontrakter: Søger hjælp fra leverandørerne
Mange CISO'er mistrives i jobbet: Nu stiller tidligere cyber security-chef i Energinet og Ørsted et kontroversielt forslag
Se alle »
Job & Karriere
Teaser billede
Fungerede ikke: Dropper AI som erstatning for kundeservice-medarbejdere - har nu brug for nye folk
Læs mere »
It-chef og halv it-afdeling fyret i forsikringsselskab på grund af kommentar om potteplante
Danske it-folk tør ikke længere skifte job hele tiden - og det er der en særlig årsag til
Itm8 fyrer: Opsiger ansatte og reorganiserer
Se alle »
White paper
Teaser billede
AI og kunderejsen: Sådan vinder du fremtidens forbrugere
Læs mere »
NIS2: Sådan styrker du både cybersikkerhed og compliance
Få reel viden om datasuverænitet og tag selv kontrollen
Sådan får du reel værdi ud af Microsoft Copilot
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »