<%
原作者：小藝 QQ:52093 時間:2005.6.30
Response.Write("<head><style><!--span{ font-size: 9pt }--></style></head>")
出錯時繼續下一步
調暗此網址、此文本
thisurl=Request("thisurl") '定義檔位址(非Html格式文檔)!
如果這個url =「」那麼
Response.Write("<span>請先輸入檔案位址!</span>")
回應.結束
結束 if
函數 objxmlhttp(xmlurl)
出錯時繼續下一步
設定 objxml = CreateObject("Microsoft.XMLHTTP")
objxml.開啟“取得”，xmlurl，false
objxml.setrequestheader“內容類型”，“application/x-www-form-urlencoded”
objxml.發送
objxmlhttp = objxml.responsebody
如果出錯那麼
錯誤清除
Response.Write("<span>建立連線失敗,檔案不存在或網路有問題!;錯誤原因:"&Err.Description&"!</span>")
回應.結束
結束如果
結束功能
'www.downcodes.com
函數 bytes2BSTR(vIn)
str返回=“”
對於 i = 1 至 LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
如果 ThisCharCode < &H80 那麼
strReturn = strReturn & Chr(ThisCharCode)
別的
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
我=我+1
結束如果
下一個
bytes2BSTR = str返回
結束函數
thisurl2=Split(thisurl,",")
對於 thisurl2 中的每個 ii
thistext=bytes2BSTR(objxmlhttp(ii))
if InStr(thistext,"<html>")<>0 那麼
Response.Write("<span>"& ii &" <b>×</b></span><br>")
別的
Response.Write("<span>"& ii &" <b>√</b></span><br>")
結束如果
接下來
如果出錯則
錯誤清除
Response.Write("<span>大聲意外!;錯誤原因:"&Err.Description&"!</span>")
回應.結束
結束如果
%>