復制代碼 代碼如下: <% class MyArticle dim wenzhang_id dim title1,content1 Private Sub Class_Initialize() 'response.Write "類的初始化 事件：Class_Initialize<br>" end sub
Private Sub Class_Terminate() 'response.Write "釋放對象 事件：Class_Terminate<br>" end sub
Public Property Let id(byval v) wenzhang_id = v End Property
Public Sub conn_sub() Set conn = Server.createObject("ADODB.Connection") cnnstr="DRIVER={Microsoft Access Driver (*.mdb)}; " cnnstr=cnnstr & "DBQ=" & Server.MapPath("admin/WataVase/%29to-dream.mdb") conn.Open cnnstr
sql = "Select * From Article where Deleted = 0 and ArticleID = "&wenzhang_id set rs=Server.CreateObject("adodb.recordset") rs.open sql, conn, 1, 1
title1 = rs("Title") content1 = rs("Content")
rs.close set rs = nothing
conn.close set conn = nothing
end sub
Public Property Get title() title = title1 End Property
Public Property Get content() content = content1 End Property
