ASP教程：自己写的数据库操作类

数据库操作类在网上一搜一大把，我这并不比那些好，只是是自己写的，用着更习惯。所以我这个类没有什么特别的地方，只是自己用着习惯罢了，至于效率等方面，欢迎赐教！！

程序代码：

以下为引用的内容：
<%
Class dbClass
'-------------------------------------------------------------------------
    '变量说明
    'conn-----------connection对象
    'strsql---------执行查询的语句
    'vTbName--------查询分页的表名
    'vPKey----------查询分页的表的主键
    'vPgFields------查询分页要显示的字段
    'vPgSize--------查询分页每页显示的记录数
    'vCurrpg--------查询分页显示的当前页
    'vConditions----查询分页的条件
    'vOrderBy-------查询分页的排序
'-------------------------------------------------------------------------
    private conn,strsql,vTbName,vPKey,vPgFields,vPgSize,vCurrPg,vConditions,vOrderBy
    '类的初始化
    private Sub Class_Initialize()
'当是MS Sql数据库时设置以下两个变量
'dim dbServer      '数据库服务器的名称或ip地址
'dim dbname '数据库的名字
dim dbPath '若是access数据库，此处设置其路径
dim dbUser '数据库的登录用户名
dim dbPass '数据库的登录密码
dim connstr
dbPath = &/testasp/data/data.mdb& '设置数据库路径
dbUser = &admin&
dbPass = &123456&
'若是access,并且有密码
connstr = &Provider=Microsoft.Jet.OLEDB.4.0;Data Source=& & Server.MapPath(dbPath) &_
   &;User ID=& & dbUser & &;Password=;Jet OLEDB:Database Password=& & dbPass
'若是access，并且没有密码
'connstr = &Provider = Microsoft.Jet.OLEDB.4.0;Data Source = & & Server.MapPath(dbPath)
'若是ms-sql数据库
'connstr = &Provider = Sqloledb; User ID = & & dbUser & &; Password = & & dbPass &_
' &; Initial Catalog = & & dbname & &; Data Source = & & dbServer
on error resume next
set conn=server.CreateObject(&adodb.connection&)
conn.open connstr
errMsg &连接数据库&
    End Sub
    '类结束
    Private Sub Class_terminate()
conn.close
set conn=nothing
    End Sub
'-------------------------------------------------------------------------
'给类的变量设置值
'-------------------------------------------------------------------------
    '设置sql语句
    Public Property Let sqlStr(Byval Values)
    strsql=Values
    End Property
    '设置查询分页的表名
    public property let tbName(Byval Values)
    vTbName=Values
    end property
    '--------------------------------------------------------
    '设置查询分页的表的主键
    public property let pKey(ByVal Values)
    vPKey=Values
    end property
    '--------------------------------------------------------
    '设置显示的字段
    public property let pgFields(ByVal Values)
    vPgFields=Values
    end property
    '--------------------------------------------------------
    '设置每页显示的记录数
    public property let pgSize(ByVal Values)
    vPgSize=Values
    end property
    '---------------------------------------------------------
    '设置当前显示的页数
    public property let currPg(ByVal Values)
    vCurrPg=Values
    end property
    '--------------------------------------------------------
    '设置查询的条件
    public property let conditions(ByVal Values)
    if Len(Values)>0 then
    vConditions=& where &&Values
    else
    vConditions=& where 1=1 &
    end if
    end property
    '-------------------------------------------------------
    '设置查询的排序
    public property let orderBy(ByVal Values)
    if Len(Values)>0 then
    vOrderBy=& order by &&Values
    else
    vOrderBy=Values
    end if
    end property
    '-------------------------------------------------------------
    '得到记录总数
    public property get vRsCount()
    if vCurrPg=1 then
    sqlc=&select count(&&vPKey&&) as Idcount from &&vTbName&& &&vConditions
    set rsc=server.CreateObject(&adodb.recordset&)
    rsc.open sqlc,conn,0,1
    RsNum=rsc(&IdCount&)
    rsc.close
    set rsc=nothing
    if RsNum>0 then
    response.Cookies(&iRecord&)=RsNum
    vRsCount=RsNum
    else
    vRsCount=0
    end if
    else
    vRsCount=request.Cookies(&iRecord&)
    end if
    end property
    '得到总页数
    public property get vPgCount()
    iRs

关键词标签：操作,数据库,自己,教程

相关阅读 ASP编程代码：隐藏图片的真实地址 ASP教程:0177:800401f3错误解决 ASP代码中如何屏蔽ip地址禁止某IP段访问网站 ASP彻底实现伪静态化html Ewebeditor及fckeditork单引号的问题 ASP实例:读取xml文件的程序

文章评论

查看所有0条评论>>

发表评论

提交评论

热门文章 Active Server Pages 错误 'ASP 0131'解决方法

相关下载

人气排行 ASP下标越界的解决方法 ASP代码中如何屏蔽ip地址禁止某IP段访问网站 “文件共享锁定数溢出” 原因及解决方法无法写入数据库的解决方法 ASP教程:0177:800401f3错误解决 ASP常用函数列表如何用ASP来获取客户端真实IP的地址 ASP用FSO生成HTML简单实例+详解[原创] 用Asp编程实现QQ的在线情况查询 ASP彻底实现伪静态化html 解决:错误提示：Microsoft OLE DB Provider for ODBC Drivers (0x800040 如何在上传的图片上打自己的文字水印

{ "@context": "https://zhanzhang.baidu.com/contexts/cambrian.jsonld", "@id": "https://www.itmop.com/article/1464.html", "appid": "否", "title": "ASP教程：自己写的数据库操作类-IT猫扑网", "images": ["/e/data/images/notimg.gif"], "description": "{$Excerpt}", "pubDate": "2015-06-28T00:00:00", "upDate": "2015-06-28T00:00:00", "data": { "WebPage": { "pcUrl": "https://www.itmop.com/article/1464.html", "wapUrl": "https://m.itmop.com/article/1464.html", "fromSrc": "IT猫扑网" } } }

更多资讯