<%
'原著者:小艺 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>")
応答.終了
End if
関数 objxmlhttp(xmlurl)
エラー時は次へ再開
set objxml = CreateObject("Microsoft.XMLHTTP")
objxml.Open "get",xmlurl,false
objxml.setrequestheader "content-type","application/x-www-form-urlencoded"
objxml.send
objxmlhttp = objxml.responsebody
エラーの場合は
エラークリア
Response.Write("<span>建立连接失败,文件不存在または网络有问题!;错误原因:"&Err.Description&"！</span>")
応答.終了
次の場合に終了
終了機能
「www.downcodes.com」
関数 bytes2BSTR(vIn)
strReturn = ""
For i = 1 から LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 then
strReturn = strReturn & Chr(ThisCharCode)
それ以外
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
終了の場合
次
bytes2BSTR = strReturn
関数の終了
thisurl2=Split(thisurl,",")
For Each ii この URL 内 2
thistext=bytes2BSTR(objxmlhttp(ii))
if InStr(thistext,"<html>")<>0 then
Response.Write("<span>"& ii &" <b>×</b></span><br>")
それ以外
Response.Write("<span>"& ii &" <b>√</b></span><br>")
次の場合に終了
エラーの場合は
次へ
エラークリア
Response.Write("<span>意外なことに!;错误原因:"&Err.Description&"!</span>")
応答.終了
次の場合に終了
%>