复制代码 代码如下:

<%

classMyArticle

dimwenzhang_id

dimtitle1,content1

PrivateSubClass_Initialize()

'response.Write"类的初始化事件：Class_Initialize<br>"

endsub

PrivateSubClass_Terminate()

'response.Write"释放对象事件：Class_Terminate<br>"

endsub

PublicPropertyLetid(byvalv)

wenzhang_id=v

EndProperty

PublicSubconn_sub()

Setconn=Server.createObject("ADODB.Connection")

cnnstr="DRIVER={MicrosoftAccessDriver(*.mdb)};"

cnnstr=cnnstr&"DBQ="&Server.MapPath("admin/WataVase/%29to-dream.mdb")

conn.Opencnnstr

sql="Select*FromArticlewhereDeleted=0andArticleID="&wenzhang_id

setrs=Server.CreateObject("adodb.recordset")

rs.opensql,conn,1,1

title1=rs("Title")

content1=rs("Content")

rs.close

setrs=nothing

conn.close

setconn=nothing

endsub

PublicPropertyGettitle()

title=title1

EndProperty

PublicPropertyGetcontent()

content=content1

EndProperty

endclass

'MyArticle类使用说明

'dimwenzhang

'setwenzhang=newMyArticle

'wenzhang.id=3

'callwenzhang.conn_sub()

'response.writewenzhang.title

'response.writewenzhang.content

'setwenzhang=nothing

%>