复制代码代码如下:
<%
classe de classe
dimwenzhang_id
dimtitle1, contenu1
PRIVATESUBCLASS_INITIALIZE ()
'Response.write "类的初始化事件 ： class_inialize <br>"
fin
PRIVATESUBCLASS_TERMINE ()
'Response.write "释放对象事件 ： class_termine <br>"
fin
PublicProperTyletetid (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.Opennnnstr
sql = "select * fromarticlewheredeteted = 0AndarticleId =" & wenzhang_id
setrs = server.createObject ("adodb.recordSet")
Rs.OpenSQL, Conn, 1,1
title1 = rs ("titre")
contenu1 = rs ("contenu")
Rs.Close
setrs = rien
Conn.Close
setConn = rien
fin
PublicPropertyGetTitle ()
Titre = Title1
Endproperty
PublicPropertyGetContent ()
contenu = contenu1
Endproperty
classe de fin
'Myarticle 类使用说明
'Dimwenzhang
'setwenzhang = newmyarticle
'wenzhang.id = 3
'callwenzhang.conn_sub ()
'Response.writewenzhang.title