复制代码代码如下：
<％
classMyarticle
dimwenzhang_id
dimtitle1、content1
privatesubclass_initialize（）
'Response.Write "类的初始化事件：class_initialize <br>"
Endingub
privatesubclass_terminate（）
'Response.Write "释放对象事件：class_terminate <br>"
Endingub
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 =何もない
conn.close
setConn =何もない
Endingub
publicPropertygetTitle（）
title = title1
Endproperty
publicPropertygetContent（）
content = content1
Endproperty
エンドクラス
'myarticle类使用说明
'Dimwenzhang
'Setwenzhang = newMyarticle
'wenzhang.id = 3
'callwenzhang.conn_sub（）
'Response.writewenzhang.title