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
IT-JOB
Seneste spørgsmål Seneste aktivitet
26 min siden Punktopstilling af tekst i celler Af Balar Seir i Excel
I dag 08:18 Synology Drive client Af desist i Andet software
I dag 04:49 LiveTV fra TVboks til Projektor Af Allan i Fjernsyn & projektorer
I går 17:34 PC starter ikke op, sort skærm, ingen BIOS Af jonasbang i PC
I går 15:20 Hvordan får man en "Asus Nuc" i gang Af bjarnebif i PC
White papers
Flere white papers »


Premium
Teaser billede
Alt om den prisvenlige iPhone 16E: Så god er den i forhold iPhone 16 og 16 Pro
Læs mere »
Derfor ender dine AI-projekter ofte med at blive for dyre: Tre store udfordringer, som det er svært at tackle
Regeringen har sendt brev til den danske it-branche som svar på bekymringer: Og svaret er "stærkt, klart og meget kærkomment," siger branchen
En lille håndfuld cloud-leverandører sidder på 64 procent af det globale marked: Omsætter for flere hundrede milliarder kroner
Se alle »
Computerworld
Teaser billede
Test: En af de bedste elbiler, som du overhovedet kan købe, er fransk
Læs mere »
Test: Verdens vildeste trådløse højttaler trodser naturlovene og udløser et sjældent seks-tal
Selv pc’er fra 2020 efterlades i kulden: Her er de processorer som mister Microsoft Windows-support
Ny Windows-opdatering skaber store problemer for brugerne: Alvorlige fejl
Se alle »
CIO
Teaser billede
Microsoft gør klar til at lukke for WSUS efter 20 år - alle it-admins bør forberede sig
Læs mere »
Tre ud af fire it-projekter løber af sporet og går over budgettet - og det er der en særlig forklaring på
Regioner klar med licens-aftale med Microsoft: Priserne stiger markant
Microsoft indgår syvårig milliardaftale med rådgivnings-gigant – 600 danske ansatte får Copilot-licenser
Se alle »
Job & Karriere
Teaser billede
40 år gammelt dansk it-selskab fusionerer med hollandsk firma og skifter navn
Læs mere »
Her er deres månedsløn: Så meget tjener CIO'erne i de danske regioner - den bedst lønnede får mere end digitaliseringsministeren
Lønninger i den danske it-branche fortsætter med at stige - så meget tjener de danske it-folk i gennemsnit
Nørgaard: I de gode gamle dage havde jeg for vane at fyre alle mine medarbejdere jævnligt
Se alle »
White paper
Teaser billede
Sådan: Opgradér din printerløsning uden store investeringer
Læs mere »
Sikkerhed gjort enkelt: Beskyt din virksomhed direkte i browseren
Se alle »

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