复制代码代码如下:
<%
ClassmyArticle
dimwenzhang_id
DimTitle1, Content1
Privatesubclass_initialize ()
'response.write "类的初始化事件 : class_initialize <br>"
заканчивая
Privatesubclass_mterminate ()
'response.write "释放对象事件 : class_terminate <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*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 = ничего
заканчивая
PublicpropertygetTitle ()
title = title1
EndProperty
PublicpropertygetContent ()
Контент = Контент1
EndProperty
Endclass
'Myarticle 类使用说明
Димвенжан
'setwenzhang = newmyarticle
'wenzhang.id = 3
'callwenzhang.conn_sub ()
'response.writewenzhang.title