<%
'原创作者:小艺 QQ:52093 Date de sortie:2005.6.30
Response.Write("<head><style><!--span{ font-size: 9pt }--></style></head>")
En cas d'erreur, reprendre ensuite
Diminuer cetteurl,cetexte
thisurl=Request("thisurl") '定义文件地址(非Html格式文档) !
si thisurl="" alors
Response.Write("<span>请先输入文件地址!</span>")
Réponse.Fin
Terminer si
Fonction objxmlhttp(xmlurl)
En cas d'erreur, reprendre ensuite
Définir objxml = CreateObject("Microsoft.XMLHTTP")
objxml.Ouvrez "get", xmlurl, false
objxml.setrequestheader "content-type", "application/x-www-form-urlencoded"
objxml.envoyer
objxmlhttp = objxml.responsebody
si Err alors
Err.Effacer
Response.Write("<span>建立连接失败,文件不存在或网络有问题!;错误原因:"&Err.Description&"！</span>")
Réponse.Fin
Terminer si
Fonction de fin
'www.downcodes.com
Fonction octets2BSTR(vIn)
strRetour = ""
Pour i = 1 À LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
Si ThisCharCode < &H80 Alors
strReturn = strReturn & Chr(ThisCharCode)
Autre
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
je = je + 1
Fin si
Suivant
octets2BSTR = strReturn
Fin de la fonction
thisurl2=Split(thisurl,",")
Pour chaque ii Dans thisurl2
thistext=bytes2BSTR(objxmlhttp(ii))
si InStr(thistext,"<html>")<>0 alors
Réponse.Write("<span>"& ii &" <b>×</b></span><br>")
Autre
Réponse.Write("<span>"& ii &" <b>√</b></span><br>")
Terminer si
Suivant
si Err alors
Err.Effacer
Response.Write("<span>碰到意外!;错误原因:"&Err.Description&"！</span>")
Réponse.Fin
Terminer si
%>