<%
'原创作者:小艺 QQ:52093 时间:2005.6.30
Response.Write("<head><style><!--span{ tamanho da fonte: 9pt }--></style></head>")
Em caso de erro, retomar o próximo
Escureça este URL, este texto
thisurl=Request("thisurl") '定义文件地址(非Html格式文档)!
se este URL = "" então
Response.Write("<span>请先输入文件地址!</span>")
Resposta.Fim
Terminar se
Função objxmlhttp(xmlurl)
Em caso de erro, retomar o próximo
Definir objxml = CreateObject("Microsoft.XMLHTTP")
objxml.Open "get",xmlurl,falso
objxml.setrequestheader "tipo de conteúdo","aplicativo/x-www-form-urlencoded"
objxml.send
objxmlhttp = objxml.responsebody
se Errar então
Err.Limpar
Response.Write("<span>建立连接失败,文件不存在或网络有问题!;错误原因:"&Err.Description&"！</span>")
Resposta.Fim
Terminar se
Função final
'www.downcodes.com
Função bytes2BSTR(vIn)
strReturn = ""
Para i = 1 para LenB(vIn)
EsteCharCode = AscB(MidB(vIn,i,1))
Se ThisCharCode <&H80 Então
strReturn = strReturn & Chr(ThisCharCode)
Outro
PróximoCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
eu = eu + 1
Terminar se
Próximo
bytes2BSTR = strReturn
Função final
thisurl2=Split(thisurl,",")
Para cada um ii nesteurl2
estetexto=bytes2BSTR(objxmlhttp(ii))
se InStr(estetexto,"<html>")<>0 então
Response.Write("<span>"& ii &" <b>×</b></span><br>")
Outro
Response.Write("<span>"& ii &" <b>√</b></span><br>")
Terminar se
Próximo
se Errar então
Err.Limpar
Response.Write("<span>碰到意外!;错误原因:"&Err.Description&"！</span>")
Resposta.Fim
Terminar se
%>