複製代碼代碼如下：
<％
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