文章内页类

复制代码代码如下:
<%
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

end class

"MyArticle 类使用说明
"dim wenzhang
"set wenzhang = new MyArticle
"wenzhang.id = 3
"call wenzhang.conn_sub（）
"response.write wenzhang.title
"response.write wenzhang.content
"set wenzhang = nothing
%>