奶奶的，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"