C'est très simple à écrire, mais il implémente simplement la fonction
<%
Functionformaturl (oui)
Ifmid (oui, 5,1) <> "" alors
oui1 = gauche (oui, 3)
Oui2 = à droite (oui, Cint (Len (oui)) - 3)
formaturl = oui1 & "." & oui2
autre
Formaturl = oui
endire
Finition de fin
'Obtenez le code source binaire de la page Web distante
FunctionGetboy (URL)
'onerrorreumenext
SetObjxml = server.createObject ("Microsoft.xmlhttp")
SansBJXML
.Open "Get", URL, false, "", "
.envoyer
getboy = .Responsebody
fin
getboy = bytestobstr (getboy, "gb2312")
SetObjxml = rien
finition de fin
'Traitement du code de flux binaire
FunctionByTestObstr (Strbody, CodeBase)
dimobjstream
setObjstream = server.createObject ("adodb.stream")
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.writeSTRodbody
objstream.position = 0
objstream.type = 2
objStream.Charset = CodeBase
ByTestObstr = objstream.readText
objstream.close
setObjstream = rien
Finition de fin
%>
Le nom de domaine non enregistré est le suivant
<%
'www.knowsky.com Si une requête est soumise
Ifrequest.form ("oui") <> "" alors
oui = remplacer (request.form ("oui"), "", "") "Supprimer les espaces dans la chaîne de case à cocher
Oui = Split (Oui, ",") 'Instancier un tableau de oui et attribuer un tableau séparé de la virgule de oui au nouveau tableau de oui
Fori = 0Toubund (oui) 'Transférer la boucle de tableau commence
url = "http://panda.www.net.cn/cgi-bin/check.cgi?domain=" & request.form ("domaine") & "& ext =" & oui (i)
WSTR = Getboy (URL) 'Obtenez le code source après la requête
Ifstr (wstr, "nom de domaine non enregistré") <> 0Then 'détermine s'il s'agit d'un nom de domaine enregistré
Réponse.writeRequest.form ("domaine") & "." & Formaturl (oui (i)) & "<br> <br> <br> <br> <br>" 'Liste des noms de domaine non enregistrés
Endire