คุณรู้วิธีการใช้รหัสคอลเลกชัน ASP หรือไม่? วันนี้บรรณาธิการของ Foxin จะแนะนำการสอนเกี่ยวกับการใช้งานการรวบรวมรหัส ASP เพื่อนที่สนใจทำตามขั้นตอนของบรรณาธิการเพื่อดูเนื้อหาเฉพาะ
คอลเลกชันเริ่มต้นขึ้น
ขั้นตอนแรกคือการวิเคราะห์หน้าที่จะรวบรวม
ใช้เบราว์เซอร์เพื่อเปิดหน้าเว็บที่คุณต้องการรวบรวม (เช่น: http://sports.sina.com.cn/k/2008-09-15/04593948756.shtml คุณสามารถใช้หน้าอื่น ๆ ได้) หลังจากเปิดให้คลิกขวาเพื่อตรวจสอบไฟล์ต้นฉบับ
ขั้นตอนที่สองคือการค้นหาตำแหน่งของเนื้อหาที่จะรวบรวม
ถ้าฉันต้องการรวบรวมชื่อและเนื้อหาในหน้านี้:
ชื่อเรื่องอยู่ระหว่าง <h1 id = "artibodytitle" style = "สี:#03005c;"> และ </h1>
เนื้อหาอยู่ระหว่างเนื้อหาเริ่มต้น -> และเนื้อหาสิ้นสุด -> ของเนื้อหาของข้อความ
ให้ความสนใจกับเอกลักษณ์ของสถานที่ หลังจากค้นหาแล้วคุณสามารถใช้การค้นหาในการแก้ไขเพื่อดูว่ามันเป็นเอกลักษณ์และไม่ซ้ำกันมากที่สุด ถ้าไม่เป็นครั้งแรกที่สุด หากไม่ได้ผลคุณสามารถแทนที่ได้เท่านั้น
ขั้นตอนที่ 3: เขียนรหัส
การคัดลอกรหัสมีดังนี้:-
'ฟังก์ชั่น: รหัสคอลเลกชัน ASP
'ผู้แต่ง: Wangsdong
'หมายเหตุ: สนับสนุนโปรแกรมดั้งเดิมโปรดเก็บข้อมูลนี้ขอขอบคุณ
url = "http://sports.sina.com.cn/k/2008-09-15/04593948756.shtml"
str = gethttppage (url)
title = strcut (str, "<h1 id =" "artibodytitle" "style =" "color:#03005c;" ">", "</h1>", 2)
content = strcut (str, "<!-เนื้อหาข้อความเริ่มต้น->", "<!-เนื้อหาข้อความสิ้นสุด->", 2)
Response.write "ชื่อข่าว <br> <b>" & title & "</b> <br> <br> <br> <br> เนื้อหาข่าว: <br>" & เนื้อหา
ฟังก์ชั่น gethttppage (url)
เมื่อเกิดข้อผิดพลาดต่อไป
สลัว http
ตั้งค่า http = server.createObject ("microsoft.xmlhttp"))
http.open "get", url, false
http.send ()
ถ้า http.readystate <> 4 แล้ว
ฟังก์ชั่นออก
สิ้นสุดถ้า
gethttppage = bytestobstr (http.responsebody, "GB2312"))
ตั้งค่า http = ไม่มีอะไร
ถ้า err.number <> 0 แล้ว
Response.write "<p allign = 'center'> <font color = 'red'> <b> เซิร์ฟเวอร์ที่ทำผิดพลาดในการรับเนื้อหาไฟล์ </b> </font> </p>"
err.lear
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น bytestobstr (body, cset)
สลัว objstream
ตั้งค่า objstream = server.createObject ("adodb.stream"))
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.write ร่างกาย
objstream.position = 0
objstream.type = 2
objstream.charset = cset
bytestobstr = objstream.readText
objstream.close
ตั้งค่า objstream = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
'สตริงการสกัดกั้น, 1 รวมถึงอักขระเริ่มและสิ้นสุด 2. ไม่รวม
ฟังก์ชั่น strcut (strcontent, startstr, endstr, cuttype)
Dim Strhtml, S1, S2
strhtml = strcontent
เมื่อเกิดข้อผิดพลาดต่อไป
เลือก Case Cuttype
กรณีที่ 1
s1 = instr (strhtml, startstr)
s2 = instr (s1, strhtml, endstr)+len (endstr)
กรณีที่ 2
s1 = instr (strhtml, startstr)+len (startstr)
s2 = instr (s1, strhtml, endstr)
สิ้นสุดเลือก
ถ้าเอ่อแล้ว
strcute = "<p allign = 'center'> ไม่พบสิ่งที่จำเป็น </p>"
err.lear
ฟังก์ชั่นออก
อื่น
strcut = mid (strhtml, s1, s2-s1)
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-
ข้างต้นเป็นบทช่วยสอนเกี่ยวกับการใช้รหัสคอลเลกชัน ASP ตอนนี้ตัวแก้ไขจะส่งออกเนื้อหาที่คุณได้รับคุณสามารถเขียนเนื้อหาเหล่านี้ลงในฐานข้อมูลและข้อมูลเป็นของคุณเอง