写的很简单，只是实现了功能
<%
Formato de función (sí)
Si mid(sí,5,1)<>"" entonces
sí1 = izquierda(sí,3)
sí2 = derecha(sí,cint(len(sí))-3)
formatorl = yes1 & "." & si2
demás
formatol=si
terminar si
Función final
'取得远程网页二进制源代码
Función getBoy(url)
'en caso de error, reanudar siguiente
Establecer objXml = Server.CreateObject ("Microsoft.XmlHttp")
con objXml
.open "obtener",url,falso,",""
.enviar
getBoy = .respuestacuerpo
terminar con
getBoy = BytesToBstr(GetBoy,"GB2312")
Establecer objXml = nada
función final
'处理二进制流代码
Función BytesToBstr(strBody,CodeBase)
objStream tenue
establecer objStream = Server.CreateObject ("Adodb.Stream")
objStream.Tipo = 1
objStream.Modo =3
objStream.Open
objStream.Escribir strBody
objStream.Posición = 0
objStream.Tipo = 2
objStream.Charset = CódigoBase
BytesToBstr = objStream.ReadText
objStream.Cerrar
establecer objStream = nada
Función final
%>
未注册的域名如下
<%
'www.knowsky.com如果提交了查询
Si Request.Form("sí") <> "" Entonces
yes = reemplazar(Request.Form("yes")," ","") '去除复选框字符串中的空格
yes = split(yes,",") '实例化一个数组yes，将用逗号隔开的yes数组赋值给yes新数组
Para i = 0 a ubound(yes) '遍历数组循环开始
url = " http://panda.www.net.cn/cgi-bin/Check.cgi?domain="&Request.Form("dominio")&"&ext="&yes(i )
wstr = getBoy(url) '获取查询后的源代码
Si instr(wstr,"未被注册的域名") <> 0 Entonces '判断是否为已经注册的域名
Respuesta.Solicitud de escritura.Form("dominio")&"."&formaturl(yes(i))&"<br><br><br><br>" '列出未注册的域名
Terminar si
Próximo
respuesta.Escribe "<p><p><p>已注册的域名如下:<br>"
Para i = 0 a ubound(yes) '遍历数组循环开始
url = " http://panda.www.net.cn/cgi-bin/Check.cgi?domain="&Request.Form("dominio")&"&ext="&yes(i )
wstr = getBoy(url) '获取查询后的源代码
Si instr(wstr,"已被注册的域名") <> 0 Entonces '判断是否为已经注册的域名
Respuesta.Solicitud de escritura.Form("dominio")&"."&formaturl(yes(i))&"<br><br><br><br>" '列出已注册的域名
Terminar si
Próximo
De lo contrario
%>
<nombre del formulario="formulario1" método="publicación" acción="">
<p>
<nombre de entrada="dominio" tipo="texto" id="dominio">
<tipo de entrada="enviar" nombre="Enviar" valor="查询">
</p>
<p>
<nombre de entrada="sí" tipo="casilla de verificación" id="sí" valor="com">
.com
<nombre de entrada="sí" tipo="casilla de verificación" id="sí" valor="net">
.neto
<nombre de entrada="sí" tipo="casilla de verificación" id="sí" valor="org">
.org</p>
<p>
<nombre de entrada="sí" tipo="casilla de verificación" id="sí" valor="comcn">
.com.cn
<nombre de entrada="sí" tipo="casilla de verificación" id="sí" valor="netcn">
.net.cn
<nombre de entrada="sí" tipo="casilla de verificación" id="sí" valor="orgcn">
org.cn
<nombre de entrada="sí" tipo="casilla de verificación" id="sí" valor="govcn">
gov.cn</p>
<p>
<nombre de entrada="sí" tipo="casilla de verificación" id="sí" valor="información">
.info
<nombre de entrada="sí" tipo="casilla de verificación" id="sí" valor="negocio">
.negocio
<nombre de entrada="sí" tipo="casilla de verificación" id="sí" valor="tv">
.televisor
<nombre de entrada="sí" tipo="casilla de verificación" id="sí" valor="cc">
.cc</p>
<p>
<nombre de entrada="sí" tipo="casilla de verificación" id="sí" valor="cn">
.cn
<nombre de entrada="sí" tipo="casilla de verificación" id="sí" valor="nombre">
.nombre</p>
</formulario>
<%
Terminar si
%>