การแบ่งปันการสอนของแบทช์คลานหน้ารายการ

บทความนี้แนะนำการแบ่งปันการสอนของแบทช์คลานหน้ารายการ มาดูการสอนโดยละเอียดด้านล่าง เพื่อนที่ต้องการมันสามารถอ้างถึงมันได้

บางคนเป็นสมบัติเมื่อคลานโปรแกรม แต่พวกเขายังคงขายพวกเขาสำหรับ 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 ()

ต่อไป

มีการแนบฟังก์ชั่นหลายอย่าง:

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!