一部の人々は、プログラムをrawっているときは宝物ですが、彼らはまだTNDのためにそれらを販売しています。これらの人がいるのは本当に本当です！たぶん、次のことは少し悪いです
以下には、書き込みストアの機能がなく、この点に達しました。エントリ機能は非常に簡単です。必要に応じて自分で完了してください。自分で他の機能を改善してください！コードをコピーして直接実行して効果を確認します
dim url、list_pagecode、array_articleid、i、articlid
dim content_pagecode、content_tempcode
dim content_categoryid、content_categoryName、borderid、classid、bordername、className
Dim Articletitle、articleauthor、Articlom -articlecontent
url = "http://www.webasp.net/article/class/1.htm"
list_pagecode = gethttppage（url）
list_pagecode = regexptext（list_pagecode、 "print </th> </tr>"、 "</table> <table border = 0 cellpadding = 5"、0）
list_pagecode = regexptext（list_pagecode、 "<td align = left> <a href = '../"、 "'> <img border = 0 src = '../images/authortype0.gif'"、1 '
array_articleid = split（list_pagecode "、"） 'arrayを作成して記事IDを保存します
i = 0からubound（array_articleid）-1の場合
artureid = array_arrayid（i） 'arrayid
content_pagecode = gethttppage（ "http://www.webasp.net/article/"＆artured） '記事ページのコンテンツを取得します
'=================================================================
content_tempcode = regexptext（content_pagecode、 "<a href =" "/article/" ">テクニカルチュートリアル</a> >>"、 ">> content </td>"、0）
content_categoryid = regexptext（content_pagecode、 "<a href = '../class"、 "/'>"、1）
borderid = split（content_categoryid、 "、"）（0） 'Big class 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） 'サブクラス名
'=========== =サブクラスが存在して開始するかどうかを確認します================
「存在しない場合は、データベースを入力します
'============サブクラスが存在し、終了するかどうかを確認してください================
'=====================================================================
'================================================================================