文章内页类


复制代码 代码如下:

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



相关阅读:
ul结合CSS制作网页相册滑动浏览效果
用 ajax 的方法解决网页广告显示的问题
CSS3属性box-shadow使用详细教程
html和xml中的转义字符在Flash as3中的用法浅析
SQL Server 2008索引存储结构分析
使用ODBC数据库管理Serv-U的FTP用户及相关ASP编程[附源码示例下载]
用来分割文本的vbs脚本
轻松玩转花样表单--表单提交
Linux桌面系统分区方案推荐
ubuntu下也玩windows游戏,三种途径开启魔
初学者必读:精讲SQL中的时间计算语句
PHP脚本的10个技巧(4)
如何将Windows 2003迁移至Windows 2008三
CSS padding属性定义边内补白
快速导航

Copyright © 2016 phpStudy |