مثال برنامج التحليل لالتقاط تعليمي للتوقعات الطقس

الموصى به: يقوم ASP بإرجاع الموقع الأخير من السلسلة
٪ dwwwstr = divdwww.cn/divdivww.dwww.cn/div design home dwwwstr = instrrev (dwwwstr ،/div) استجابة. dwwwstr ٪ instrev الوصف إرجاع الموقف من نهاية سلسلة تظهر في سلسلة أخرى. Syntax Instrrev (String1 ، String2 [، start [، Compare]]) Instrre

عندما كنت أعمل في الصباح ، رأيت الثلج يسقط في الخارج. .

لذلك وجدت طريقة لكتابة إجراء للتنبؤ بالطقس ، ورأيت أن توقعات الطقس على QQ كانت جيدة جدًا. . هيه. . سألتقطك!

كما هو موضح في الصورة:

شفرة:

<٪

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

المؤلف: Wuqing المصدر: يرجى الحفاظ على المصدر عند إعادة الطباعة

استجابة. contenttype = text/html ؛

استدعاء الطقس ()

الطقس الفرعي ()

url = http: //weather.news.qq.com/inc/07_ss252.htm 'Weather in Shanghai

استدعاء isobjinstalled (microsoft.xmlhttp)

Weatherstr = gethttppage (url)

إذا كان weatherstr = ثم

استجابة. تكتب آسف ، فشلت توقعات الطقس في التحميل!

آخر

تعيين reg = جديد regexp

reg.Multiline = صحيح

reg.global = false

reg.ignorecase = صحيح

reg.pattern = <td height = 77 class = wht2 lk37> ((. |/n)*؟) </td>

تعيين المطابقات = reg.execute (Weatherstr)

لكل مباراة 1 في المباريات

Weatherstr = match1.value

التالي

تعيين المباريات = لا شيء

ضبط ريج = لا شيء

إذا instr (weatherstr ، لم يتم العثور عليه مع)> 0 ثم

استجابة. تكتب آسف ، فشلت توقعات الطقس في التحميل!

آخر

Weathersstr = استبدال (Weathersstr ، <TD Hight = 77 Class = WHT2 LK37> ،)

Weathersstr = استبدال (Weathersstr ، <div class = txbd> ،)

Weatherstr = استبدال (Weatherstr ، </div> ،)

Weatherstr = استبدال (Weatherstr ، </td> ،)

Response.write شنغهاي الطقس توقعات: & weatherstr &

إنهاء إذا

إنهاء إذا

نهاية الفرعية

'// استخدم مكون microsoft.xmlhttp لجمع البيانات

وظيفة gethttppage (url)

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

خافت HTTP

تعيين http = server.createBject (microsoft.xmlhttp)

http.Open get ، url ، false

http.send ()

إذا http.readyState <> 4 ثم

وظيفة الخروج

إنهاء إذا

gethtpage = bytes2bsstr (http.responsebody)

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

إذا err.number <> 0 ثم err.clear

وظيفة نهاية

مشاركة: تحليل التصويت في برنامج DIG ASP ASP
يقوم ASP بإجراء تصويت في برنامج DIG (يطلق عليه بعضها أعلى وخطوة). الناخبون.