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

我的想法是既然是数据库操作类，所以类一实例化的时候就建立数据库连接，所以在使用的时候要先修改 Class_Initialize()中的代码，设置正确的数据库连接数据，设置好了就可以使用了。

1、一般的操作

   set myDb=new dbClass
   myDb.sqlStr="select * from ..."        '这里设置数据库操作语句
   set rs=myDb.rsDB()
'这里返回rs,接着就按平时的写法写表现数据的代码
'.......
   myDb.cRs(rs) '关闭释放rs
   set myDb=nothing
若myDb.sqlStr设置的是更新、删除或添加的sql语句，那么就要用myDb.upDB()来执行，即

set myDb=new dbClass
myDb.sqlStr="update ..."
myDb.upDB()
set myDb=nothing
2、查询分页---一般的，不用存储过程

mypage=request.form("currpage")'得到需要显示第几页
'mypage为空则说明此页是第一次加载
if mypage="" then
mypage=1
end if
dim myDb
set myDb=new ConDb
with myDb
     .tbName="comEmploy"       '表名
     .pKey="empId"             '主键
     .pgFields="empId,empGz"   '显示的字段
     .pgSize=20                '每页显示的条数
     .conditions=""            '查询的条件
     .orderBy="empId desc"     '排序的条件
     .currPg=mypage
end with
dim rs
set rs=myDb.pageRs()
'根据返回的rs写表现代码
myDb.cRs(rs)
'在适当的地方放放置分页导航
<%=myDb.pageNav()%>
set myDb=nothing
3、查询分页---用存储过程

此处的存储我用的叶子分页类用的存储过程，可在网上查找叶子分页类的相关代码

mypage=request.form("currpage")'得到需要显示第几页
'mypage为空则说明此页是第一次加载
if mypage="" then
ypage=1
end if
dim myDb
set myDb=new ConDb
with myDb
     .tbName="comEmploy"       '表名
     .pKey="empId"             '主键
     .pgSize=2                 '每页显示的条数
     .pgFields="empId,empGz"   '显示的字段
     .conditions=""            '查询的条件
     .orderBy="empId desc"     '排序的条件
     .currPg=mypage 
end with
dim rs
set rs=myDb.sqlPage()

'根据返回的rs写表现代码
'若查询条件是根据form提交，查询条件可保存在cookie中
myDb.cRs(rs)
'在适当的地方放放置分页导航
<%=myDb.pageNav()%>
set myDb=nothing
4、若你的分页显示没有什么特别的表现形式，还可以直接输入有分页导航的table

tbTil=Array("作者|200","IP地址|150","发布时间|150","具体内容|300")
'作者是表格的第一个字段的名称
'200是此单元格的宽度
mypage=request.QueryString("currpage")'得到需要显示第几页
'mypage为空则说明此页是第一次加载
if mypage="" then
mypage=1
end if
dim myDb:set myDb=new dbClass
with myDb
   .tbName="guestBook"       '表名
   .pKey="id"             '主键
   .pgFields="mem_Author,mem_PostIP,mem_PostTime,mem_Content"   '显示的字段
   .pgSize=3                 '每页显示的条数
   .conditions=""            '查询的条件
   .orderBy="id desc"     '排序的条件 
   .currPg=mypage
end with
myDb.showTb(tbTil)
set myDb=nothing<