บทความนี้แนะนำการแบ่งปันการสอนของแบทช์คลานหน้ารายการ มาดูการสอนโดยละเอียดด้านล่าง เพื่อนที่ต้องการมันสามารถอ้างถึงมันได้
บางคนเป็นสมบัติเมื่อคลานโปรแกรม แต่พวกเขายังคงขายพวกเขาสำหรับ TND เป็นความจริงที่ว่าคนเหล่านี้เป็น! บางทีสิ่งต่อไปนี้อาจจะแย่ไปหน่อย
ต่อไปนี้ไม่มีฟังก์ชั่นการเขียนถึงร้านค้าและมาถึงจุดนี้แล้ว ฟังก์ชั่นรายการนั้นง่ายมาก กรุณากรอกด้วยตัวเองถ้าคุณต้องการ โปรดปรับปรุงฟังก์ชั่นอื่น ๆ ด้วยตัวเอง! คัดลอกรหัสและเรียกใช้โดยตรงเพื่อดูเอฟเฟกต์
Dim url, list_pagecode, array_articleid, i, articleid
Dim Content_pagecode, content_tempcode
DIM Content_CategoryId, content_categoryName, BorderID, classID, BorderName, className
Dim articletitle, articleauthor, article from, articlecontent
url = "http://www.webasp.net/article/class/1.htm"
list_pagecode = gethttppage (url)
list_pagecode = regexptext (list_pagecode, "พิมพ์", ","
list_pagecode = regexptext (list_pagecode, "'รับลิงค์บทความของหน้ารายการปัจจุบันเพื่อแยกออก
array_articleid = split (list_pagecode, ",") 'สร้างอาร์เรย์และจัดเก็บรหัสบทความ
สำหรับ i = 0 ถึง ubound (array_articleid) -1
articleid = array_arrayid (i) 'arrayid
content_pagecode = gethttppage ("http://www.webasp.net/article/" & articleid) 'รับเนื้อหาของหน้าบทความ
-
content_tempcode = regexptext (content_pagecode, "การสอนทางเทคนิค >>", ">> เนื้อหา", 0)
content_categoryid = regexptext (content_pagecode, "", 1)
BorderId = split (content_categoryid, ",") (0) 'ID คลาสใหญ่
classid = split (content_categoryid, ",") (1) 'ID คลาสย่อย
'=============== ตรวจสอบว่าหมวดหมู่ที่สำคัญมีอยู่หรือไม่ start ==================
'หากไม่มีอยู่ให้ป้อนฐานข้อมูล
'=============== ตรวจสอบว่าหมวดหมู่ที่สำคัญมีอยู่สิ้นสุด ====================
'response.write (Borderid & "," & classid & "
-
content_categoryName = regexptext (content_pagecode, "/'>", "", 1)
BorderName = split (content_categoryName, ",", ") (0) 'ชื่อคลาสใหญ่
className = split (content_categoryName, ",", ") (1) 'ชื่อ subclass
'=============== ตรวจสอบว่า subclass มีอยู่จริงหรือไม่ ===================
'หากไม่มีอยู่ให้ป้อนฐานข้อมูล
'=============== ตรวจสอบว่า subclass มีอยู่สิ้นสุด ===================
-
-
articletletle = regexptext (content_pagecode, " ", " ", 0)
articleAuthor = regexptext (content_pagecode, "ผู้แต่ง:", "", 0)
articlefrom = regexptext (content_pagecode, "แหล่งที่มา:", "", 0)
articleContent = regexptext (content_pagecode, "", "" & vbcrlf & "" & vbcrlf & "", 0)
-
Response.write (articletitle & "
-
Response.flush ()
ต่อไป
มีการแนบฟังก์ชั่นหลายอย่าง:
ฟังก์ชั่น gethttppage (url)if (isobjinstalled ("microsoft.xmlhttp") = false) แล้ว
Response.write "
เซิร์ฟเวอร์ไม่รองรับส่วนประกอบ microsoft.xmlhttp "
err.lear
Response.end
สิ้นสุดถ้า
เมื่อเกิดข้อผิดพลาดต่อไป
สลัว http
ตั้งค่า http = server.createObject ("msxml2.xmlhttp"))
http.open "get", url, false
http.send ()
if (http.readystate4) จากนั้น
ฟังก์ชั่นออก
สิ้นสุดถ้า
gethttppage = bytestobstr (http.responsebody, "GB2312"))
ตั้งค่า http = ไม่มีอะไร
ถ้า (err.number0) แล้ว
Response.write "
เกิดข้อผิดพลาดเมื่อได้รับเนื้อหาไฟล์ "
'response.end
err.lear
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น bytestobstr (codebody, codeset)
สลัว objstream
ตั้งค่า objstream = server.createObject ("adodb.stream"))
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.write codebody
objstream.position = 0
objstream.type = 2
objstream.charset = codeset
bytestobstr = objstream.readText
objstream.close
ตั้งค่า objstream = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่น: ตรวจสอบว่ามีการติดตั้งส่วนประกอบหรือไม่
'ค่าส่งคืน: จริง ---- ติดตั้ง
'เท็จ --- ไม่ได้ติดตั้ง
-
ฟังก์ชั่น isobjinstalled (objname)
เมื่อเกิดข้อผิดพลาดต่อไป
isobjinstalled = false
err = 0
สลัว testobj
ตั้งค่า testobj = server.createObject (objname)
if (0 = err) จากนั้น isobjinstalled = true
ตั้งค่า testobj = ไม่มีอะไร
err = 0
ฟังก์ชันสิ้นสุด
function regexptext (strng, strstart, Strend, n)
Dim Regex, Match, Matches, Retstr
ตั้งค่า regex = ใหม่ regexp
regex.pattern = strstart & "([[/s/s]*?)" & Strend
regex.ignorecase = true
regex.global = true
ตั้งค่าการจับคู่ = regex.execute (strng)
สำหรับการแข่งขันแต่ละนัดในการแข่งขัน
ถ้า (n = 1) แล้ว
retstr = retstr & regex.replace (match.value, "$ 1") & ","
อื่น
retstr = retstr & regex.replace (match.value, "$ 1")
สิ้นสุดถ้า
ต่อไป
regexpText = retstr
ตั้งค่า regex = ไม่มีอะไร
ข้างต้นเป็นการแนะนำเนื้อหาทั้งหมดของการแบ่งปันการสอนของแบทช์คลานหน้ารายการที่แน่นอน ฉันหวังว่าความรู้และวัสดุที่เกี่ยวข้องที่รวบรวมโดยบรรณาธิการจะเป็นประโยชน์กับคุณ สำหรับเนื้อหาเพิ่มเติมโปรดดำเนินการต่อเพื่อให้ความสนใจกับเว็บไซต์ของช่องเทคโนโลยี Wuxin!