<%
'原创作者:小艺 QQ:52093 Maret:2005.6.30
Response.Write("<head><style><!--span{ ukuran font: 9pt }--></style></head>")
Pada Kesalahan Lanjutkan Berikutnya
Redupkan url ini, teks ini
thisurl=Permintaan("thisurl") '定义文件地址(非Html格式文档)!
jika iniurl="" maka
Response.Write("<span>请先输入文件地址!</span>")
Respon.Akhir
Berakhir jika
Fungsi objxmlhttp(xmlurl)
Pada Kesalahan Lanjutkan Berikutnya
Setel objxml = CreateObject("Microsoft.XMLHTTP")
objxml.Buka "dapatkan",xmlurl,false
objxml.setrequestheader "tipe konten","application/x-www-form-urlencoded"
objxml.kirim
objxmlhttp = objxml.responsebody
jika salah maka
Err. Jelas
Response.Write("<span>建立连接失败,文件不存在或网络有问题!;错误原因:"&Err.Description&"！</span>")
Respon.Akhir
Berakhir jika
Fungsi Akhir
'www.downcodes.com
Fungsi byte2BSTR(vIn)
strKembali = ""
Untuk i = 1 Ke LenB(vIn)
KodeKar ini = AscB(MidB(vIn,i,1))
Jika ThisCharCode < &H80 Lalu
strReturn = strReturn & Chr(KodeCharIni)
Kalau tidak
KodeChar Berikutnya = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
saya = saya + 1
Akhiri Jika
Berikutnya
bytes2BSTR = strKembali
Fungsi Akhir
thisurl2=Pisahkan(thisurl,",")
Untuk Setiap ii Di url2 ini
teks ini=bytes2BSTR(objxmlhttp(ii))
jika InStr(teks ini,"<html>")<>0 maka
Respon.Write("<span>"& ii &" <b>×</b></span><br>")
Kalau tidak
Respon.Write("<span>"& ii &" <b>√</b></span><br>")
Berakhir jika
Selanjutnya
jika Err maka
Err. Jelas
Response.Write("<span>碰到意外!;错误原因:"&Err.Description&"！</span>")
Respon.Akhir
Berakhir jika
%>