Asp类的数据库方面

发布时间：2023-09-26 10:55:57 所属栏目：Asp教程来源：

导读：Asp类是真不好学啊，看着简单，可真到用的时候，网上的代码是都报错啊！！
郁闷了恩久！！ 3天了，终于调试出来了，一个简单的数据库类模型，不敢独享，拿出来大家分享吧！

复制代码代码如下:

<%@LANGUAGE

Asp类是真不好学啊，看着简单，可真到用的时候，网上的代码是都报错啊！！
郁闷了恩久！！ 3天了，终于调试出来了，一个简单的数据库类模型，不敢独享，拿出来大家分享吧！

复制代码代码如下:

<%@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="http://www.w3.org/1999/xhtml">
<%
' 彭彭制作的一个新闻类敬请笑纳【站长中国】 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"
'response.write sql&"<br>"
set rs=Server.CreateObject("adodb.recordset")
rs.open sql, conn, 1, 1

（编辑：汽车网）

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

Asp类 的数据库方面

Asp类的数据库方面