文章内页类

222 阅读 0 评论 147 点赞

我是靠谱客的博主干净小懒猪，最近开发中收集的这篇文章主要介绍文章内页类，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

复制代码代码如下:

<% 
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 
%>