Domænetester

Du skal have adgang til w3Sockets fra Dimac før det virker, men jeg har en der funger helt fint.

Så er den sendt.

Det er den eneste måde du, i ASP, kan checke domæner.

Find et her..

http://www.eksperten.dk/spm.phtml?id=16573

tdaugaard >>>

Af elle brugere på Eksperten, burde du da være bekendt med reglerne !

Sources skal gøres offentligt tilgængelige !

/*/morpheus\\*\\

Mange tak tdaugaard, du får lige nogle point

Hvis det er kan jeg da godt poste koden

<% strDomain = LCase(Trim(Request(\"Domain\"))) %>
<!--#include file=\"include/head.asp\" -->
<!--#include file=\"include/menu.asp\" -->         
        <p><b><font face=\"Tahoma\" size=\"2\">Domæne tester</font></b></p>
        <p><font face=\"Tahoma\" size=\"2\">
            <form method=\"get\" action=\"whois.asp\">
                <input type=\"text\" name=\"domain\" size=\"30\" value=\"<%=strDomain%>\"> <input type=\"submit\" value=\"Test\"><br>
                Check flg. domæne endelser:<br>
                <input type=\"checkbox\" name=\"ext_dk\" checked> .dk <input type=\"checkbox\" name=\"ext_dk\" checked> .com <input type=\"checkbox\" name=\"ext_dk\" checked> .net <input type=\"checkbox\" name=\"ext_dk\" checked> .org <input type=\"checkbox\" name=\"ext_dk\" checked> .ws
            </form>
<%
    If Len(strDomain) > 0 Then
        intDot = InStrRev(strDomain, \".\")

        If intDot > 0 Then
            strExt = Right(strDomain, Len(strDomain) - intDot)

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

            Select Case strExt
                Case \"com\", \"net\", \"org\", \"edu\"
                    objSocket.Host = \"rs.internic.net:43\"
                    strMatch = \"No match\"
                Case \"dk\"
                    objSocket.Host = \"whois.dk-hostmaster.dk:43\"
                    strMatch = \"% No entries found\"
                Case Else
                    objSocket.Host = \"whois.ripe.net:43\"
                    strMatch = \"% No entries found\"
            End Select

            objSocket.Open

            objSocket.SendLine(strDomain)
            objSocket.WaitForDisconnect

            strBuffer = objSocket.Buffer
               
            Select Case InStr(strBuffer, strMatch) > 0
                Case True:  Response.Write \"Domæne navnet <b>\" & strDomain & \"</b> er ledigt og kan bestilles ved at klikke <a href=\'bestil.asp?domain=\" & strDomain & \"\' onclick=\'this.blur();\'>her</a>\"
                Case False: Response.Write \"Desværre, domæne navnet <a href=\'http://www.\" & strDomain & \"/\' onclick=\'this.blur();\'><b>\" & strDomain & \"</b></a> er optaget.\"
            End Select

%>
<hr>
Result of domain query from <b><%=objSocket.Host%></b>:<pre><font size=2><%=strBuffer%></pre>
<%

            objSocket.Close
        Else
            Response.Write \"<p>Du skal angive et gyldigt domænenavn</p>\"
        End If
    End If
%>
        </p></font>
<!--#include file=\"include/bund_tilbud.asp\" -->

morhpeus:> sorry, han skrev \"send den\" og jeg havde ikke lige tid til at lægge den op på tdaugaard.dk.. nu var der heller ingen der spurgte efter den .. :-)

js17dk:> forresten skal du lige fjerne <!--#include .. --> linierne ..

har jeg gjort