功能描述
本组件为开发后台程序提供了便捷，你无法关心什么时候应该打开数据库，什么时候应该关闭数据库。只要简单的写几条Sql语句，然后调用组件里的方法就能把你想要的数据取出。大大的简化了数据操作流程。
这是本人写的第一个组件，第一次写好没有分页功能，使用起来还是有诸多不便，今天刚加入的分页功能。
其中肯定有写的不合理的地方，请大家指正。如有问题可电邮至:city-falcon@163.com咨询
属性：
db_map '数据库路径或数据库名
conn '数据库连接
typess '数据库类型[ACCESS|SQL2K]
rs '数据集
rsCounts '记录总数
Updated '更新数
以下变量只有分页时用到
Public URL 'URL地址
Public RequestPage '获取Page
Public PageSize '每页记录数
Public PageCount '总页数
方法：
ExecuteQuery(sql) '实现select功能
ExecuteUpdate(sql) '实现delete/update/insert功能
ExecutePage(sql) '实现处理分页功能
ShowPage() '实现前台显示首页/上页/下页/尾页功能
使用举例
以实现分页显示功能为例
Set db= new DBOperate
Dim KeyWord '查询关键字
Dim Sql '取数据
Dim CountsSql '处理分页中使用
Dim SqlCondition '条件语句
KeyWord = Trim(request.Form("KeyWord"))
db.URL = "info.asp?t=1" '这里的t=1无作用，只供分页时用
db.RequestPage = Request("Page")
db.PageSize = 22
If (KeyWord<>"") Then
SqlCondition = SqlCondition + " and inTitle like '%"& KeyWord &"%'"
End If
'处理分页
CountsSql = "select count(inId) from info where 1=1"& SqlCondition
db.ExecutePage(SqlPage)
'处理Sql
Sql="select top "& db.PageSize &" inId,inTitle,inCDate,inUdate from info where 1=1"
If (Cint(db.RequestPage) > 1) Then
Sql = Sql &" and (inId Not In(select top "& db.PageSize*(Cint(db.RequestPage)-1) &" inId from info Order By inCDate desc))"
End If
Sql = Sql & SqlCondition &" order by inCDate desc"
If (db.ExecuteQuery(Sql)) Then
While Not(db.Rs.Eof Or db.Rs.Bof)
'输出数据
.
.
.
db.Rs.MoveNext
Wend
End If
