-
''''''''''''''''ความคิดเห็นดาบหัก''''''''''''''''''''''''
''''strText คือเนื้อหาของส่วนที่จะตัดออก''''''''''''
''''strStarTag เป็นจุดเริ่มต้นของเนื้อหาที่จะตัด''''''''''
''''strEndTag คือจุดสิ้นสุดของเนื้อหาที่จะตัด''''''''''
''''GetText ค่าส่งคืนคือเนื้อหาที่ถูกตัดออก''''''''''''''
''''''''''''''''จบความเห็น''''''''''''''''''''
ฟังก์ชัน GetText (strText, strStartTag, strEndTag)
intStart สลัว
intStart = instr(strText, strStartTag)
ถ้า intStart แล้ว
intStart = intStart + len (strStartTag)
intEnd = InStr(intStart, strText, strEndTag)
GetText = กลาง (strText, intStart, intEnd - intStart)
อื่น
รับข้อความ=
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-
-
''''''''''ความเห็นดาบหัก''''''''''
''''''''''ฟังก์ชั่นต่อไปนี้สามารถละเว้นได้''''''''''
''''''''เพียงใช้ฟังก์ชันรายการ getHTTPPage'''''''
''''''''path คือที่อยู่หน้าเว็บที่จะอ่าน''''''''
''''''''getHTTPPage ส่งคืนเนื้อหาหน้าเว็บที่อ่าน''
'''''''' สิ่งที่ควรสังเกตในที่นี้คือ gb2312 หากโค้ดของหน้าเว็บที่กำลังอ่านอยู่
''สำหรับ gb2312 ให้ใช้ gb2312 หากเป็น UTF-8 ให้เปลี่ยนเป็น UTF-8''''
''''''''จบความเห็น''''''''''
ฟังก์ชั่น 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 = ไม่มีเลย
ฟังก์ชันสิ้นสุด
-