المادة داخل صف الصفحة

复制代码代码如下:

<٪

ClassMyArticle

Dimwenzhang_id

dimtitle1 ، content1

privatesubclass_initialize ()

'Response.write "： class_initialize <br>"

ينتهي

privatesubclass_terminate ()

'response.write "： ： class_ertominate <br>"

ينتهي

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*FromArticlewheredeled = 0AndarticleId =" & Wenzhang_id

setRs = server.createObject ("adodb.recordset")

Rs.Opensql ، Conn ، 1،1

title1 = روبية ("العنوان")

content1 = rs ("المحتوى")

Rs.close

setRs = لا شيء

conn.close

setConn = لا شيء

ينتهي

PublicPropertygetTitle ()

العنوان = title1

endproperty

PublicPropertygetContent ()

content = content1

endproperty

endclass

'myarticle 类使用说明

'Dimwenzhang

'Setwenzhang = NewMyArticle

'wenzhang.id = 3

'callwenzhang.conn_sub ()

'الرد