แนะนำ: 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
2 หน้ารวมหน้าก่อนหน้า 12 หน้าถัดไป