โปรแกรมการวิเคราะห์ตัวอย่างเพื่อจับภาพการพยากรณ์อากาศ _asp การสอน

แนะนำ: ASP ส่งคืนตำแหน่งสุดท้ายของสตริง
% dwwwstr = divdwww.cn/divdivwww.dwww.cn/div ออกแบบบ้าน dwwwstr = instrrev (dwwwstr,/div) การตอบสนองการเขียน dwwwstr % คำอธิบายคำอธิบายส่งคืนตำแหน่งจากปลายสตริงที่ปรากฏในสายอื่น ไวยากรณ์ instrrev (string1, string2 [, start [, compare]]) instrre

เมื่อฉันทำงานใน บริษัท ในตอนเช้าฉันเห็นหิมะตกอยู่ข้างนอก -

ดังนั้นฉันจึงพบวิธีในการเขียนขั้นตอนสำหรับการพยากรณ์อากาศและฉันเห็นว่าการพยากรณ์อากาศใน QQ ค่อนข้างดี - ฮิฮิ - ฉันจะจับคุณ!

ดังที่แสดงในภาพ:

รหัส:

-

'เมื่อเกิดข้อผิดพลาดต่อไป

'ผู้แต่ง: Wuqing ที่มา: โปรดเก็บแหล่งที่มาเมื่อพิมพ์ซ้ำ

Response.contentType = Text/HTML;

โทรหาอากาศ ()

สภาพอากาศย่อย ()

url = http: //weather.news.qq.com/inc/07_ss252.htm 'สภาพอากาศในเซี่ยงไฮ้

โทร isobjinstalled (microsoft.xmlhttp)

Weatherstr = gethttppage (url)

ถ้า Weatherstr = จากนั้น

Response.write ขออภัยการพยากรณ์อากาศล้มเหลวในการโหลด!

อื่น

ตั้งค่า reg = ใหม่ regexp

reg.multiline = true

reg.global = false

reg.ignorecase = true

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

Set Matches = reg.execute (Weatherstr)

สำหรับแต่ละ match1 ในการแข่งขัน

weatherstr = match1.value

ต่อไป

ตั้งค่าการจับคู่ = ไม่มีอะไร

ตั้งค่า reg = ไม่มีอะไร

ถ้า Instr (Weatherstr ไม่พบ)> 0 แล้ว

Response.write ขออภัยการพยากรณ์อากาศล้มเหลวในการโหลด!

อื่น

Weatherstr = แทนที่ (Weatherstr, <td height = 77 class = wht2 lk37>,)

weatherstr = แทนที่ (Weatherstr, <div class = txbd>,)

Weatherstr = แทนที่ (Weatherstr, </div>,)

Weatherstr = แทนที่ (Weatherstr, </td>,)

Response.write Shanghai Weather Porting: & Weatherstr &

สิ้นสุดถ้า

สิ้นสุดถ้า

สิ้นสุดย่อย

'// ใช้ส่วนประกอบ microsoft.xmlhttp เพื่อรวบรวมข้อมูล

ฟังก์ชั่น gethttppage (url)

'เมื่อเกิดข้อผิดพลาดต่อไป

สลัว http

ตั้งค่า http = server.createObject (microsoft.xmlhttp)

http.open get, url, false

http.send ()

ถ้า http.readystate <> 4 แล้ว

ฟังก์ชั่นออก

สิ้นสุดถ้า

gethttppage = bytes2bstr (http.responsebody)

ตั้งค่า http = ไม่มีอะไร

ถ้า err.number <> 0 จากนั้น err.clear

ฟังก์ชันสิ้นสุด

แชร์: วิเคราะห์การลงคะแนนในโปรแกรม DIG การใช้งาน ASP
ASP ทำคะแนนในโปรแกรม DIG (บางรายการเรียกว่า Top และ step on) iteresult