Es ist sehr einfach zu schreiben, aber es implementiert nur die Funktion
<%
FunktionFormaturl (Ja)
IFMID (ja, 5,1) <> "" dann
yes1 = links (ja, 3)
yes2 = rechts (ja, cint (len (ja))-3)
formaturl = yes1 & "." & yes2
anders
Formaturl = Ja
Endif
Endfunktion
'Remote -Webseite Binärer Quellcode erhalten
FunctionGetboy (URL)
'onErrorresumenext
SetObjxml = server.createObject ("microsoft.xmlhttp"))
foutbjxml
.Open "GET", URL, falsch, ",", "
.schicken
Getboy = .ResponseBody
Endwith
getboy = byTestobstr (getboy, "gb2312")
SetObjxml = nichts
Endfunktion
'Binärstromcode verarbeiten
FunctionByTestObstr (Strkody, Codebasis)
Dimobjstream
setObjstream = server.createObject ("adodb.stream")
objstream.type = 1
objstream.mode = 3
objstream.open
Objstream.writessstrack
objstream.position = 0
objstream.type = 2
objstream.charset = codebase
ByTestObstr = objstream.readText
objstream.close
setObjstream = nichts
Endfunktion
%>
Der nicht registrierte Domain -Name lautet wie folgt
<%
'www.knowsky.com Wenn eine Abfrage eingereicht wird
IfRequest.form ("yes") <> "" dann
Ja = Ersetzen (Request.Form ("Ja"), "", "") 'Entfernen Sie Leerzeichen in der Kontrollkästchen -Zeichenfolge
Ja = split (ja, ",") 'instanziieren Sie eine Auswahl von Ja und weisen Sie dem neuen Ja-Array ein von Kommas getrennter Ja-Array von Ja zu
Fei = 0toubund (ja) 'Übertragen Sie die Array -Schleife startet
url = "http://panda.www.net.cn/cgi-in/check.cgi?domain=" & request.form ("domain") & "& ext =" & yes (i)
WSTR = getboy (URL) 'Holen Sie sich den Quellcode nach der Abfrage
IFSTR (WSTR, "nicht registrierter Domänenname") <> 0Then 'bestimmt, ob es sich um einen registrierten Domänennamen handelt
Response.writeRequest.form ("Domain") & "." & Formaturl (yes (i)) & "<br> <br> <br> <br>" List Unregistrierte Domainnamen
Endif