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

اكتب بواسطة niaooked qq408611119

www.knowsky.com

＜ ٪

إذا ساعة (الآن) = 9 ودقيقة (الآن) ＜ 30 ثم

GetCategories ()

إنهاء إذا

وظيفة getCategories ()

عند استئناف الخطأ التالي

قاتمة oxmlhttp "ككائن

كائنات قاتمة ككائن

نص خافت

قاتمة نقاط ، pos1

اضبط OxmlHTTP = createObject (microsoft.xmlhttp)

'--- قم بتعيين مكالمة XMLHTTP وإرسالها (بدون PARM كفئة

'--- مدرج في عنوان 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 = mid (bodytext ، pos ، pos1)

bodytext = انقسام (bodytext ، ＜ الجدول)

pos = instr (bodytext (4) ، ＜ tr)

pos1 = instr (bodytext (4) ، ＜/tr>)

body = mid (bodytext (4) ، pos ، len (bodytext (4))-pos)

الجسم = الانقسام (الجسم ، ＜/الجدول ＞)

body1 = split (استبدال (استبدال (استبدال (الجسم (0) ، ＜br> ،) ، ＜/td> ،) ، ＜/tr> ،) ، الطقس)

لأني = 1 إلى أوبوند (body1)

body3 = الانقسام (body1 (i) ، ＜ td)

Weather = Weather & Document.write (& I & $ & Weather & htmlencode (trim (Body3 (0)) &) ؛

التالي

الطقس = استبدال (الطقس ، 1 $ ، ＜ font color =#ffffffff ＞【 اليوم 】＜/font ＞)

الطقس = استبدال (الطقس ، 2 $ ، ＜ font color =#ffffff ＞【 غدًا 】＜/font ＞)

الطقس = استبدال (الطقس ، 3 $ ، ＜ font color =#ffffffff ＞【 يومًا بعد يوم 】＜/font ＞)

set fs = createObject (scripting.filesystemObject)

set f = fs.createTextFile (request.ServerVariables (Appl_Physical_Path) & tq.js ، true)

F.Write (document.write ('Mianyang Weather Propearch:') ؛ & vbcrlf & replace (Weather ، ＜br> ،)))

F.Close

تعيين f = لا شيء

تعيين fs = لا شيء

Response.Write Mianyang Weather توقعات: والطقس

اضبط oxmlhttp = لا شيء

إذا err.number ＜＞ 0 ثم

كان هناك استجابة خطأ. write ، وصف خطأ: & err.description & ＜br> مصدر الخطأ & err.source

استجابة.

إنهاء إذا

وظيفة نهاية

وظيفة bytestobstr (الجسم ، CSET)

قاتمة objstream

تعيين OBJStream = server.createBject (ADODB.Stream)

objstream.type = 1

objstream.mode = 3

objstream.Open

objstream.write الجسم

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 = استبدال (fString ، chr (32) ،) '& nbsp ؛

fString = استبدال (fString ، chr (9) ،) '& nbsp ؛

fString = استبدال (fString ، chr (34) ، & quot ؛)

fString = استبدال (fstring ، chr (39) ، &#39 ؛) 'تصفية اقتباس واحد

FSTRING = استبدال (FSTRING ، CHR (13) ،)

fString = استبدال (fString ، Chr (10) و CHR (10) ، ＜/p> ＜ p>)

fString = استبدال (FSTRING ، CHR (10) ، ＜br＞)

htmlencode = fString

إنهاء إذا

وظيفة نهاية

٪ ＞