รวบรวมข้อมูลหน้าเว็บ ในบางครั้ง จำเป็นต้องบรรลุการพยากรณ์อากาศที่อัปเดตจริง องค์ประกอบ XMLHTTP ใช้เพื่อจับภาพส่วนที่ระบุของหน้าเว็บ
จำเป็นต้องแยกซอร์สโค้ด html
ซอร์สโค้ด html ที่บันทึกไว้ในตัวอย่างนี้มีดังนี้
<p align=left>วันอังคารที่ 24 สิงหาคม พ.ศ.2547 ตอนกลางวัน: มีแดดจัดและมีเมฆมากเป็นบางครั้ง ลมยูนนาน ระดับ 3-4 กลางคืน: ลมใต้ที่มีแดดจัด ระดับ 3-4;
โปรแกรมมาจาก
ใช้วันที่ 24 สิงหาคม 2004 เป็นคำค้นหาจนถึง</p>สิ้นสุด
เนื้อหาที่บันทึกได้คือ วันอังคารที่ 24 สิงหาคม พ.ศ. 2547 ตอนกลางวัน: มีแดดจัดและมีเมฆมากเป็นบางครั้ง ลมยูนนาน ระดับ 3-4 กลางคืน: ลมใต้ที่มีแดดจ้า อุณหภูมิ: สูงสุด 29°C ต่ำสุด 19°C
มันสะอาด บันทึกมัน.
-
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
Server.ScriptTimeOut=9999999
ฟังก์ชั่น getHTTPage(เส้นทาง)
t = GetBody (เส้นทาง)
getHTTPPage=BytesToBstr(t,GB2312)
สิ้นสุดฟังก์ชัน
ฟังก์ชั่น GetBody(url)
เมื่อเกิดข้อผิดพลาดดำเนินการต่อต่อไป
ตั้งค่าการดึงข้อมูล = CreateObject(Microsoft.XMLHTTP)
ด้วยการเรียกค้น
.เปิดรับ, url, เท็จ, ,
.ส่ง
GetBody = .การตอบสนองร่างกาย
จบด้วย
ตั้งค่าการดึงข้อมูล = ไม่มีเลย
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น BytesToBstr (เนื้อหา, Cset)
objstream สลัว
ตั้ง objstream = Server.CreateObject (adodb.stream)
objstream.Type = 1
objstream.Mode =3
objstream.เปิด
objstream เขียนเนื้อหา
objstream ตำแหน่ง = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.ปิด
ตั้งค่า objstream = ไม่มีเลย
ฟังก์ชันสิ้นสุด
ฟังก์ชันนิวสตริง(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
ถ้า Newstring<=0 แล้ว Newstring=Len(wstr)
ฟังก์ชันสิ้นสุด
-
<html>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0 MARGINHEIGHT=0 MARGINWIDTH=0>
<!--เริ่ม-->
-
หรี่ wstr,str,url,start,over,dtime
dtime=ปี(วันที่)&ปี&เดือน(วันที่)&เดือน&วัน(วันที่)&วัน
url=http://www.vevb.com/
wstr=getHTTPPage(url)
เริ่มต้น=Newstring(wstr,dtime)
มากกว่า=Newstring(wstr,</p>)
body=mid(wstr,สตาร์ท,โอเวอร์สตาร์ท)
response.write <MARQUEE onmouseover=this.stop(); onmouseout=this.start();>&body&</marquee>
-
<!--จบ-->
</body></html>