Domæne tjek

Jeg fandt det selv... var lidt for hurtigt ude.. ;-)

http://tech.dimac.net/isapiscript.dll?action=read&id=32399&exId=32479

Hvorfor ikke bare bruge en ASP tester?

--
<center>
<FONT SIZE=\"2\" FACE=\"Tahoma\">
Indtast det navn du ønsker at teste. Eksempelvis <br>
indtastes web-sale, hvis www.web-sale.dk ønskes testet.<br>
Vælg i dropdownmenuen hvilken slags domæne du ønsker testet.
<br><br>
Domæner må kun indeholde tegnene a-z , 0-9 og bindestreg.<BR>
<center>
<FORM METHOD=\"POST\" ACTION=\"domain.asp\">
<INPUT TYPE=\"text\" NAME=\"domain\" SIZE=\"20\">
<SELECT NAME=\"end\">
<OPTION SELECTED VALUE=\".dk\">.dk</OPTION>
<OPTION VALUE=\".com\">.com</OPTION>
<OPTION VALUE=\".net\">.net</OPTION>
<OPTION VALUE=\".org\">.org</OPTION>
</SELECT> <INPUT TYPE=\"submit\" VALUE=\"Test\" NAME=\"Test\"></P>
</FORM>
</center>
<% if request.querystring(\"fejl\") = \"1\" then %>
<FONT COLOR=\"f7740a\">De kan kun s&oslash;ge p&aring; 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 &aelig;, &oslash;, &aring; 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

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

\' // .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=\'green\'>Domain navnet <B>\" & strDomain & \"</B> er ledigt hos DK-HOSTMASTER.</FONT>\"
    Response.Write \"<br><br><br>\"
    Response.Write \"- <a href=hotel-bestilling.asp>Bestil det testede domæne</a>\"
  Else
    Response.Write \"<FONT COLOR=\'red\'>Desværre domainet <B>\" & strDomain & \"</B> er optaget.</FONT><BR>\"
    Response.Write \"<br><br><br>\"
    Response.Write \"- <a href=Domain.asp>Test andet domænenavn</a>\"
    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=\'red\'>Desværre domainet <B>\" & strDomain & \"</B> er optaget.</FONT><BR>\"
    Response.Write \"<br><br><br>\"
    Response.Write \"- <a href=Domain.asp>Test andet domænenavn</a>\"
    Response.Write \"<BLOCKQUOTE><PRE>\" & tmpBuffer & \"</PRE></BLOCKQUOTE>\"
  Else
    Response.Write \"<FONT COLOR=\'green\'>Domain navnet <B>\" & strDomain & \"</B> er ledigt hos INTERNIC.</FONT>\"
    Response.Write \"<br><br><br>\"
    Response.Write \"- <a href=hotel-bestilling.asp>Bestil det testede domæne</a>\"
  End if
  objSocket.Close

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

end if%>

<% End If %>
</FONT>

--

bacardil kan du lave det indsendte script om så det loop\'er alle dk,com etc. igennem, for derefter at vise de ledige, med mulighed for bestilling, og de optagede som \"Tryk her for at se mere\" ting.

Så har jeg et spørgsmål der stadigvæk er åbent for svar af denne type, se her
http://195.184.98.141/spm/32394

Hilsen Hansen