发一个ASP的ADODB类代码

我近期接触到一个非常实用的工具，它在构建多个网站时表现出强大的能力。我决定将其分享给大家，它在处理数据库方面表现得尤为出色，支持MSSQL2000、MSSQL2005以及ACCESS三种数据库的链接。

对于数据处理，它还提供了分页处理功能。例如，你可以使用Select_page(page,psize)方法进行分页，其中page代表当前页，psize代表每页记录行数。这一工具非常智能，它会自动检测数据库链接和记录集是否打开，执行完毕后会自动关闭数据库链接。

下面是一个简单的使用示例：

```vbscript

set db = new adodb_class

if db.select_table("select from news order by id desc") then

page = request("page")

Select_page(page, 20) '每页20条记录

for i = 1 to 20

response.write db.rs("title") '使用内置的rs，不可更改

db.rs.movenext

if db.rs.eof then exit for

next

end if

db.rsPage = 总页数, db.nowPage = 当前处理页, db.rsCounts = 总记录数量

if db.update_table("delete from news where ispass=1") then 'update操作同样适用

response.write "共删除" & db.updated & "行"

end if

call dbsert_table("insert into news (title,content) values ('" & title & "','" & content & "')","news","id")

response.write "添加ID为" & db.Insertd

在页面最尾可输出db.readCounts 为查询数据库次数。

```

```plaintext

rs.absolutepage = rs.pagesize -

<% '/kshop/' 路径下的 adodb_class.asp 是数据库操作类。此版本为 1.0。版权信息已标注在代码中。联系：[simple_1982@hotmail]。

class adodb_class 包含数据库操作相关代码。初始化时，数据库类型（如aess、sql2000、sql2005等）被存储在变量 dbclass 中。同时初始化了 SqlDbName（数据库名）、SqlUser（用户名）、SqlPass（密码）、SqlServer（服务器地址）等变量。

AessConn、Sql2kConn 和 Sql2k05Conn 方法分别用于建立不同数据库类型的连接字符串。OpenConn 方法根据 dbclass 的值选择相应的连接方式并打开数据库连接。如果连接失败，会输出错误信息并结束程序。

Select_Table 方法用于执行查询操作。首先检查连接是否存在，如果不存在则重新打开连接。然后创建 Recordset 对象，执行查询语句并返回结果。如果查询失败或结果为空，则返回 False；否则返回 True。记录查询次数。

Select_page 方法用于分页处理。根据传入的页码和每页大小，调整 Recordset 的页面大小和总页数，并更新当前页码。如果页码超出范围，则将其设置为最后一页。

Update_Table 方法用于执行更新操作。同样先检查连接是否存在，然后执行更新语句并返回结果。最后关闭数据库连接。

closed 方法用于关闭数据库链接并释放资源。清空记录集、总记录数和当前页码等信息。同时关闭数据库连接。

```