Notifikationer

Markér alle som læst Log ud

hansen Nybegynder

08. november 2000 - 10:13 Der er 25 kommentarer og
2 løsninger

Domænesøger

Hvem kan lave en domænesøger til dk,com,net,org ?

Det skal fungere sådan at man bare taster det ønskede domæne ind, hvorefter den selv tjekker for om domænet er ledigt i de forskellige domænetyper, og så lister dem ud med ledig/optaget.

Ikke noget med at tjekke for først DK, så com osv...
Der skal også verificeres for ulovlige karakterer !

Jeg har w3 Sockets på serveren.

Hilsen Hansen

Synes godt om

keysersoze Ekspert

08. november 2000 - 10:16 #1

http://www.activeserverpages.dk/aspdigital/kapitel5/whois.asp

Synes godt om

keysersoze Ekspert

08. november 2000 - 10:17 #2

For at teste på com, net og org. skal du bruge denne \"rs.internic.net:43\" i stedet for \"whois.ripe.net:43\"

Synes godt om

hansen Nybegynder

08. november 2000 - 10:17 #3

Kræver at man selv taster domain.dk ind, ønsket var at den selv loopede igennem de forskellige typer domæner !

Synes godt om

keysersoze Ekspert

08. november 2000 - 10:18 #4

dette burde være den fulde kode:

<% response.buffer = true %>
<HTML>
<HEAD>
<TITLE>netsrac.dk - Freelance Webarkitekt</TITLE>
<STYLE TYPE=\"text/css\">

</STYLE>
</HEAD>
<BODY BGCOLOR=\"#DCD9D3\" TEXT=\"#000000\">

<TABLE BORDER=\"0\" WIDTH=\"100%\" HEIGHT=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
<TR><TD VALIGN=\"center\" align=\"center\">

<TABLE BORDER=\"1\" BORDERCOLOR=\"#000000\" WIDTH=\"600\" HEIGHT=\"350\" cellspacing=\"1\" cellpadding=\"1\">
<TR>
<TD BGCOLOR=\"#000000\" VALIGN=\"top\">

<TABLE BORDER=\"0\" WIDTH=\"100%\" HEIGHT=\"20\" cellspacing=\"0\" cellpadding=\"0\">
<TR><TD></TD></TR></TABLE>

</TD>
</TR>
<TR>
<TD bgcolor=\"#efefef\">

<TABLE BORDER=\"0\" WIDTH=\"100%\" HEIGHT=\"330\" cellspacing=\"5\" cellpadding=\"5\">
<TR><TD VALIGN=\"top\">
<FONT SIZE=\"2\" FACE=\"Tahoma\">
På denne side kan de søge på domains.<P>
Domain navne skal angives uden www. foran.<BR>
Domain navne må IKKE indeholde æ, ø, å samt _.<BR>
Domain navne må KUN indeholde et punktum.<BR>
Det er muligt at søge på dk, com, net og org domains<BR>
<FORM METHOD=\"POST\" ACTION=\"domain.asp\">
<INPUT TYPE=\"text\" NAME=\"domain\" SIZE=\"20\"> <INPUT TYPE=\"submit\" VALUE=\"Test\" NAME=\"Test\"></P>
</FORM>
<% if request.querystring(\"fejl\") = \"1\" then %>
<FONT COLOR=\"f7740a\">De kan kun søge på dk, com, net og org domains.</FONT>
<% end if %>
<% if request.querystring(\"fejl\") = \"2\" then %>
<FONT COLOR=\"f7740a\">De skal indtaste et domain.</FONT>
<% end if %>
<% if request.querystring(\"fejl\") = \"3\" then %>
<FONT COLOR=\"f7740a\">De skal ikke taste \"www.\" foran domainet.</FONT>
<% end if %>
<% if request.querystring(\"fejl\") = \"4\" then %>
<FONT COLOR=\"f7740a\">Et domain navn må ikke indeholde æ, ø, å og _</FONT>
<% end if %>
<% if request.querystring(\"fejl\") = \"5\" then %>
<FONT COLOR=\"f7740a\">Et domain navn må KUN indeholde et punktum.</FONT>
<% end if %>

<%
if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then

StrDomain = trim(request.form(\"domain\"))

if len(StrDomain) = 0 Then
response.redirect (\"domain.asp?fejl=2\")
end if

If InStr(StrDomain, \"www.\") > 1 then
response.redirect (\"domain.asp?fejl=3\")
end if

if InStr(1, StrDomain, \".\") > 0 and InStr(InStr(1, StrDomain, \".\")+1, StrDomain, \".\") then
response.redirect (\"domain.asp?fejl=5\")
end if

If InStr(StrDomain, \"æ\") then
response.redirect (\"domain.asp?fejl=4\")
end if

If InStr(StrDomain, \"ø\") then
response.redirect (\"domain.asp?fejl=4\")
end if

If InStr(StrDomain, \"å\") then
response.redirect (\"domain.asp?fejl=4\")
end if

If InStr(StrDomain, \"_\") then
response.redirect (\"domain.asp?fejl=4\")
end if

\' // .DK Domains
if InStr(StrDomain, \".dk\") then
Set objSocket = Server.CreateObject(\"Socket.TCP\")
objSocket.Host = \"whois.dk-hostmaster.dk:43\"
objSocket.Open
objSocket.SendLine(strDomain)
objSocket.WaitForDisconnect
tmpBuffer = objSocket.Buffer
If InStr(1, tmpBuffer, \"% No entries found\", 1) > 0 Then
Response.Write \"<FONT COLOR=\'f7740a\'>Domain navnet <B>\" & strDomain & \"</B> er ledigt hos DK-HOSTMASTER.</FONT>\"
Else
Response.Write \"<FONT COLOR=\'f7740a\'>Desværre domainet <B>\" & strDomain & \"</B> er optaget.</FONT><BR>\"
Response.Write \"<BLOCKQUOTE><PRE>\" & tmpBuffer & \"</PRE></BLOCKQUOTE>\"
End If
objSocket.Close

\' // .COM og .NET og .ORG Domains
ElseIf InStr(StrDomain, \".com\") OR InStr(StrDomain, \".net\") OR InStr(StrDomain, \".org\") then
Set objSocket = Server.CreateObject(\"Socket.TCP\")
objSocket.Host = \"whois.internic.net:43\"
objSocket.Open
objSocket.SendLine(strDomain)
objSocket.WaitForDisconnect
tmpBuffer = objSocket.Buffer
If InStr(tmpBuffer, \"Name Server\") Then
Response.Write \"<FONT COLOR=\'f7740a\'>Desværre domainet <B>\" & strDomain & \"</B> er optaget.</FONT><BR>\"
Response.Write \"<BLOCKQUOTE><PRE>\" & tmpBuffer & \"</PRE></BLOCKQUOTE>\"
Else
Response.Write \"<FONT COLOR=\'f7740a\'>Domain navnet <B>\" & strDomain & \"</B> er ledigt hos INTERNIC.</FONT>\"
End if
objSocket.Close

else response.redirect(\"domain.asp?fejl=1\")

end if%>
<BR>
Der gives ingen garanti for korrektheden af denne søgning.
<% End If %>
</FONT>
</TD></TR></TABLE>

</TD>
</TR>
</TABLE>

</TD>
</TR>
</TABLE>

</BODY>
</HTML>

Synes godt om

hansen Nybegynder

08. november 2000 - 10:22 #5

Giver en fejl hvis der kun skrives et navn uden domæne endelse !

Synes godt om

keysersoze Ekspert

08. november 2000 - 10:25 #6

ja... læste først det med at man skal kunne søge uden endelse... det er ikke noget jeg umiddelbart har - det kan formentlig godt lade sig gøre, men jeg kan ikke lige se meningen med det :o/ så dette er mit eneste forslag, da jeg ikke vil forsøge mig med noget andet...

Synes godt om

hansen Nybegynder

08. november 2000 - 10:28 #7

Meningen med det var, at jeg ofte køber et domænenavn i flere domænetyper, og har hidtil brugt Speednames til denne søgefunktion, men efter at de er blevet bygget om, så syntes jeg at jeg får en masse timeouts !

Samt en masse andre domæner som bare giver mig mere ventetid :-(

Synes godt om

renny Nybegynder

08. november 2000 - 10:40 #8

hvad skal der stå i filen menu.html

Synes godt om

hansen Nybegynder

08. november 2000 - 10:42 #9

Jeg har bare slettet den, der er ikke brug for den !

Synes godt om

renny Nybegynder

08. november 2000 - 10:44 #10

så får jeg denne fejl

Active Server Pages error \'ASP 0126\'

Include file not found

/domain.asp, line 26

The include file \'menu.html\' was not found.

Synes godt om

keysersoze Ekspert

08. november 2000 - 10:50 #11

fandt lige denne:

<%@ LANGUAGE=\"JavaScript\" %> <%

socket = Server.CreateObject( \"Socket.TCP\" );

function whois( Domain, Server )
{

%><a href=\"http://www.<%= domain%>\"> <font face=\"Verdana\" size=5><b> <%= domain%></b></font></a>
<%
// Whois port is 43
socket.Host = Server + \":43\";
socket.Open();

// Send the query....
socket.SendLine( Domain );

// Wait for disconnect and output the buffer
socket.WaitForDisconnect();

Response.Write( \"<blockquote><pre>\" + socket.Buffer + \"</pre></blockquote>\" );
socket.Close();

}

%>

<html>
<body bgcolor=\"#FFFFFF\" text=\"#000010\" link=\"#0000C0\" vlink=\"#000040\" alink=\"#000040\">
<%

var DomainName;
DomainName = Request.QueryString( \"Domain\" ).item;

%>

<% whois( DomainName + \".se\", \"whois.nic- se.se\" ) %>
<% whois( DomainName + \".com\", \"rs.internic.net\" ) %>
<% whois( DomainName + \".net\", \"rs.internic.net\" ) %>
<% whois( DomainName + \".org\", \"rs.internic.net\" ) %>

</body>
</html>

Synes godt om

keysersoze Ekspert

08. november 2000 - 10:50 #12

dog skal <% whois( DomainName + \".se\", \"whois.nic- se.se\" ) %> nok lige ændres ;o)

Synes godt om

keysersoze Ekspert

08. november 2000 - 10:51 #13

og du skal sætte valideringen ind også...

Synes godt om

renny Nybegynder

08. november 2000 - 12:12 #14

den melder fejl i linie 94

Set objSocket = Server.CreateObject(\"Socket.TCP\")

Hvad skal man skrive der

Synes godt om

keysersoze Ekspert

08. november 2000 - 13:36 #15

alt hvad du burde vide/bruge kan findes her:

http://tech.dimac.net/

Synes godt om

netsrac Praktikant

08. november 2000 - 16:48 #16

keysersoze >> Sikke en fin domænetester du fandt der først hva ? Hvem mon har lavet....hm....Måske...<TITLE>netsrac.dk - Freelance Webarkitekt</TITLE> ....Hvem kan det dog være....MIG....

Synes godt om

netsrac Praktikant

08. november 2000 - 16:51 #17

Dette burde klare det :)

<% response.buffer = true %>
<HTML>
<HEAD>
<TITLE>netsrac.dk - Freelance Webarkitekt</TITLE>
<STYLE TYPE=\"text/css\">

</STYLE>
</HEAD>
<BODY BGCOLOR=\"#DCD9D3\" TEXT=\"#000000\">

<TABLE BORDER=\"0\" WIDTH=\"100%\" HEIGHT=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
<TR><TD VALIGN=\"center\" align=\"center\">

<TABLE BORDER=\"1\" BORDERCOLOR=\"#000000\" WIDTH=\"600\" HEIGHT=\"350\" cellspacing=\"1\" cellpadding=\"1\">
<TR>
<TD BGCOLOR=\"#000000\" VALIGN=\"top\">

<TABLE BORDER=\"0\" WIDTH=\"100%\" HEIGHT=\"20\" cellspacing=\"0\" cellpadding=\"0\">
<TR><TD> </TD></TR></TABLE>

</TD>
</TR>
<TR>
<TD bgcolor=\"#efefef\">

<TABLE BORDER=\"0\" WIDTH=\"100%\" HEIGHT=\"330\" cellspacing=\"5\" cellpadding=\"5\">
<TR><TD VALIGN=\"top\">
<FONT SIZE=\"2\" FACE=\"Tahoma\">
På denne side kan de søge på domains.<P>
Domain navne skal angives uden www. foran.<BR>
Domain navne må IKKE indeholde æ, ø, å samt _.<BR>
Domain navne må KUN indeholde et punktum.<BR>
Det er muligt at søge på dk, com, net og org domains<BR>
<FORM METHOD=\"POST\" ACTION=\"domain.asp\">
<INPUT TYPE=\"text\" NAME=\"domain\" SIZE=\"20\"> <INPUT TYPE=\"submit\" VALUE=\"Test\" NAME=\"Test\"></P>
</FORM>
<% if request.querystring(\"fejl\") = \"1\" then %>
<FONT COLOR=\"f7740a\">De kan kun søge på dk, com, net og org domains.</FONT>
<% end if %>
<% if request.querystring(\"fejl\") = \"2\" then %>
<FONT COLOR=\"f7740a\">De skal indtaste et domain.</FONT>
<% end if %>
<% if request.querystring(\"fejl\") = \"3\" then %>
<FONT COLOR=\"f7740a\">De skal ikke taste \"www.\" foran domainet.</FONT>
<% end if %>
<% if request.querystring(\"fejl\") = \"4\" then %>
<FONT COLOR=\"f7740a\">Et domain navn må ikke indeholde æ, ø, å og _</FONT>
<% end if %>
<% if request.querystring(\"fejl\") = \"5\" then %>
<FONT COLOR=\"f7740a\">Et domain navn må KUN indeholde et punktum.</FONT>
<% end if %>

<%
if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then

StrDomain = trim(request.form(\"domain\"))

if len(StrDomain) = 0 Then
response.redirect (\"domain.asp?fejl=2\")
end if

If InStr(StrDomain, \"www.\") > 1 then
response.redirect (\"domain.asp?fejl=3\")
end if

if InStr(1, StrDomain, \".\") > 0 and InStr(InStr(1, StrDomain, \".\")+1, StrDomain, \".\") then
response.redirect (\"domain.asp?fejl=5\")
end if

If InStr(StrDomain, \"æ\") then
response.redirect (\"domain.asp?fejl=4\")
end if

If InStr(StrDomain, \"ø\") then
response.redirect (\"domain.asp?fejl=4\")
end if

If InStr(StrDomain, \"å\") then
response.redirect (\"domain.asp?fejl=4\")
end if

If InStr(StrDomain, \"_\") then
response.redirect (\"domain.asp?fejl=4\")
end if

\' // .DK Domains
Set objSocket = Server.CreateObject(\"Socket.TCP\")
objSocket.Host = \"whois.dk-hostmaster.dk:43\"
objSocket.Open
objSocket.SendLine(strDomain)
objSocket.WaitForDisconnect
tmpBuffer = objSocket.Buffer
If InStr(1, tmpBuffer, \"% No entries found\", 1) > 0 Then
Response.Write \"<FONT COLOR=\'f7740a\'>Domain navnet <B>\" & strDomain & \"</B> er ledigt hos DK-HOSTMASTER.</FONT>\"
Else
Response.Write \"<FONT COLOR=\'f7740a\'>Desværre domainet <B>\" & strDomain & \"</B> er optaget.</FONT><BR>\"
Response.Write \"<BLOCKQUOTE><PRE>\" & tmpBuffer & \"</PRE></BLOCKQUOTE>\"
end if

\' // .COM og .NET og .ORG Domains
objSocket.Host = \"whois.internic.net:43\"
objSocket.Open
objSocket.SendLine(strDomain)
objSocket.WaitForDisconnect
tmpBuffer = objSocket.Buffer
If InStr(tmpBuffer, \"Name Server\") Then
Response.Write \"<FONT COLOR=\'f7740a\'>Desværre domainet <B>\" & strDomain & \"</B> er optaget.</FONT><BR>\"
Response.Write \"<BLOCKQUOTE><PRE>\" & tmpBuffer & \"</PRE></BLOCKQUOTE>\"
Else
Response.Write \"<FONT COLOR=\'f7740a\'>Domain navnet <B>\" & strDomain & \"</B> er ledigt hos INTERNIC.</FONT>\"
End if
%>
<BR>
Der gives ingen garanti for korrektheden af denne søgning.
<% End If %>
</FONT>
</TD></TR></TABLE>

</TD>
</TR>
</TABLE>

</TD>
</TR>
</TABLE>

</BODY>
</HTML>

Synes godt om

netsrac Praktikant

08. november 2000 - 16:52 #18

Svar :)

Synes godt om

renny Nybegynder

08. november 2000 - 17:11 #19

hvorfor får jeg denne fejl
Server object error \'ASP 0177 : 800401f3\'

Server.CreateObject Failed

/domain.asp, line 94

Synes godt om

netsrac Praktikant

08. november 2000 - 17:13 #20

Renny...opret et spørgsmål så skal jeg fortælle dig hvorfor...he he

Synes godt om

netsrac Praktikant

08. november 2000 - 17:14 #21

Det er fordi W3socket ikke er installeret på serveren :)

Synes godt om

tpiil Nybegynder

08. november 2000 - 17:16 #22

kan hentes her:
http://download.dimac.net/sockets/w3sockets.exe

Synes godt om

renny Nybegynder

08. november 2000 - 17:27 #23

er hermed gjort http://www.eksperten.dk/spm/32503

Synes godt om

keysersoze Ekspert

08. november 2000 - 18:51 #24

netsrac >> har jeg skrevet det var mig der havde lavet det??? jeg gav bare koden, da det var det der blev spurgt om, og med vilje ændrede jeg ikke title da det jo netop _ikke_ var mig der havde lavet det... og det må jo siges at være flinkt gjort!

Synes godt om

netsrac Praktikant

08. november 2000 - 18:57 #25

Keysersoze..Stop holdt, der var skam ikke noget negativt i min kommentar, er kun glad for at min navn bliver spredt :) Du må undskylde hvis det lød negativt :)

Synes godt om

keysersoze Ekspert

08. november 2000 - 19:09 #26

netsrac >> ok :o)

Synes godt om

hansen Nybegynder

10. november 2000 - 09:14 #27

Keysersoze

Den du sendte fra Dimac kan du få den til at skrive om domæent er ledigt eller ej, samt en \"se info\" om ejeren ting. ??

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
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
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

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