复制代码代码如下::
<%
ClassMyArticle
dimwenzhang_id
Dimtitle1, Content1
PrivateSubclass_initialize ()
'response.write "类的初始化事件 ： class_initialize <br>"
Ende
PrivateSubclass_terminate ()
'response.write "释放对象事件 ： class_termate <br>"
Ende
PublicPropertyletid (Byvalv)
Wenzhang_id = v
Endproperschaft
Publicsubconn_sub ()
SetConn = server.createObject ("adodb.Connection")
cnnstr = "driver = {microsoftAccessDriver (*. Mdb)};"
cnnstr = cnnstr & "dbq =" & server.mappath ("admin/watavase/%29to-dream.mdb")
Conn.Opencnnstr
Sql = "Auswählen*fromArticlewheredeleted = 0andarticleId =" & wenzhang_id
setrs = server.createObject ("adodb.recordset")
Rs.opensql, Conn, 1,1
title1 = rs ("title")
content1 = rs ("Inhalt")
rs.close
setrs = nichts
conn.close
setConn = nichts
Ende
PublicPropertygettitle ()
Titel = Titel1
Endproperschaft
PublicPropertyGetContent ()
content = content1
Endproperschaft
Endschicht
'MyArticle 类使用说明
'Dimwenzhang
'setwenzhang = newmyArticle
'Wenzhang.id = 3
'callwenzhang.conn_sub ()
'response.writewenzhang.title