Es muy simple de escribir, pero solo implementa la función
<%
FunctionFormatur (sí)
Ifmid (sí, 5,1) <> "" entonces
Yes1 = izquierda (sí, 3)
Yes2 = correcto (sí, Cint (Len (sí))-3)
Formaturl = Yes1 & "." y Yes2
demás
Formaturl = sí
endif
Función final
'Obtener código fuente binario de página web remota
Functetboy (URL)
'OnerrorResumEnext
Setobjxml = server.createObject ("Microsoft.xmlhttp")
sinbjxml
.Preen "Get", url, falso, "", "
.enviar
getboy = .ResponseBody
fin
getboy = bytestobstr (getboy, "GB2312")
Setobjxml = nada
Función final
'Procesar el código de flujo binario
FunctionByTestObstr (strbody, CodeBase)
dimobjstream
setobjstream = server.createObject ("ADODB.Stream")
objstream.type = 1
objstream.mode = 3
objstream.
objstream.writstbody
objstream.position = 0
objstream.type = 2
objstream.charset = CodeBase
Bytestobstr = objstream.readText
objstream.close
setobjstream = nada
Función final
%>
El nombre de dominio no registrado es el siguiente
<%
'www.knowsky.com si se envía una consulta
Ifrequest.form ("sí") <> "" entonces
yes = reemplazar (request.form ("sí"), "", "") 'Eliminar espacios en la cadena de casilla de verificación
sí = dividir (sí, ",") 'instanciar una matriz de sí y asignar una matriz separada por comas a la nueva matriz de sí
FORI = 0ToUbund (sí) 'Transfiere el bucle de matriz comienza
url = "http://panda.www.net.cn/cgi-bin/check.cgi?domain=" & request.form ("dominio") & "& ext =" & sí (i)
wstr = getboy (url) 'Obtenga el código fuente después de la consulta
Ifstr (wstr, "nombre de dominio no registrado") <> 0then 'determina si es un nombre de dominio registrado
Response.Writequest.Form ("Domain") & "." & Formaturl (sí (i)) y "<br> <br> <br> <br> <br>" 'Lista de nombres de dominio no registrados
Endif