分享
 
 
 

ASP讲座之八:ASP与数据库(三)

王朝asp·作者佚名  2006-12-16
窄屏简体版  字體: |||超大  

在上两讲中,我们讲解了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

[1] [2] 下一页

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有