おばあちゃん、ASPクラスは学ぶのが本当に難しいです。シンプルに見えますが、本当に便利な場合、インターネット上のコードはすべて間違って報告されています！ ！
落ち込んで、楽しんでください！ ！ 3日が経ち、ついにデバッグされました。私はそれを一人で楽しむことをあえてしません。私はそれを取り出してあなたと共有します！
この作品は、Webmaster China www.zzcn.netであるPeng Pengに属します。著作権をコピーするときに著作権を削除することは許可されていません。そうしないと、家族全員が死ぬでしょう！ ！ ！ ！ hehe。 。 :)
コードコピーは次のとおりです。
<％@言語= "vbscript" codepage = "936"％>
<
<htmlxmlns = "http://www.w3.org/1999/xhtml">
<％
'peng peng彼が作成したニュースカテゴリを受け入れてください[Webmaster China] http：//www.zzcn.netqq：76526211
ClassNewsclass
privatezzcn、conn、cnnstr
privateTitle_p、id_p
'オブジェクトの初期化
privatesubclass_initialize（）
'Response.Write "初期化<br>"
callnewsconnstart（）
Endingub
'Destructor、SetNothingを使用してオブジェクトをリリースするときに自動的に実行されます
privatesubclass_terminate（）
'Response.Write "リリースオブジェクトイベント：class_terminate <br>"
callnewsconnend（）
Endingub
'データベースリンク関数
privatesubnewsconnstart（）
setConn = server.createObject（ "adodb.connection"）
cnnstr = "driver = {microsoft AccessDriver（*。MDB）};"
cnnstr = cnstr＆ "dbq ="＆server.mappath（ "admin/watavase/％29to-dream.mdb"）
conn.opencnnstr
'Response.Writecnnstr＆ "<br>"
Endingub
privatesubnewsconnend（）
conn.close
setConn =何もない
Endingub
'=================================================================
'関数名getrs（）
'特定の列のレコードセットを取得します
'列名Lanmu
'ページあたりのレコード数k
'どのページ
'レコードの数
'日付riqi1は日付0で逆順序で昇順です
'=================================================================
publicFunctionGetrs（byvallanmu、byvalk、byvalpage、byvaln、byvalriqi）
sql = "select*fromarticlasswhereclassname = '"＆lanmu＆ "' orderbyclassiddesc"