<%
'原创作者:小艺 QQ:52093 时间:2005.6.30
Response.Write("<head><style><!--span{ font-size: 9pt }--></style></head>")
En caso de error Continuar siguiente
Atenuar esta URL, este texto
thisurl=Solicitud("thisurl") '定义文件地址(非Html格式文档)!
si estaurl="" entonces
Response.Write("<span>请先输入文件地址!</span>")
Respuesta.Fin
Finalizar si
la función objxmlhttp(xmlurl)
En caso de error Continuar siguiente
Establecer objxml = CreateObject ("Microsoft.XMLHTTP")
objxml.Abrir "obtener",xmlurl,falso
objxml.setrequestheader "tipo de contenido", "aplicación/x-www-form-urlencoded"
objxml.enviar
objxmlhttp = objxml.responsebody
si errar entonces
Err.Borrar
Response.Write("<span>建立连接失败,文件不存在或网络有问题!;错误原因:"&Err.Description&"！</span>")
Respuesta.Fin
terminar si
Función final
'www.downcodes.com
Función bytes2BSTR(vIn)
strRetorno = ""
Para i = 1 a LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
Si ThisCharCode < & H80 Entonces
strReturn = strReturn & Chr(ThisCharCode)
Demás
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
yo = yo + 1
Terminar si
Próximo
bytes2BSTR = strReturn
Función final
thisurl2=Split(thisurl,",")
Para cada ii en thisurl2
estetexto=bytes2BSTR(objxmlhttp(ii))
si InStr(estetexto,"<html>")<>0 entonces
Response.Write("<span>"& ii &" <b>×</b></span><br>")
Demás
Response.Write("<span>"& ii &" <b>√</b></span><br>")
terminar si
Siguiente
si Err entonces
Err.Borrar
Response.Write("<span>碰到意外!;错误原因:"&Err.Description&"！</span>")
Respuesta.Fin
terminar si
%>