一部の人々は、プログラムを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) 'サブクラス名
'=========== =サブクラスが存在して開始するかどうかを確認します================
「存在しない場合は、データベースを入力します
'============サブクラスが存在し、終了するかどうかを確認してください================
'=====================================================================
'================================================================================