无为清净楼资源网 Design By www.qnjia.com
复制代码 代码如下:
<%
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
%>
<%
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
%>
标签:
文章内页类
无为清净楼资源网 Design By www.qnjia.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
无为清净楼资源网 Design By www.qnjia.com
暂无评论...
更新日志
2024年09月20日
2024年09月20日
- 王菲.2006《菲常好听》引进版[低速原抓WAV+CUE]
- 《三日危情独家的记忆》女角色介绍
- 《天国拯救》拉泰比武大会攻略
- 任天堂推出《马里奥惊奇》NS捆绑包 10月24日发售
- 《孤岛惊魂》能否逆转育碧颓势?曝系列新作正招兵买马
- 天命人呼叫战术轰炸!玩家自制《黑神话:悟空》轰炸机Mod
- 群星.1992-滚石九大天王·十二出好戏【滚石】【WAV+CUE】
- 群星.1994-新滚石九大天王之年度大丫滚石】【WAV+CUE】
- 坣娜.1998-别恋【非常喜】【WAV+CUE】
- 《草原经典 最炫草原风 2CD》[WAV/分轨][980MB]
- 《不烧不选 经典国语极品珍藏》[WAV/分轨][500MB]
- 《绝对主打 流行原创金曲 2CD》[WAV分轨][1.1GB]
- 《赛博朋克2077》更新上线:支持AMD FSR3
- 《塞尔达传说:智慧的再现》提前半个月偷跑,引发玩家担忧
- 战锤40K星际战士2全职业介绍|全职业技能效果一览