复制代码代码如下:
-
classmyarticle
dimwenzhang_id
dimtitle1, content1
Privatesubclass_initialize ()
'response.write "类的初始化事件： class_initialize <br>"
enddub
Privatesubclass_terminate ()
'response.write "释放对象事件： class_terminate <br>"
enddub
PublicPropertyletId (BYVALV)
wenzhang_id = v
ปลายทาง
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 ("เนื้อหา")
Rs.close
setrs = ไม่มีอะไร
conn.close
setConn = ไม่มีอะไร
enddub
PublicPropertygetTitle ()
title = title1
ปลายทาง
PublicPropertygetContent ()
เนื้อหา = เนื้อหา 1
ปลายทาง
endclass
'myarticle 类使用说明
'Dimwenzhang
'setwenzhang = newMyarticle
'wenzhang.id = 3
'callwenzhang.conn_sub ()
'response.writewenzhang.title