【下载文档:  文章内页类.txt 】

---

文章内页类
复制代码 代码如下:<% class MyArticle dim wenzhang_id dim title1,content1 Private Sub Class_Initialize() 'response.Write "类的初始化 事件：Class_Initialize
" end sub Private Sub Class_Terminate() 'response.Write "释放对象 事件：Class_Terminate
" 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 %>