Beberapa orang adalah harta karun saat merangkak, tetapi mereka masih menjualnya untuk TND. Memang benar bahwa orang -orang ini! Mungkin hal berikut agak buruk
Berikut ini tidak memiliki fungsi tulis-ke-toko, dan telah mencapai titik ini. Fungsi entri sangat sederhana. Harap selesaikan sendiri jika Anda membutuhkannya. Harap tingkatkan fungsi lain sendiri! Salin kode dan jalankan langsung untuk melihat efeknya
DIM URL, LIST_PAGECODE, ARRAY_ARTICLEID, I, ARTTERDID
Dim content_pagecode, content_tempcode
Dim content_categoryId, content_categoryname, borderid, classid, bordername, classname
Dim Articletitle, Articleauthor, Artikel dari, Articlecontent
Url = "http://www.webasp.net/article/class/1.htm"
List_pagecode = getHttppage (url)
List_pagecode = regexPtext (list_pagecode, "print </t> </tr>", "</able> <tabel border = 0 cellpadding = 5", 0)
List_pagecode = regexPtext (list_pagecode, "<td align = left> <a href = '../", "'> <img border = 0 src = '../gambar/authortype0.gif'", 1) 'Dapatkan tautan artikel dari halaman daftar saat ini untuk memisahkannya untuk memisahkannya
Array_articleid = split (list_pagecode, ",") 'Buat array dan simpan ID artikel
Untuk i = 0 ke ubound (array_articleid) -1
ArtictID = array_arrayid (i) 'arrayid
Content_pagecode = getHttppage ("http://www.webasp.net/article/" & artikel) 'Dapatkan konten halaman artikel
'========================================================
Content_tempcode = regexPtext (content_pagecode, "<a href =" "/artikel/" "> tutorial teknis </a> >>", ">> konten </td>", 0)
Content_categoryId = regexPtext (content_pagecode, "<a href = '../class", "/'>", 1)
BorderId = split (content_categoryid, ",") (0) 'ID kelas besar
Classid = split (content_categoryid, ",") (1) 'ID subclass
'=============== Periksa apakah ada kategori utama yang ada? ===================
'Jika tidak ada, masukkan database
'=============== Periksa apakah ada akhir dari kategori utama ===================
'Response.write (BorderID & "," & ClassID & "<Br />")
Content_categoryName = regexPtext (content_pagecode, "/'>", "</a>", 1)
BorderName = split (content_categoryname, ",") (0) 'Nama kelas besar
ClassName = split (content_categoryname, ",") (1) 'nama subclass
'============== Periksa apakah subkelas ada dan mulai ===================
'Jika tidak ada, masukkan database
'============== Periksa apakah subkelas ada dan berakhir ===================
'============================================================
'===============================================================