<%
'原创作者:小艺 QQ:52093 Версия:2005.6.30
Response.Write("<head><style><!--span{font-size: 9pt }--></style></head>")
При ошибке Возобновить Далее
Уменьшить этот URL, этот текст
thisurl=Request("thisurl") '定义文件地址(非Html格式文档)!
если этот URL="" тогда
Response.Write("<span>请先输入文件地址!</span>")
Ответ.Конец
Завершить, если
функция objxmlhttp(xmlurl)
При ошибке Возобновить Далее
Установите objxml = CreateObject("Microsoft.XMLHTTP")
objxml.Откройте «получить»,xmlurl,false
objxml.setrequestheader "тип контента", "application/x-www-form-urlencoded"
objxml.send
objxmlhttp = objxml.responsebody
если Эрр, то
Ошиб.Очистить
Response.Write("<span>建立连接失败,文件不存在或网络有问题!;错误原因:"&Err.Description&"！</span>")
Ответ.Конец
Конец, если
Конечная функция
'www.downcodes.com
Функция bytes2BSTR(vIn)
стрReturn = ""
Для i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
Если ЭтотCharCode < &H80 Тогда
стрReturn = strReturn & Chr(ThisCharCode)
Еще
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
я = я + 1
Конец, если
Следующий
bytes2BSTR = стрReturn
Конечная функция
thisurl2=Split(thisurl,",")
Для каждого ii в этом URL2
thistext=bytes2BSTR(objxmlhttp(ii))
если InStr(thistext,"<html>")<>0 тогда
Response.Write("<span>"& ii &" <b>×</b></span><br>")
Еще
Response.Write("<span>"& ii &" <b>√</b></span><br>")
Конец, если
Далее,
если Err, то
Ошиб.Очистить
Response.Write("<span>碰到意外!;错误原因:"&Err.Description&"！</span>")
Ответ.Конец
Конец, если
%>