บางคนเป็นสมบัติเมื่อคลานโปรแกรม แต่พวกเขายังคงขายพวกเขาสำหรับ 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 มีอยู่และสิ้นสุด ====================
-
-