复制代码代码如下：
<％
classmyarticle
dimwenzhang_id
dimTitle1，content1
PrivatesUbClass_Initialize（）
'响应。
endub
PrivatesUbClass_Terminate（）
'响应。
endub
publicPropertyletid（Byvalv）
wenzhang_id = v
Endproperty
PublicSubConn_sub（）
setConn = server.createobject（“ adodb.connection”）
cnnstr =“驱动程序= {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（“标题”）
content1 = rs（“ content”）
Rs.Close
setrs =没有
conn.close
setConn =没有
endub
publicPropertyGetTitle（）
title = title1
Endproperty
publicPropertygetContent（）
content = content1
Endproperty
末期级
'主金
'Dimwenzhang
'setwenzhang = newmyarticle
'wenzhang.id = 3
'callwenzhang.conn_sub（）
'wress.writewenzhang.title