奶奶的，Asp類是真不好學啊，看著簡單，可真到用的時候，網上的代碼是都報錯啊！ ！
鬱悶了恩久！ ！ 3天了，終於調試出來了，一個簡單的數據庫類模型，不敢獨享，拿出來大家分享吧！
本作品歸站長中國www.zzcn.net彭彭所有，你們拷貝的時候不許去掉版權，否則拷貝的人全家死光光！ ！ ！ ！呵呵。 。 ：）
複製代碼代碼如下:
<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
<!DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<htmlxmlns="http://www.w3.org/1999/xhtml">
<%
'彭彭製作的一個新聞類敬請笑納【站長中國】http://www.zzcn.netQQ：76526211
classNewsClass
Privatezzcn,conn,cnnstr
privatetitle_p,id_p
'對像初始化
PrivateSubClass_Initialize()
'response.write"初始化<br>"
callnewsconnstart()
EndSub
'析構函數，在使用setnothing釋放對象時，自動執行
PrivateSubClass_Terminate()
'response.Write"釋放對象事件：Class_Terminate<br>"
callnewsconnend()
endsub
'數據庫鏈接函數
Privatesubnewsconnstart()
Setconn=Server.createObject("ADODB.Connection")
cnnstr="DRIVER={MicrosoftAccessDriver(*.mdb)};"
cnnstr=cnnstr&"DBQ="&Server.MapPath("admin/WataVase/%29to-dream.mdb")
conn.Opencnnstr
'response.writecnnstr&"<br>"
Endsub
Privatesubnewsconnend()
conn.close
setconn=nothing
Endsub
'=========================================
'函數名getrs（）
'獲得某個欄目的一條記錄集
'欄目名lanmu
'每頁幾條記錄k
'第幾頁page
'第幾條記錄n
'日期riqi1為按日期逆序0為升序
'=========================================
PublicFunctiongetrs(ByVallanmu,ByValk,ByValpage,ByValn,ByValriqi)
sql="Select*FromArticleClasswhereClassName='"&lanmu&"'orderByClassIDDesc"