复制代码代码如下:
<%
clase de clase
dimwenzhang_id
dimtitle1, content1
Privatesubclass_initialize ()
'Response.write "类的初始化事件 ： class_initialize <br>"
Endsub
Privatesubclass_merminate ()
'Response.write "释放对象事件 ： class_terminate <br>"
Endsub
PublicPropertyletid (BYVALV)
wenzhang_id = v
Endpropertía
Publicsubconn_sub ()
Setconn = server.createObject ("ADODB.Connection")
CNNSTR = "Driver = {MicrosoftAccessDriver (*. Mdb)};"
cnnstr = cnnstr & "dbq =" & server.mappath ("admin/watavase/%29to-dream.mdb")
Conn.opencnnstr
sql = "Seleccionar*Fromarticlewheredeleted = 0andarticleID =" & wenzhang_id
setrs = server.createObject ("ADODB.Recordset")
Rs.opensql, Conn, 1,1
title1 = rs ("title")
content1 = rs ("contenido")
rs.
SETRS = nada
Conn.clar
setConn = nada
Endsub
PublicPropertygettitle ()
Título = Title1
Endpropertía
PublicPropertygetContent ()
contenido = contenido1
Endpropertía
clase final
'Myartícula 类使用说明
'dimwenzhang
'setwenzhang = newmyarticle
'wenzhang.id = 3
'callwenzhang.conn_sub ()
'Response.WriteWenzhang.title