复制代码代码如下 :
<%
Classyarticle
Dimwenzhang_id
Dimtitle1, content1
privatesubclass_initialize ()
'response.write "wr ： class_initialize <br>"
Endsub
privatesubclass_terminate ()
'response.write "wr ： class_terminate <br>"
Endsub
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 ( "content")
Rs.Close
setrs = 아무것도
conn.close
setconn = 아무것도 없습니다
Endsub
PublicPropertygetTitle ()
Title = Title1
엔드 프로페티
PublicPropertygetContent ()
content = content1
엔드 프로페티
엔드 클래스
'myarticle 类使用说明
'디 웬선
'setwenzhang = Newyarticle
'wenzhang.id = 3
'callwenzhang.conn_sub ()
'응답 .writewenzhang.title