IDC资讯中心
在上两讲中，我们讲解了asp中数据库的基本使用，今天将介绍几种非常实用的技术。
一、 分页技术
前面我们介绍了如何检索数据并输出到浏览器端，对少量数据而言，那样简单的输出处理是完全可以的，但是若数据量很大，有几百条甚至上千条，一次将如此多的数据全部输出到客户端是不现实的，一来页面从上到下拉得很长，二来客户端等待的时间过长，三来服务器的负载过大。所以采取分页输出非常必要。
要求：输出northwind.mdb“产品”表中的数据至浏览器，每页显示10条。
例wuf60.asp，这段代码还是有点难度的，要多看多体会，adoaccess.asp在上讲中提到过。
注：该例程吸收了某些书籍中好的部分，特此声明。
<%@ language=”vbscript” %>
<!–#include file=”adoaccess.asp”–>
<!–#include file=”adovbs.inc”–>
<%
dim recordperpage, abspagenum, totalpages, absrecordnum, rstest, strsql
abspagenum – 当前页为第几页
totalpages – 总的页数
absrecordnum – 当前页中某一条记录的序号, 如 1-10
recordperpage = 10 每页显示的记录数
取得所输出数据的 当前页码
if request.servervariables(“content_length”) = 0 then
若没收到表单递交的数据(如首次加载该页时), 则从第 1 页开始显示
abspagenum = 1
else
取出按 按钮 时的页码
abspagenum = cint(request.form(“presspagenum”))
如按 上一页 则页码 -1, 按 下一页, 则页码 +1
if request.form(“submit”) = “上一页” then
abspagenum = abspagenum – 1
elseif request.form(“submit”) = “下一页” then
abspagenum = abspagenum + 1
end if
end if
创建记录集对象
set rstest = server.createobject(“adodb.recordset”)
rstest.cursorlocation = aduseclient 这样设置可减轻数据库负载
rstest.cursortype = adopenstatic 游标需要前后移动，不能设为仅向前
rstest.cachesize = recordperpage 设置这个选项会提高性能
strsql = “select * from 产品 order by 产品id”
rstest.open strsql, cnn, , , adcmdtext
rstest.pagesize = recordperpage 设置每一页的记录数
if not(rstest.eof) then
rstest.absolutepage = abspagenum
end if
totalpages = rstest.pagecount
%>
<% 下面部分 输出当前页的数据至浏览器 %>
<html><boby>
<table colspan=8 cellpadding=5 border=0>
<tr>
<td align=center bgcolor=”#800000″ width=”109″> <font style=”arial narrow” color=”#ffffff” size=”2″>单价</font></td>
<td align=center width=459 bgcolor=”#800000″> <font style=”arial narrow” color=”#ffffff” size=”2″>产品名称</font></td>
</tr>
<% 用循环输出当前页的 10 条数据
for absrecordnum = 1 to rstest.pagesize
%>
<tr>
<td bgcolor=”f7efde” align=center> <font style=”arial narrow” size=”2″><%= rstest(“单价”)%></font></td>
<td bgcolor=”f7efde” align=center> <font style=”arial narrow” size=”2″><%= rstest(“产品名称”)%></font></td>
</tr>
<%
rstest.movenext
if rstest.eof then
exit for 如果已到记录尾, 退出 – 如最后一页数据不满页时
end if
next
rstest.close : cnn.close
set rstest = nothing : set cnn = nothing
%>
</table>
<% 下面部分 是两个按钮 “上一页” “下一页” %>
<form action = “<%= request.servervariables(“script_name”) %>” method=”post”>
<input type=”hidden” name=”presspagenum” value=”<%= abspagenum%>”>
<%
if abspagenum > 1 then 如果当前不是第一页, 则显示上一页按钮 %>
<input type=”submit” name=”submit” value=”上一页”>
<% end if
if abspagenum <> totalpages then 如果当前页不是最后一页, 则显示下一页按钮%>
<input type=”submit” name=”submit” value=”下一页”>
<% end if %>
</form>
<p><center> [ 第 <font color=”#cc0033″><%= abspagenum %></font> 页,
共 <font color=”#cc0033″><%= totalpages %></font> 页 ] </center></p>
</body></html>
分析：
1．recordset对象一些有用的属性：
l rstest.cursorlocation = aduseclient：也可以不要这句，但这样做可以减轻数据库负载；
l rstest.cachesize = recordperpage：cachesize属性用来决定每次用户端从数据库服务器取得的数据多少；
l rstest.pagesize：pagesize属性用来设置每一页记录数的多少；
l rstest.absolutepage：absolutepage属性设置当前数据在recordset对象中的绝对页数；
l rstest.pagecount：pagecount属性用来获取记录集的总页数。
2．本例form表单中使用了一个隐含字段presspagenum 用来传递点击按钮时为第几页。
二、 错误处理
代码执行的过程中，可能因各种原因发生错误，如：代码本身有问题、网络断开等等，所以在程序中设置错误捕获和处理是非常必要的。在asp中，我们可以通过connection对象的errors数据集合取得代码运行时所发生的错误或警告信息，其使用方法如下：
1． 直接对connection对象来使用：
set errs = cnn.errors
或者
cnn.errors
2． 建立recordset对象或command对象后，再通过其activeconnection属性来使用connection对象：
set errs = rstest.activeconnection.errors
或者
rstest.activeconnection.errors
说起来太粗象，举一实例吧：wuf61.asp
<%@ language=”vbscript” %>
<% option explicit %>
<!–#include file=”adovbs.inc”–>
<%
response.expires = 0
下面这句保证: 即使脚本遇到错误, 也继续执行下一句
on error resume next
dim cnn, rstest, errs, i
set cnn = server.createobject(“adodb.connection”)
commandtimeout – 与数据库连接的最长等待时间, 缺省为15秒
cnn.commandtimeout = 5
你可以分别在下面三种情况下检测错误发生情况 – 以sql server为例
1 – 完全正确; 2 – 未设置初始数据库; 3 – 数据库名误为 pvbs
cnn.open “provider=sqloledb; user id=sa; password=; initial catalog=pubs; data source=icbczjp”
cnn.open “provider=sqloledb; user id=sa; password=; initial catalog=; data source=icbczjp”
cnn.open “provider=sqloledb; user id=sa; password=; initial catalog=pvbs; data source=icbczjp”
for i = 0 to cnn.errors.count – 1
source属性表示造成错误的来源
response.write “[ ” & cnn.errors(i).source & ” ] “
description属性表示错误发生原因或描述
response.write cnn.errors(i).description & “<br>”
next
if cnn.errors.count > 0 then
response.write “连接时发生 ” & cnn.errors.count & ” 个错误” & “<br>”
end if
set rstest = server.createobject(“adodb.recordset”)
rstest.open “jobs”,cnn,adopenforwardonly,adlockreadonly,adcmdtable
if rstest.activeconnection.errors.count > 0 then
set session(“errs”) = rstest.activeconnection.errors
response.redirect “errorhandle.asp”
end if
cnn.close
set rstest = nothing : set cnn = nothing
%>
errorhandle.asp代码：
<%
dim i
for i = 0 to session(“errs”).count – 1
response.write “[ ” & session(“errs”)(i).source & ” ] “
response.write session(“errs”)(i).description & “<br>”
next
%>
分析：
在本例中，错误可能在连接时发生，也可能连接是正确的，但是在使用recordset对象时发生了错误。
另外，在后面的一段代码中，将错误集合放入一个会话对象中，以便在页面之间调用（遇到错误时，转向错误处理页面errorhandle.asp）。
实际上，你也完全可以将recordset对象赋给session对象，以实现记录集在页面之间的调用。
三、 使用事务
事务这一概念是非常简单和重要的，为了说明其用途，先假设出现了以下情况：例如在电子商务中，在网上进行货币转帐时，必须从某一帐户中减去某个数额并将其对等数额添加到另一个帐户。无论其中的哪个更新失败，都将导致帐户收支不平衡（要么这边扣了，那边没有增加；要么这边没扣，那边却增加了）。如果使用事务进行这些更改，便可确保只能选择进行全部更改或不作任何更改（不是被完全正确执行，就是被全部取消）。
事务隶属于connection对象，connection对象有三个与事务有关的方法：
l begintrans 启动新的事务。
l committrans 保存所有更改并结束当前事务。
l rollbacktrans 取消当前事务中所做的任何更改并结束事务，通常称为“回滚”。
我们不妨看一个实例wuf62.asp。
<%@ language=”vbscript” %>
<% option explicit %>
<!–#include file=”adovbs.inc”–>
<%
response.expires = 0
on error resume next
dim cnn, strsql, rstest
set cnn = server.createobject(“adodb.connection”)
cnn.open “provider=sqloledb; user id=sa; password=; initial catalog=pubs; data source=icbczjp”
开始一个事务
cnn.begintrans
strsql = “insert jobs(job_desc, min_lvl, max_lvl) values(金融,16,86)”
cnn.execute strsql
下面第一句语句错误, 第二句正确
strsql = “update jobs_err set job_desc = 事务 where job_id = 14”
strsql = “update jobs set job_desc = 事务 where job_id = 14”
cnn.execute strsql
if cnn.errors.count > 0 then
response.write “发生错误, 系统恢复事务开始时的状态, 既不会新增, 也不会修改” & “<br>”
cnn.rollbacktrans
else
response.write “没有错误, 保存对数据库的更改, 新增一条数据, 修改一条数据” & “<br>”
cnn.committrans
end if
set rstest = cnn.execute(“select * from jobs where job_id>=14”)
while not rstest.eof
response.write rstest(0) & rstest(1) & rstest(2) & rstest(3) & “<br>”
rstest.movenext
wend
该例仅为测试, 故恢复数据库原来数据
cnn.execute “update jobs set job_desc = designer where job_id = 14”
cnn.execute “delete jobs where job_id > 14”
cnn.close: set cnn = nothing
%>
本例中，新增(insert)和修改(update)要么同时发生，要么都不发生，不会出现新增一条数据，而修改却因为语句错误未发生的情况。在数据库编程时使用事务是一个非常好的习惯。
四、多个记录集的处理
有时候我们需要同时取得两个表的数据，如果放在一条sql语句中返回，则可以减少网络传输并提高运行效率。
例wuf64.asp，这个例子还顺带讲解了如何使用循环输出字段值（而以前我们都是用“rstest(0) & rstest(1) & …”这样的笨方法输出的，如果只有两三个字段，用这种方法显然更简洁），如果一时看不明白，请下载简单一点的wuf63.asp，切记！。
<%@ language=”vbscript” %>
<%
option explicit
response.expires = 0
dim cnn, strsql, rstest, i
set cnn = server.createobject(“adodb.connection”)
cnn.open “provider=sqloledb; user id=sa; password=; initial catalog=pubs; data source=icbczjp”
set rstest = server.createobject(“adodb.recordset”)
检索多个记录集
strsql = “select count(*) as 雇员数 from employee; select * from jobs”
rstest.open strsql, cnn , , ,adcmdtext
while not rstest is nothing
response.write “<table border = 2><tr>”
rstest.fields.count – 记录集字段个数
for i = 0 to rstest.fields.count – 1
rstest(i).name – 第 i 个字段的字段名
response.write “<td>” & rstest(i).name & “</td>”
next
response.write “</tr>”
while not rstest.eof
response.write “<tr>”
用循环输出每一个字段的值
for i = 0 to rstest.fields.count – 1
response.write “<td>” & rstest(i) & “</td>”
next
response.write “</tr>”
rstest.movenext
wend
读取下一个recordset对象
set rstest = rstest.nextrecordset
wend
cnn.close
set rstest = nothing: set cnn = nothing
%>
说明：sql server数据库支持多个记录集，而access数据库不支持。
五、 尽早关闭连接，释放资源
在以往的例子中，都是最后关闭连接，然而connection对象要占用资源，事实上，按下面wuf65.asp所提供的方法，完全可以更早一点关闭连接。
<% @language = vbscript %>
<!–#include file=”adoaccess.asp”–>
<!–#include file=”adovbs.inc”–>
<% wuf65.asp
dim strsql, rstest
strsql = “select * from 运货商”
set rstest = server.createobject(“adodb.recordset”)
一定要使用客户端游标, 否则不行
rstest.cursorlocation = aduseclient
rstest.open strsql,cnn,,,adcmdtext
删除记录集对 connection 对象的依赖
set rstest.activeconnection = nothing
尽可能早的关闭连接
cnn.close: set cnn = nothing
do while not rstest.eof
response.write rstest(0) & ” ” & rstest(1) & ” ” & rstest(2) & ” ” & “<br>”
rstest.movenext
loop
set rstest = nothing
%>
