استخدم XMLHTTP لكتابة برنامج للتنبؤ بالطقس

أنا أعمل في بوابة محلية، ويجب تحديث الطقس على الموقع كل يوم. بمرور الوقت، أصبح الأمر مزعجًا للغاية، لذا كتبت أخبارًا مجدولة عن اللص، يرجى الرجوع إلى متطلبات النظام بعد نشرها: دعم FSO، خادم UDP TCP/IP،

ما يلي هو محتوى اللص.
اسم الملف TianQi.asp
الكتابة بواسطة Nioked QQ408611119
www.downcodes.com
<%
إذا كانت الساعة (الآن) = 9 والدقيقة (الآن) <30 إذن
الحصول على الفئات ()
نهاية إذا
الدالة getCategories()
على خطأ استئناف المقبل
خافت oXMLHTTP 'ككائن
فئات خافتة ككائن
DimBodyText
خافت نقاط البيع، Pos1
تعيين oXMLHTTP = CreateObject("Microsoft.XMLHTTP")
'--- قم بتعيين استدعاء XMLHTTP وإرسال الإصدار (لا يوجد بارم كفئة
'--- تم تضمينه في عنوان URL
oXMLHTTP.open "GET"، http://weather.china.com.cn/travel_gntq.php?cityid=56196&cityname =Mianyang"،False 'استبدل هذا المكان بعنوانك الخاص
oXMLHTTP.send
'--- قم بتحميل الاستجابة في جزيرة بيانات الفئات
BodyText=oXMLHTTP.responsebody
BodyText=BytesToBstr(BodyText،"gb2312")
Pos=Instr(BodyText،"<body")
pos1=Instr(BodyText,"</body>")
BodyText = منتصف (BodyText، pos، pos1)
BodyText=split(BodyText,"<table")
Pos=Instr(BodyText(4),"<tr")
pos1=Instr(BodyText(4),"</tr>")
Body=mid(BodyText(4),pos,len(BodyText(4))-pos)
الجسم = الانقسام (الجسم، "</table>")
body1=split(replace(replace(replace(body(0),"<br>"،")،"</td>"،")،"</tr>"،"،"،"الطقس" )
لأني= 1 إلى ubound(body1)
body3=split(body1(i),"<td")
Weather=weather & "document.write("""& i&"$" & "Weather" & HTMLEncode(trim(body3(0))) & """);" & vbcrlf
التالي
Weather=replace(weather,"1$",<FONT color=#ffffff>【اليوم】</FONT>")
Weather=replace(weather,"2$"،<FONT color=#ffffff>【غدًا】</FONT>")
Weather=replace(weather,"3$"،<FONT color=#ffffff>【بعد غد】</FONT>")
تعيين خ = CreateObject("Scripting.FileSystemObject")
تعيين f = fs.CreateTextFile(request.ServerVariables("APPL_PHYSICAL_PATH")& "tq.js"، True)
f.write("document.write('توقعات الطقس في ميانيانغ:');" &vbcrlf & استبدال(الطقس،"<BR>"،"))
f. إغلاق
تعيين و = لا شيء
تعيين خ = لا شيء
Response.write "توقعات الطقس في ميانيانغ:" والطقس
اضبط oXMLHTTP = لا شيء
إذا err.number<>0 ثم
Response.write "حدث خطأ، وصف الخطأ:"&err.description & "<br>مصدر الخطأ"&err.source
استجابة. النهاية ()
نهاية إذا
وظيفة النهاية

BytesToBstr(body,Cset)
objstream خافت
تعيين objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.اكتب النص
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
تعيين objstream = لا شيء
وظيفة النهاية
الوظيفة العامة HTMLEncode(fString)
إذا لم يكن IsNull(fString) إذن
fString = استبدال(fString, ">", "&gt;")
fString = استبدال (fString، "<"، "&lt؛")
fString = Replace(fString, CHR(32), " ") '&nbsp;
fString = Replace(fString, CHR(9), " ") '&nbsp;
fString = استبدال(fString, CHR(34), "&quot;")
fString = Replace(fString, CHR(39), "&#39;") 'تصفية الاقتباس المفرد
fString = استبدال (fString، CHR(13)، "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = استبدال(fString, CHR(10), "<BR> ")
HTMLEncode = fString
نهاية إذا
وظيفة النهاية
%>