复制代码代码如下:
<%
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 = "Selecione*Fromarticlewreneled = 0andarticleId =" & wenzhang_id
setrs = server.createObject ("adodb.recordset")
Rs.opensql, Conn, 1,1
título1 = rs ("título")
content1 = rs ("conteúdo")
rs.close
setrs = nada
Conn.Close
setConn = nada
endsub
PublicPropertyGetTitle ()
Title = Title1
EndProperty
PublicPropertyGetContent ()
Content = Content1
EndProperty
Endclass
'Myarticle 类使用说明
'Dimwenzhang
'setwenzhang = newmyarticle
'wenzhang.id = 3
'Callwenzhang.conn_sub ()
'Response.writewenzhang.title