文章內(nèi)頁(yè)類

2024-05-04 10:59:03

字體：大中小

供稿：網(wǎng)友

復(fù)制代碼代碼如下:

<%
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 "釋放對(duì)象事件：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 類使用說(shuō)明
'dim wenzhang
'set wenzhang = new MyArticle
'wenzhang.id = 3
'call wenzhang.conn_sub()
'response.write wenzhang.title
'response.write wenzhang.content
'set wenzhang = nothing
%>

上一篇：FSO 讀出TXT文件

下一篇：ASP常用的函數(shù)

發(fā)表評(píng)論

共有條評(píng)論