-
'原创作者:小艺 QQ:52093 时间:2005.6.30
Response.Write("<head><style><!--span{ ขนาดตัวอักษร: 9pt }--></style></head>")
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
หรี่ thisurl, ข้อความนี้
thisurl=Request("thisurl") '定义文件地址(非Html格式文档)!
ถ้า thisurl="" แล้ว
Response.Write("<span>请先输入文件地址!</span>")
การตอบสนองสิ้นสุด
สิ้นสุดถ้า
ฟังก์ชัน objxmlhttp(xmlurl)
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
ตั้ง objxml = CreateObject("Microsoft.XMLHTTP")
objxml.Open "get",xmlurl,false
objxml.setrequestheader "ประเภทเนื้อหา", "แอปพลิเคชัน / x-www-form-urlencoded"
objxml.ส่ง
objxmlhttp = objxml.responsebody
ถ้าเกิดข้อผิดพลาดแล้ว
ผิดพลาด.เคลียร์
Response.Write("<span>建立连接失败,文件不存在或网络有问题!;错误原因:"&Err.Description&"！</span>")
การตอบสนองสิ้นสุด
จบถ้า
ฟังก์ชันสิ้นสุด
'www.downcodes.com'
ฟังก์ชั่น bytes2BSTR(vIn)
strReturn = ""
สำหรับ 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 = strReturn
สิ้นสุดฟังก์ชัน
thisurl2=Split(thisurl,",")
สำหรับแต่ละ ii ใน thisurl2
ข้อความนี้=bytes2BSTR(objxmlhttp(ii))
ถ้า 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>")
การตอบสนองสิ้นสุด
จบถ้า
-