Domæne-whois-program!

har set en på www.netcoders.dk

du finder sådan en her på eksperten:

du skal lige hente komponenter Socket TCP, jeg mener det er www.dimac.net

her er koden:

<% strDomain = LCase(Trim(Request.Form(\"Domain\"))) %>
<% strland = LCase(Trim(Request.Form(\"land\"))) %>
<% strsog = LCase(Trim(Request.Form(\"Domain\") & Request.Form(\"land\"))) %>
<html><head>
<title>Domæne tester med w3 Sockets</title><body>
<p><b>Domæne tester</b></p>

<form method=\"POST\" action=\"?\">
<p><input type=\"text\" name=\"Domain\" size=\"30\" value=\"<%=strDomain%>\">
    <select name=\"land\">
      <option value=\".dk\"<% if request(\"land\") = \".dk\" Then %>selected<% end if %>>.dk
      <option value=\".as\"<% if request(\"land\") = \".as\" Then %>selected<% end if %>>.as
      <option value=\".com\"<% if request(\"land\") = \".com\" Then %>selected<% end if %>>.com
      <option value=\".net\"<% if request(\"land\") = \".net\" Then %>selected<% end if %>>.net
      <option value=\".org\"<% if request(\"land\") = \".org\" Then %>selected<% end if %>>.org
    </select>
<input type=\"submit\" value=\"Test\" name=\"Test\"></p>
</form>

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

  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.dk-hostmaster.dk:43\"
      strMatch = \"% No entries found\"
    End Select
 
    objSocket.Open

    \' Sender forespørgsel
    objSocket.SendLine(strDomain & request(\"land\"))
 
    \' 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>\" & strsog & \"</b> er ledigt hos \" & strHost & \"</font></p>\"
    Else
      Response.Write \"<p>Desværre domænet <b>\" & strsog & \"</b> er optaget.</p>\"
    End If
    Response.Write \"<hr><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>

det er her det kan downloades:
http://www.dimac.net/isapiscript.dll?action=read&id=32421

Alletiders - tak for det hurtige og præcise svar!