奶奶的，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"
'response.writesql&"<br>"
setrs=Server.CreateObject("adodb.recordset")
rs.opensql,conn,1,1
ifnotrs.eofthen
ClassID_p=rs("ClassID")
endif
rs.close
setrs=nothing
ifriqi=1then
riqi_p="orderByUpdateTimeDesc"
else
riqi_p=""
endif
sql="Select*FromArticlewhereClassID="&ClassID_p&""&riqi_p
setrs=Server.CreateObject("adodb.recordset")
rs.opensql,conn,1,1
rs.PageSize=k
ifnotrs.eofthen
rs.AbsolutePage=page
endif
i=0
dowhilenotrs.eofandi<n
i=i+1
rs.movenext
loop
'response.write"rs<br>"
ifn=ithen
title_p=rs("Title")
id_p=rs("ArticleID")
'response.writetitle_p
'response.writeid_p
else
title_p=null
id_p=null
endif
rs.close
setrs=nothing
endFunction
'----------------------------------------
'
'属性写标题
PublicPropertyLettitle(byvalv)
title_p=v
EndProperty
'属性读标题
PublicPropertyGettitle()
title=title_p
EndProperty
'属性写标题ID
PublicPropertyLetid(byvalv)
id_p=v
EndProperty
'属性读标题ID
PublicPropertyGetid()
id=id_p
EndProperty
endclass
%>
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312"/>
<title>Asp数据库类彭彭制作QQ：76526211</title>
</head>
<body>
<%
dimnews
setnews=newNewsClass
callnews.getrs("网站收藏",1,1,1,1)
response.writenews.id&""&news.title
setnews=nothing
%>
</body>
</html>