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"
'下面第一句语句错误, 第二句正确 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)要么同时发生，要么都不发生，不会出现新增一条数据，而修改却因为语句错误未发生的情况。在数据库编程时使用事务是一个非常好的习惯。
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数据库不支持。