发一个ASP的ADODB类代码

　　反正我现在用这个做了很多站，自己觉得还是满有用的，所以拿出来和大家分享一下。支持三种数据库连接：MSSQL2000，MSSQL2005，ACCESS
三种方法：
select_table(sql)
表查询，返回TRUE或FALSE
当SQL语句出错，或空记录时返回FALSE，否则TRUE
update_table(SQL)
表更新，包括update,delete
成功执行返回TRUE，否则返回FALSE，updated为执行后影响记录行数。
insert_table(sql,table,id_column)
table为表名，id_column为表中自动编号，自增字段。
当成功执行返回TRUE，否则返回FALSE，指定TABLE，ID_column后，将返回最后添加记录所产生的自增ID。

select_table()相关方法Select_page(page,psize)
分页处理，page为当前页，psize为每页记录行数。
所有操作时，自动检测数据库链接和RS是否打开，执行后将自动关闭数据库链接。

示例：
setdb=newadodb_class
ifdb.select_table(select*fromnewsorderbyiddesc)then
page=request(page)
Select_page(page,20)每页20条
fori=1to20
response.writedb.rs(title)类内置rs，不可变
db.rs.movenext
ifdb.rs.eofthenexitfor
next
endif
db.rsPage=总页数，db.nowPage=经过处理后当前页，db.rsCounts数总记录数量。

ifdb.update_table(deletefromnewswhereispass=1)thenupdate同样
response.write共删除&db.updated&行
endif

response.write最后添加ID为&db.Insertd

在页面最尾可输出db.readCounts为查询数据库次数。
--------------------------------------------
本类好处就是你不必担心忘记关闭数据库链接，不用频繁setrs=server.recordset(adodb.recordset),也不用setrs=nothing
缺点就是翻页用的传统方式。rs.absolutepage=rs.pagesize
----------------------------------------------------------
<%
/******kshop******/
adodb_class.asp数据库操作类

Version1.0
/*****************/
classadodb_class
dimconn,connstr,rs
dimdbclass数据库类型access,sql2000,sql2005三个值之一
dimSqlDbName,SqlUser,SqlPass,SqlServer
dimSqlAccess
dimSelectd,Insertd,Updated
dimrsCounts,rsPage,readCounts,nowPage记录集总数/页数查询次数

PrivateSubClass_Initialize()
SqlDbName=
SqlUser=
SqlPass=
SqlServer=
SqlAccess=/simple_date/simple_xiehui.mdb
rsCounts=0:rsPage=1:readCounts=0:nowPage=1
CallOpenConn(access)

selectd=0
Insertd=0
Updated=0
EndSub
********打开数据库链接******************
PrivateSubAccessConn()
connstr=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=&server.mappath(SqlAccess)&;PersistSecurityInfo=False
EndSub
PrivateSubSql2kConn()
connstr=driver={SQLserver};server=&SqlServer&;uid=&SqlUser&;pwd=&SqlPass&;database=&SqlDbName
EndSub
PrivateSubSql2k05Conn()
connstr=Provider=SQLNCLI.1;Password=&SqlPass&;UserID=&SqlUser&;InitialCatalog=&SqlDbName&;DataSource=&SqlServer
EndSub
PrivateSubOpenConn(db_class)
dbclass=db_class
selectcasedb_class
caseaccess:callAccessConn()
casesql2000:callSql2kConn()
casesql2005:callSql2k05Conn()
endselect
onerrorresumenext
setconn=server.CreateObject(adodb.Connection)
conn.openconnstr
iferrthen
Response.write数据库链接失败<br>sqlstring=+connstr
Response.End()
err.clear
endif
EndSub
**********结束/查询构造*************
PublicFunctionSelect_Table(sql)
ifnotnotisempty(conn)orisnull(conn)then
callOpenConn(dbclass)
elseifconn.state=0then
callOpenConn(dbclass)
endif
onerrorresumenext
Setrs=Server.CreateObject(adodb.recordset)
rs.opensql,conn,1,1
iferrthen
Select_Table=False
rs.close
exitFunction
err.clear
EndIf
Ifrs.eofandrs.bofthen
rs.close
Select_Table=false
Else
Select_Table=true
EndIf
readCounts=readCounts+1
EndFunction
分页处理
PublicFunctionSelect_page(page,psize)
ifisnull(page)orpage=thenpage=1
ifpage<1thenpage=1
ifrs.state=1then
ifnotrs.eofthen
rs.pagesize=psize
rsPage=rs.pagecount
rsCounts=rs.recordcount
ifint(page)>Int(rsPage)thenpage=rsPage
rs.absolutepage=page:nowPage=page
endif
endif
EndFunction
更新记录
PublicFunctionUpdate_Table(Sql)
ifnotisempty(conn)orisnull(conn)then
callOpenConn(dbclass)
elseifconn.state=0then
callOpenConn(dbclass)
endif
onerrorresumenext
ifSql<>then
conn.ExecuteSql,Updated
iferrthen
Update_Table=false
err.clear
else
Update_Table=true
endif
Else
Update_Table=false
endif
conn.close
Setconn=nothing
EndFunction
增加
输入：insertSQL语句，表名，自增字段
PublicFunctionInsert_Table(sql,table,id_column)
ifnotisempty(conn)orisnull(conn)then
callOpenConn(dbclass)
elseifconn.state=0then
callOpenConn(dbclass)
endif
onerrorresumenext
ifsql<>then
conn.Execute(sql)
iferrthen
Insert_Table=false:err.clear
else
Insert_Table=true
endif
获得最后增加ID
iftable<>andid_column<>then
Setds=conn.Execute(select&id_column&from&table&orderby&id_column&desc)
endif
iferrthen
Insertd=0:err.clear
elseInsertd=ds(0)
endif
Setds=nothing
closed()
else
Insert_Table=false
endif
EndFunction
关闭数据库链接
PublicFunctionclosed()
ifnotisempty(rs)andnotisnull(rs)then
ifrs.state=1then
rs.close
endif
endif
rsCounts=0:rsPage=1:nowPage=1
endfunction
**********释放类************
PrivateSubClass_Terminate()
readCounts=0:rsCounts=0:rsPage=0
ifnotisempty(conn)andnotisnull(conn)then
ifconn.state=1then
conn.close
endif
Setconn=nothing
endif

ifnotisempty(rs)then
ifnotisnull(rs)then
ifrs.state=1then
rs.close
endif
setrs=nothing
endif
endif
EndSub
EndClass
%>