เขียนย่อหน้าเพื่อคว้าหน้ารายการในแบทช์

บางคนเป็นสมบัติเมื่อคลานโปรแกรม แต่พวกเขายังคงขายพวกเขาสำหรับ 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, "พิมพ์ </th> </tr>", "</table> <table border = 0 cellpadding = 5", 0)

list_pagecode = regexptext (list_pagecode, "<td align = ซ้าย> <a href = '../", "'> <img border = 0 src = '../images/authortype0.gif', 1)

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, "<a href =" "/"/""> การสอนทางเทคนิค </a> >> "," >> เนื้อหา </td> ", 0)

content_categoryid = regexptext (content_pagecode, "<a href = '../class", "/'>", 1)

BorderId = split (content_categoryid, ",") (0) 'ID คลาสใหญ่

classid = split (content_categoryid, ",") (1) 'ID คลาสย่อย

'================ ตรวจสอบว่ามีหมวดหมู่หลักที่มีอยู่หรือไม่ =================================================

'หากไม่มีอยู่ให้ป้อนฐานข้อมูล

'=============== ตรวจสอบว่ามีการสิ้นสุดหมวดหมู่หลัก ====================

'response.write (Borderid & "," & classid & "<br />")

content_categoryName = regexptext (content_pagecode, "/'>", "</a>", 1)

BorderName = split (content_categoryName, ",", ") (0) 'ชื่อคลาสใหญ่

className = split (content_categoryName, ",", ") (1) 'ชื่อ subclass

'============= ตรวจสอบว่า subclass มีอยู่หรือไม่และเริ่ม ===================

'หากไม่มีอยู่ให้ป้อนฐานข้อมูล

'============= ตรวจสอบว่า subclass มีอยู่และสิ้นสุด ====================

-

-