<%
'رقم المنتج: QQ:52093 رقم الهاتف:2005.6.30
Response.Write("<head><style><!--span{ حجم الخط: 9pt }--></style></head>")
على خطأ استئناف التالي
خافت هذا الرابط، هذا النص
thisurl=Request("thisurl") '定义文件地址(非Html格式文档)!
إذا كان هذا URL = "" ثم
Response.Write("<span>请先输入文件地址!</span>")
الاستجابة.النهاية
نهاية إذا كانت
الدالة objxmlhttp(xmlurl)
على خطأ استئناف التالي
تعيين objxml = CreateObject("Microsoft.XMLHTTP")
objxml.Open "get"،xmlurl،false
objxml.setrequestheader "نوع المحتوى"، "application/x-www-form-urlencoded"
objxml.send
objxmlhttp = objxml.responsebody
إذا أخطأ بعد ذلك
خطأ.واضح
Response.Write("<span>建立连接失败,文件不存在或网络有问题!;错误原因:"&Err.Description&"!</span>")
الاستجابة.النهاية
انتهي إذا
وظيفة النهاية
"www.downcodes.com."
البايتات الدالة 2BSTR(vIn)
strReturn = ""
لأني = 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 في هذا 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>")
انتهي إذا
التالي
إذا أخطأ بعد ذلك
خطأ.واضح
Response.Write("<span>碰到意外!;错误原因:"&Err.Description&"!</span>")
الاستجابة.النهاية
انتهي إذا
%>