http://www.dalgaards.dk/www.rtk-design.dk/index.htm
klik på nedstående:
- Priser
- Bestilling af domæne.
1. hvordan fjerne jeg den scroller ??
- test et domain
2. Kan jeg samle texten lidt så jeg slipper for scroller.?
ASP'en ser såden her ud...
<%
'
' Copyright 2003 NT Consult
'
http://www.ntconsult.dk
'
' Pak filerne ud, og læg dem i en mappe på webserveren.
' w3 Sockets SKAL være installeret på serveren for at programmet virker.
' w3 Sockets kan hentes på
http://www.duplo.se
'
' Husk at passe på med at bruge en domænetester. DK Hostmaster logger alle
forespørgsler,
' og hvis der kommer for mange fra en bestemt IP adresse, så har de lov til
at lukke for den
' adresse. Det er derfor ikke smart at bruge domænetesteren for meget hvis
man har sit site
' liggende hos en udbyder, og der pludselig bliver lukket for deres server.
' Bare en reminder!
'
'
%>
<html>
<head>
<link href="default_style.css" rel="stylesheet" type="text/css" />
<script src="fade.js" language="Javascript"></script>
</head>
<body topmargin="0" leftmargin="0">
<% Select Case LCase(Request.QueryString("action")) %><% Case "info" %><%
Sub WhoisInfo(strDomain, strServer)
objSocket.Host = strServer & ":43"
objSocket.Open()
objSocket.SendLine(strDomain)
objSocket.WaitForDisconnect()
Response.Write( "<blockquote><pre>" & objSocket.Buffer &
"</pre></blockquote>" )
objSocket.Close()
End Sub
Response.Write "<html><body>"
strDomainName = Request.Querystring("Domain").item
strCode = Request.Querystring("code").item
Set objSocket = Server.CreateObject("Socket.TCP")
IF strcode = "dk" then
SearchChar = "No entries found for the selected source"
Call WhoisInfo(strDomainName, "whois.dk-hostmaster.dk")
ElseIf strcode = "se" then
SearchChar = "No data found."
Call WhoisInfo(strDomainName, "whois.nic-se.se")
ElseIf strcode = "nu" then
SearchChar = "NO MATCH for domain"
Call WhoisInfo(strDomainName, "whois.nic.nu")
ElseIf strcode = "no" then
SearchChar = "no matches"
Call WhoisInfo(strDomainName, "whois.norid.no")
ElseIf strcode = "as" then
SearchChar = "Domain Not Found"
Call WhoisInfo(strDomainName, "whois.nic.as")
ElseIf strcode = "com" then
SearchChar = "No match for "
Call WhoisInfo(strDomainName, "whois.verisign-grs.com")
ElseIf strcode = "info" then
SearchChar = "NOT FOUND"
Call whoisInfo(strDomainName, "whois.afilias.net")
ElseIf strcode = "biz" then
SearchChar = "Not found:"
Call whoisInfo(strDomainName, "whois.biz")
ElseIf strcode = "org" then
SearchChar = "NOT FOUND"
Call whoisInfo(strDomainName, "whois.publicinterestregistry.net")
ElseIf strcode = "net" then
SearchChar = "No match for "
Call whoisInfo(strDomainName, "whois.verisign-grs.com")
End If
Set objSocket = Nothing
Response.Write "</body></html>"
%><% Case "hent" %><%
Dim strDomainName, objSocket
Sub Whois(strDomain, strServer)
objSocket.Host = strServer & ":43"
objSocket.Open()
objSocket.SendLine(strDomain)
objSocket.WaitForDisconnect()
SearchString = objSocket.Buffer
Retur = Instr(SearchString, SearchChar)
If retur = "0" Then
Response.Write( "<p class='tNewsOverskrift'>Domænetester<br><br><table
border='0' width='615' id='table6'>" )
Response.Write( "<tr valign='top'>" )
Response.Write( "<td width='30%' class='DownloadTabOver'>Domæne</td>" )
Response.Write( "<td width='30%' class='DownloadTabOver'>Status</td>" )
Response.Write( "<td width='30%' class='DownloadTabOver'>Info</td>" )
Response.Write( "<td width='30%' class='DownloadTabOver'>Køb</td>" )
Response.Write( "</tr>" )
Response.Write( "<tr valign='top'>" )
Response.Write( "<td class='DownloadTabUnder'>"&strDomain&"</td>" )
Response.Write( "<td class='DownloadTabUnder'>Optaget</td>" )
Response.Write( "<td class='DownloadTabUnder'><a
href='domain_checker.asp?action=info&Domain="&strDomain&"&code="&strCode&"'>
Info</a></td>" )
Response.Write( "<td class='DownloadTabUnder'><img
src='red.gif'> </td>" )
Response.Write( "</tr>" )
Response.Write( "</table></p>" )
ElseIf retur > "0" then
Response.Write( "<p class='tNewsOverskrift'>Domænetester<br><br><table
border='0' width='615' id='table6'>" )
Response.Write( "<tr valign='top'>" )
Response.Write( "<td width='30%' class='DownloadTabOver'>Domæne</td>" )
Response.Write( "<td width='30%' class='DownloadTabOver'>Status</td>" )
Response.Write( "<td width='30%' class='DownloadTabOver'>Info</td>" )
Response.Write( "<td width='30%' class='DownloadTabOver'>Køb</td>" )
Response.Write( "</tr>" )
Response.Write( "<tr valign='top'>" )
Response.Write( "<td class='DownloadTabUnder'>"&strDomain&"</td>" )
Response.Write( "<td class='DownloadTabUnder'>Ledigt</td>" )
Response.Write( "<td> </td>" )
Response.Write( "<td class='DownloadTabUnder'><img
src='green.gif'> </td>" )
Response.Write( "</tr>" )
Response.Write( "</table></p>" )
End If
objSocket.Close()
End Sub
Sub Whois2(strDomain, strServer)
objSocket.Host = strServer & ":43"
objSocket.Open()
objSocket.SendLine(strDomain)
objSocket.WaitForDisconnect()
SearchString = objSocket.Buffer
Retur = Instr(SearchString, SearchChar)
If retur = "0" Then
Response.Write( "<tr valign='top'>" )
Response.Write( "<td class='DownloadTabUnder'>"&strDomain&"</td>" )
Response.Write( "<td class='DownloadTabUnder'>Optaget</td>" )
Response.Write( "<td class='DownloadTabUnder'><a
href='domain_checker.asp?action=info&Domain="&strDomain&"&code="&strCode&"'>
Info</a></td>" )
Response.Write( "<td class='DownloadTabUnder'><img
src='red.gif'> </td>" )
Response.Write( "</tr>" )
ElseIf retur > "0" then
Response.Write( "<tr valign='top'>" )
Response.Write( "<td class='DownloadTabUnder'>"&strDomain&"</td>" )
Response.Write( "<td class='DownloadTabUnder'>Ledigt</td>" )
Response.Write( "<td class='DownloadTabUnder'> </td>" )
Response.Write( "<td class='DownloadTabUnder'><img
src='green.gif'> </td>" )
Response.Write( "</tr>" )
End If
objSocket.Close()
End Sub
Response.Write "<html><body>"
strDomainName = Request.Form("Domain").item
strCode = Request.Form("code").item
Set objSocket = Server.CreateObject("Socket.TCP")
IF strcode = "dk" then
SearchChar = "No entries found for the selected source"
Call whois(strDomainName & ".dk", "whois.dk-hostmaster.dk")
ElseIf strcode = "se" then
SearchChar = "No data found."
Call whois(strDomainName & ".se", "whois.nic-se.se")
ElseIf strcode = "no" then
SearchChar = "no matches"
Call Whois(strDomainName & ".no", "whois.norid.no")
ElseIf strcode = "nu" then
SearchChar = "NO MATCH for domain"
Call whois(strDomainName & ".nu", "whois.nic.nu")
ElseIf strcode = "as" then
SearchChar = "Domain Not Found"
Call whois(strDomainName & ".as", "whois.nic.as")
ElseIf strcode = "com" then
SearchChar = "No match for "
Call whois(strDomainName & ".com", "whois.verisign-grs.com")
ElseIf strcode = "info" then
SearchChar = "NOT FOUND"
Call whois(strDomainName & ".info", "whois.afilias.net")
ElseIf strcode = "biz" then
SearchChar = "Not found:"
Call whois(strDomainName & ".biz", "whois.biz")
ElseIf strcode = "org" then
SearchChar = "NOT FOUND"
Call whois(strDomainName & ".org", "whois.publicinterestregistry.net")
ElseIf strcode = "net" then
SearchChar = "No match for "
Call whois(strDomainName & ".net", "whois.verisign-grs.com")
ElseIf strcode = "alle" then
Response.Write( "<p class='tNewsOverskrift'>Domænetester<br><br><table
border='0' width='615' id='table6'>" )
Response.Write( "<tr valign='top'>" )
Response.Write( "<td width='30%' class='DownloadTabOver'>Domæne</td>" )
Response.Write( "<td width='30%' class='DownloadTabOver'>Status</td>" )
Response.Write( "<td width='30%' class='DownloadTabOver'>Info</td>" )
Response.Write( "<td width='30%' class='DownloadTabOver'>Køb</td>" )
Response.Write( "</tr>" )
SearchChar = "No entries found for the selected source"
strcode = "dk"
Call whois2(strDomainName & ".dk", "whois.dk-hostmaster.dk")
SearchChar = "No data found."
strcode = "se"
Call whois2(strDomainName & ".se", "whois.nic-se.se")
SearchChar = "no matches"
strcode = "no"
Call Whois2(strDomainName & ".no", "whois.norid.no")
SearchChar = "NO MATCH for domain"
strcode = "nu"
Call whois2(strDomainName & ".nu", "whois.nic.nu")
SearchChar = "Domain Not Found"
strcode = "as"
Call whois2(strDomainName & ".as", "whois.nic.as")
SearchChar = "No match for "
strcode = "com"
Call whois2(strDomainName & ".com", "whois.verisign-grs.com")
SearchChar = "NOT FOUND"
strcode = "info"
Call whois2(strDomainName & ".info", "whois.afilias.net")
SearchChar = "Not found:"
strcode = "biz"
Call whois2(strDomainName & ".biz", "whois.biz")
SearchChar = "NOT FOUND"
strcode = "org"
Call whois2(strDomainName & ".org", "whois.publicinterestregistry.net")
SearchChar = "No match for "
strcode = "net"
Call whois2(strDomainName & ".net", "whois.verisign-grs.com")
Response.Write( "</table></p>" )
End If
Set objSocket = Nothing
Response.Write "</body></html>"
%><% Case else %><p align="center">
<table border="0" id="table5">
<tr valign="top">
<td class="tNewsOverskrift">Domænetester</td>
</tr>
<tr valign="top" height="500">
<td class="tNewsTekstS">
<form name="form" method="POST" action="domain_checker.asp?action=hent">
<p>Skriv det navn du vil teste:
<input type="text" name="domain" size="20">
<select size="1" name="code">
<option value="dk">.dk</option>
<option value="se">.se</option>
<option value="no">.no</option>
<option value="com">.com</option>
<option value="nu">.nu</option>
<option value="as">.as</option>
<option value="info">.info</option>
<option value="biz">.biz</option>
<option value="org">.org</option>
<option value="net">.net</option>
<option value="alle" selected>alle domæner</option>
</select></p>
<p align="center"><input type="submit" value="Test" name="B1"></p>
</form>
</td>
</tr>
</table>
</p>
<% End Select %></td>
</body>
</html>
mvh. Rune Thougaard
--
http://www.rtk-design.dk //
http://www.vinperlen.dk
http://www.hh-indretning.dk //
http://www.dalgaards.dk