CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

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).

Synes godt om

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

Synes godt om

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>

Domæne tester

<form method="POST" action="whois.asp">
<input type="text" name="Domain" size="30" value="<%=strDomain%>"> <input type="submit" value="Test" name="Test">
</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 "Domæne navnet " & strDomain & " er ledigt hos " & strHost & " <a href='whois.asp?domain=" & strDomain & "&showInfo=true'>Vis info</a>"
Else
Response.Write "Desværre domænet " & strDomain & " er optaget. <a href='whois.asp?domain=" & strDomain & "&showInfo=true'>Vis info</a>"
End If
If Request.QueryString("showInfo") = "true" Then
Response.Write "<hr><blockquote><pre>" & tmpBuffer & "</pre></blockquote>"
End If

objSocket.Close
Else
Response.Write "Du skal angive et gyldigt domænenavn"
End If
End If
%>

</body></html>

Vær så god :)

Synes godt om

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 :)

Synes godt om

psyco01 Nybegynder

08. november 2002 - 14:31 #4

Jeg kan godt lave det til 2 sider... Vil bare lige høre hvorfor først :)

Synes godt om

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>

Domæne tester

<form method="POST" action="whois.asp">
<input type="text" name="Domain" size="30" value="<%=strDomain%>"> <input type="submit" value="Test" name="Test">
</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 "Domæne navnet " & strDomain & " er ledigt hos " & strHost & " <a href='whois2.asp?domain=" & strDomain & "'>Vis info</a>"
Else
Response.Write "Desværre domænet " & strDomain & " er optaget. <a href='whois2.asp?domain=" & strDomain & "'>Vis info</a>"
End If

objSocket.Close
Else
Response.Write "Du skal angive et gyldigt domænenavn"
End If
End If
%>

</body></html>

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

Domæne tester
<%
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 "<blockquote><pre>" & tmpBuffer & "</pre></blockquote>"

objSocket.Close
Else
Response.Write "Du skal angive et gyldigt domænenavn"
End If
End If
%>

</body></html>

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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	0	07/11/202415:34	-
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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS