Asp类的数据库行业

发布时间：2023-08-24 13:20:33 所属栏目：Asp教程来源：

导读：Asp类的数据库行业：代码如下:<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns

Asp类的数据库行业：

代码如下:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

' 彭彭制作的一个新闻类敬请笑纳【站长中国】 http://www.zzcn.net QQ：76526211

class NewsClass

Private zzcn,conn,cnnstr

private title_p,id_p

'对象初始化

Private Sub Class_Initialize()

'response.write "初始化<br>"

call newsconnstart()

End Sub

'析构函数，在使用 set nothing 释放对象时，自动执行

Private Sub Class_Terminate()

'response.Write "释放对象事件：Class_Terminate<br>"

call newsconnend()

end sub

'数据库链接函数

Private sub newsconnstart()

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

'response.write cnnstr & "<br>"

End sub

Private sub newsconnend()

conn.close

set conn = nothing

End sub

'=========================================

'函数名 getrs（）

'获得某个栏目的一条记录集

'栏目名 lanmu

'每页几条记录 k

'第几页 page

'第几条记录 n

'日期 riqi 1 为按日期逆序 0 为升序

'=========================================

Public Function getrs(ByVal lanmu,ByVal k,ByVal page,ByVal n,ByVal riqi)

sql = "Select * From ArticleClass where ClassName = '"&lanmu&"' order By ClassID Desc"

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!

Asp类 的数据库行业

Asp类的数据库行业