复制代码代码如下:
<%
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 = "SELECT*fromArticleWheredeleted = 0AndarticleId =" & wenzhang_id
setRs = server.CreateObject ("adodb.recordset")
rs.opensql, Conn, 1,1
title1 = rs ("judul")
content1 = rs ("konten")
rs.close
setRs = tidak ada
Conn.Close
setConn = tidak ada
endsub
Publicpropertygettitle ()
title = title1
Endproperty
PublicpropertygetContent ()
konten = konten1
Endproperty
endclass
'Myarticle 类使用说明
'Dimwenzhang
'setwenzhang = newmyarticle
'wenzhang.id = 3
'callwenzhang.conn_sub ()
'Response.WriteWenzhang.Title