Hej!
> Jeg efterlyser en komplet kode til domænetest.
> Kan nogen hjælpe? Er det noget man betater for at have adgang til?
> Jeg har til oplysning adgang til ASp
Hvis du har adgang til at installere komponenter på serveren, kan du på
http://tech.dimac.net/ finde en god komponent (w3sockets), hvor der
medfølger et fint eksempel på, hvordan du laver et whois opslag. Det er ikke
100% komplet, men ganske tæt på.
Har du ikke mulighed for dette, kan du muligvis bruge flg. kode som jeg lige
strikkede sammen. Det skal blot gemmes som en .asp fil med et vilkårligt
navn. Det kan ikke vise, hvem der evt. ejer et domæne, men alene om det er
ledigt eller ej.
Bemærk! Det er IKKE pænt kodet, eksekverer et eksternt program på serveren
og rydder ikke så pænt op. Men det virker til husbehov!
--8<----------------------
<html><head><title>Domain test</title></head><body>
<form method="get" action="<% =request.servervariables("script_name") %>">
Domain <input type="text" name="domain" value="<% =request("domain") %>">
<input type="submit">
</form><br>
<% if request("domain")<>"" then
set shell=server.createobject("wscript.shell")
return = shell.run("cmd.exe /c nslookup " & request("domain") & " > " &
server.mappath("temp.txt"),0,TRUE)
set fso = createobject("scripting.filesystemobject")
set output = fso.opentextfile(server.mappath("temp.txt"),1)
while not output.atendofstream
soutput = soutput & output.readline
wend
output.close
if instr(1,""&soutput,request("domain"),1)>0 then
response.write("<b>"&request("domain")&"</b> er registreret.")
else
response.write("<b>"&request("domain")&"</b> er ledigt.")
end if
end if %>
</body></html>
--8<----------------------
mvh
Kim Jensen