六天学会VB数据库编程之第三天 ADO数据访问模型

在当今提出的多种动态网页(Dhtml)解决方案中都强调了与数据库的连接,其实网页接挂后台数据库也是当前的热门应用,在电子商务等领域有着广泛的应用.MicroSoft为了适应其发展推出了新的ADO(Active Data Object)模型,通过ODBC的连接可以对当前流行的桌面数据库系统提供方便,快洁的连接.在这里,我想通过ADO在ASP技术中的应用来总结一下ADO对象以及其各自的属性和方法.
一、ADO对象模型:
下面简单介绍一下ADO的对象模型
ADO有三大对象,即Connection对象,Command对象,RecordSet对象.
Connection(对象)
─Errors(集合)─Error(对象)
Command(对象)
─Parameters(集合)─Parameter(对象)
RecordSet(对象)
─Fields(集合)─Field(对象)

　　其中Connection对象,Command对象,RecordSet对象和Field对象又分别具有Properities集合而产生Properity对象.我们在asp编程中已经对这几个对象有了足够的了解.下面是以上三大对象的相互关系.
Command.ActiveConnection-$#@62;Connection
RecordSet.ActiveConnection-$#@62;Connection
Connection.Execute-$#@62;RecordSet
Command.Execute-$#@62;RecordSet
RecordSet.Source-$#@62;Command
好了,有了以上的关系表后,你应该能理解有一些等价的表达形式了.
形式1
set rs = Server.CreateObject("ADODB.RecordSet")
strConn = "driver={SQL Server};server=srv;"& _
"uid=sa;pwd=;database=pubs"
strSQL = "Select * From Employee ;"
rs.open strSQL,strConn,,,adCmdText
形式2
set conn = Server.CreateObject("ADODB.Connection")
strConn ="driver={SQL Server};server=srv;"& _
"uid=sa;pwd=;database=pubs"
conn.open strConn
set rs = Server.CreateObject("ADODB.RecordSet")
rs.ActiveConnection=conn(注意此句)
strSQL = "Select * From Employee ;"
rs.open strSQL,,,,adCmdText
"上面这句也可以写成rs.open strSQL,conn,,,adCmdText
形式3
set conn = Server.CrreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.RecordSet")
strConn ="driver={SQL Server};server=srv;"& _
"uid=sa;pwd=;database=pubs"
conn.open strConn
strSQL = "Select * From Employee ;"
rs=conn.Execu strSQL(注意次句)
形式4
set rs = Server.CreateObject("ADODB.RecordSet")
strConn ="driver={SQL Server};server=srv;"& _
"uid=sa;pwd=;database=pubs"
strSQL = "Select * From Employee ;"
rs.open strSQL,strConn,,,adCmdText

注：上面的例子中均假设SQL Server的name=srv，使用SQL Server Authentication采用了默认的帐号sa，该帐号没有设定密码。

　　上面这几种形式都能够产生一个相同的RecordSet对象的实例rs,但方法各异,在后面的讨论中我们将看到它们不同的优越性.

二、Connection对象:
　　在ADO的模型中,Connection对象是最基本的对象,他主要是提供与数据库的连接。其他的两个对象都是通过它与数据库的连接来完成操作的。它的属性、方法如下所示。
Connection对象的主要属性
　　1、 CursorLocation,它的取值有两个，一个是adUseClient,一个是adUseServer（默认），从其英语本身的含义就可以看出，前者是使用客户端的游标，而后者是使用服务器端的游标。二着的差别在于adUseClient游标可以提供供应商所没有提供的额外的属性，因而灵活性更大。需要注意的是Connection对象与RecordSet对象均有此属性，由Connection对象产生的RecordSet对象会自动的继承这个属性。另外要让此属性对Connection和RecordSet对象的实例起作用的话，必须在打开它们之前先定义。

下面看一个例子
Set conn=Server.CreateObject("ADODB.Connection")
conn.CursorLocation=adUseClient
strConn ="driver={SQL Server};server=srv;"& _
"uid=sa;pwd=;database=pubs"
conn.open strConn
set rs= Server.CreateObject("ADODB.RecordSet")
rs.open "emloyee",conn,,,adCmdTable
采用次种方式则conn与rs的游标均为adUseClient了。
　　2、 ConnectionString，在打开一个Connection实例之前设定数据库的连接信息。在上面的例子中我们使用了一条语句conn.open strConn，其中的strConn就是ConnectionString，因此我们可以重写上面的语句如下：
Conn.ConnectionString=strConn
Conn.open
　　3、 ConnectionTimeOut，设置连接超时。
　　4、 CommandTimeOut，设置命令执行超时。
Connection的主要方法
　　1、 open，打开一个Connection的对象实例，常用的写法为conn.open ConnectionString，如果在打开之前已经定义了ConnectionString属性的话，就可以直接的打开。
　　2、 Execute，产生一个RecordSet实例，常用的写法为
Rs=conn.Excute CommandText,RecordsAffected,Option
其中的CommandText可以为以下的几种形式，主要由Option的值来决定1） SQL语句，此时Option的值为adCmdText，表示将执行一段SQL语句。2）数据库的一个表名，此时Option的值为adCmdTable，表示将对该表进行操作。
　　3、一个StoredProcedure名字，此时Option取值为adCmdStoredProc，它表示将要执行一个SQL上定义的存储过程。这是一个非常灵活而强大的方法，它可以对用户隐藏数据库的具体信息，而只需用户提供适当的参数就可以了，还能返还需要的参数值。在后面介绍Command对象时再做详细的介绍。值得注意的是，有时Excute后并不需要返回一个RecordSet对象，例如在表中删除记录。看下面的例子：
set conn= Server.CreateObject("ADODB.Connection")
conn.ConnectionString="driver={SQL Server};server=srv;"& _
"uid=sa;pwd=;database=pubs"
conn.open
conn.Execute "Delect From Employee Where Job_ID=1;",,adCmdText
　　该例子删除Employee表中Job_ID为1的记录，并不需要再返回一个RecordSet的实例，但如果将最后一句变为rs= conn.Execute "Delect From Employee Where Job_ID=1;",,adCmdText那么我们就可以用此rs来指向表中的记录条了。返回的rs和后面RecordSet对象中用Source属性产生的rs是相同的。
Connection对象的集合
1、 Errors集合，对应产生Error对象。我们将在后面做单独的讨论。
2、 Properties集合，对应产生Property对象，下面给出一段代码，它包含了Property对象的主要方法和属性。

$#@60;%
"this program is testing the ADO"s Property object
Const adCmdTable = &H0002
set conn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.RecordSet")
conn.ConnectionString="Driver={Microsoft Access Driver (*.mdb)};DBQ="& _
Server.Mappath("/source_asp")&"/property/employee.mdb;"
conn.open
rs.ActiveConnection=conn
rs.open "employee",,,adCmdTable
dim i,j
for i=0 to rs.fields.count-1
Response.Write rs.fields(i).name&"$#@60;br$#@62;"
next
for j=0 to rs.properties.count-1
Response.write rs.properties(j).name&"$#@60;br$#@62;"
next
rs.close
conn.close
%$#@62;
三、Error对象：
　　前面讲到了Connection对象是用于与各类的数据库进行挂接的，但在此过程中将会出现一些不可预测的错误，因而有了Error这个对象。首先要清楚一个概念，Error对象是在连接数据库时产生的，而并非那些运行时的实时错误。也就是我们常用 On Error Resume Next来忽略到的错误。这些错误将在Err对象中，我们可以用一个统一的模板来集中处理，我会在后面给出一个实例。下面还是先来看Error对象的属性和方法：
　　1、 Count属性：用来统计Errors集合的数目，它的特点与前面讲到的Property对象的Count对象相同。
　　2、 Clear方法：写法为Error.Clear，是用来清除Errors集合中的原有对象的，在统计新的Error对象时应该先使用此语句。
　　3、 Item方法：用来指定特定的一个错误，语法为Error.Item(number)，其中number为一数字。由于Item为默认的方法，所以Error(number)的写法与前面的写法是等价的。下面是一段程序。用来列举Error的所有对象。
$#@60;%
"this program is testing the ADO"s Error object
Dim i
Set conn=Server.CreateObject("ADODB.Connection")
conn.ConnectionString="Driver={Microsoft Access Driver (*.mdb)};DBQ=" _
&Server.Mappath("/source_asp")&"/property/employee.mdb;"
conn.open
if conn.errors.count$#@62;0 then
response.write "connection to database cause problem!"&"$#@60;br$#@62;"
for i =0 to conn.errors.count-1
response.write conn.errors.item(i)&"$#@60;br$#@62;"
next
else
response.write "connection to database successfully!"
end if
conn.close
%$#@62;
　　对于Err对象的通用模板处理程序我将在讨论RecordSet对象时给出。
　　下面我们将讨论ADO的第二个大的对象━Command对象，我的一个做网站的朋友告诉我他在平时使用ASP挂接数据库时很少使用Command对象，原因是Command对象不好使用，而喜欢用RecordSet对象。是的，可以这么说Command对象是整个ADO模型中最难掌握的一个，但也是功能和性能最好的一个。特别是它的StoredProcedue，它将处理的过程大部分都使用了在SQL Server上已经编译和优化了的存储过程，用过SQL Server的朋友都会明白的。下面就让我们来看Command对象。

四、Command对象：
　　从英语字面的意思就可以看出，Command是用来做命令执行和参数传递的。而Command对象的批量参数传递，StoredProcude执行等等灵活而强大的功能也是它受到青睐的原因。Command对象主要是向SQL语句、StoredProcude传递参数，依靠SQL Server的强大功能来完成数据库的操作；而RecordSet对象可以说是微软从新封装了数据对象，并提供了一系列的方法和属性来简化数据库的编程。我们看下面的一个例子，它用了两种不同的方法实现了向数据库中增加一新的记录条。从中可以清楚的看到Command对象与RecordSet对象的不同点。
方法1（Command）
const adCmdText=&H0001
const adInteger=3
const adVarChar=200
const adParamInput = &H0001
set conn=Server.CreateObject("ADODB.Connection")
set comm=Server.Createobject("ADODB.Command")
conn.open "Driver={ Microsoft Access Driver};DBQ="& _
Server.Mappath("/source_asp")&"/property/employee.mdb;"
comm.ActiveConnection=conn
comm.CommandType=adCmdText
comm.CommandText="insert into employee (Job_ID,Fri_Name,Last_Name)"& _
&"values(?,?,?)"
set param=comm.CreateParameter("ID",adInteger,adParamInput,3,4)
comm.Parameters.Append param
set param=comm.CreateParameter("FN",adVarChar,adParamInput,255,"bill")
comm.Parameters.Append param
set param=comm.CreateParameter("LN",adVarChar,adParamInput,255,"Gates")
comm.Parameters.Append param
comm.Execute
conn.close

方法2（RecordSet）
const adCmdTable=&H0002
set conn=Server.CreateObject("ADODB.Connection")
set rs=Server.Createobject("ADODB.RecordSet")
conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="& _
Server.Mappath("/source_asp")&"/property/employee.mdb;"
rs.ActiveConnection=conn
rs.open "employee",,,adCmdTable
rs.addnew
rs("Job_ID")=4
rs("Fri_Name")="bill"
rs("Last_Name")="Gates"
rs.update
rs.close
conn.close
　　从上面的例子就可以看出来了,这两个对象在处理一些问题上所用的不同的方法.RecordSet对象似乎更加好理解一些,因为它加入了一些在ANSI SQL中没有的元素,它其实是用 SQL在数据库上产生一个记录集，然后用一个游标来指向这个记录集，超作该游标来遍历这个记录集。但在性能上来讲的话Command的性能也相对要优越些.其可重应用性也非常的好。而且如果你是批量的加入记录的话,你也能体会到第一种方案的好处了，因为Command对象就是将SQL产生的记录集作为整体来处理。下面详细介绍Command对象的属性、方法和集合。

　　 1、 CreateParameter方法：用来产生一个Parameter对象，常用的写法为Set param=comm.CreateParameter(name,type,direction,size,value),其中name为参数的引用名，在后面引用参数的值时会有用；type为指定参数的类型，例如整数为adInteger；direction指定参数是输入还是输出，相应的值为adParamInput和adParamOutput；size指定参数的最大长度或最大的值；value指定参数的值。可以将各个选项分开来写，下面的两种写法是等价的：
Set param= comm.CreateParameter(name,type,direction,size,value)
和
set param= comm.CreateParameter(name,type,direction,size)
param.value=value
　　下面的方法其灵活性更大。大家请注意，在使用了CreateParameter方法后只是建立了新的 parameter对象，还需使用Parameter对象的append方法将该参数传递给Command对象。
　　2、 Execute方法：在指定了CommandText后，并将参数传递出去后，用Execute方法来完成执行。
　　3、 ActiveConnection属性：用来指定与Connection对象的连接，这里的一个技巧就是不同的Command对象指向同一个Connection连接。
　　4、 CommandText属性：其值可以是一条SQL命令句，可以是一个表名，也可以是一个StoredProcedure名。
　　5、 CommandType属性：它的值由CommandText相应值的给出，分别为adCmdText,adCmdTable,adCmdStoredProc。与前面在讲Connection对象的Execute方法中的相应的选项的含义相同。
　　6、 CommandTimeOut属性：设定命令执行的超时的值。
　　7、 Properties集合：我们不多讲了，与Connection对象的Property集合相差不多。
　　8、 Parameters集合：也就是参数对象的集合了，他有主要Item方法、Append方法，和Count属性，用法与Property对象及Error对象的相应属性和方法类似，下面给出一个示例：
const adCmdText=&H0001
const adInteger=3
const adVarChar=200
Const adParamInput = &H0001
set conn=Server.CreateObject("ADODB.Connection")
set comm=Server.Createobject("ADODB.Command")
conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="& _
Server.Mappath("/source_asp")&"/property/employee.mdb;"
comm.ActiveConnection=conn
comm.CommandType=adCmdText
comm.CommandText="Insert Into employee (Job_ID,Fri_Name,Last_Name)"& _
"Values(?,?,?);"
set param=comm.CreateParameter("ID",adInteger,adParamInput,3)
param.value=14
comm.Parameters.Append param
set param=comm.CreateParameter("FN",adVarChar,adParamInput,255,"bill")
comm.Parameters.Append param
set param=comm.CreateParameter("LN",adVarChar,adParamInput,255,"Gates")
comm.Parameters.Append param
comm.Execute
conn.close
"The folowing statments show the value of parametrs
dim i
for i=0 to comm.parameters.count-1
response.write comm.parameters.item(i)&"$#@60;br$#@62;"
next
　　当然，我们在引用参数时也可以不用数字，而用前面在CreateParameter时定义的名字，例如：FN、ID等等。另外我们可以将上面的程序的显示部分改为
dim key
for each key in comm.parameters
response.write key&"$#@60;br$#@62;"
next
　　下面我想重点讲一讲StoredProcedure，它的强大足以让我们对它关注，当然这其中会涉及到一些SQLServer的知识

五、StoredProcedure
　　在讨论StoredProcedure之前，我还要对Command对象的Execute方法的作用进行一下阐述，一般来说使用Command的Execute方法有三个目的。1、用于进行一些简单的处理，例如删除一条记录：
comm.CommandType=AdCmdText
comm.CommandText="Delect From employee Where Job_ID=1"
comm.execute
　　这样的工作不需要返回什么东西。2、用于进行一些复杂的处理，例如进行一个Transact的设计，这类一般都是和StoredProcedure一同工作的，而且有输出参数和输入的参数，这也是我们本章的讨论主题。3、用于返回一个RecordSet对象，用于其它的处理，例如：
comm.CommandType=AdCmdText
comm.CommandText="Delect From employee Where Job_ID=1"
set rs=comm.execute
dim i
while not rs.EOF
for i=0 to rs.fileds.count-1
response.write rs.fileds.item(i).value&","
next
response.write "$#@60;br$#@62;"
rs.MoveNext
wend
　　好了，还是让我们从新回到StoredProcedure的讨论上来。StoredProcedure是什么呢？它是一个预先存储的数据库执行动作集，在SQL的管理结构中，对于一个数据库下有几个部分，一个是数据表的集合、一个就是StoredProcedure的集合。将两者结合可以完成很多强大的功能。StoredProcedure其实是对传统的SQL语句的一种扩展，主要是在参数的输入与输出上。下面我大致的介绍一下StoredProcedure的语法结构和与Command对象的参数的传递问题。
StoredProcedure的标准写法：(在SQL Server上用Query Analyzer执行)
Create Procedure Procedure_Name
Define Parameter
As
SQL Structure
上　　面的语法结构中，Procedure_Name为存储结构的的名字，也是你将在Command中引用的名字。然后是定义输出和输入的参数。最后是一个SQL结构化语句。下面是一个StoredProcedure的例子，它无需输入的参数，也没有输出。
Create Procedure Del_User

As
Delect From Employee Where Job_ID=1
如果我们要删除指定的 Job_ID该怎么办呢？，这时我们需要给这个StoredProcedure输入的参数。
Create Procedure Del_User1
@intID int
As
Delect From Employee Where Job_Id = @intID
好了，这里的@intJob就是一个输入的参数，它可以从外部接受输入的值，下面是给它输入的asp程序：
set conn=Server.CreateObject("ADODB.Connection")
set comm=Server.CreateObject("ADODB.Command")
conn.ConnectionString="Driver={SQL Server};Server=ser;"& _
"uid=sa;pass=;database=employee "
conn.open
comm.ActiveConnection=conn
comm.CommandType=adCmdStoredProc
comm.CommandType="Del_User1"
"这里的名字就是前面在SQL Server中定义过的StoredProcedure的名字。
"下面就是参数的输入
param=comm.CreateParameter("ID",adInt,adParamInput,4)
"这里的adParamInput定义是最重要的。
Param.Value=1 "这里的值可以输入你想要的值，也可以用Request来获得
Comm.Parameters.Append param
Comm.Execute
　　这样我们就可以向StoredProcedure传递参数了。有时在一个StoredProcedure中，还存在有输出的参数，下面是一个例子它返回一个Job_ID确定的Fri_Name的值
Create Procedure Get_fName
@intID int
@fName varChar Output "说明为输出的参数
As
Select @fName = Fri_Name Where Job_ID = @intID
它相应的asp程序也要改写为下面的形式
set conn=Server.CreateObject("ADODB.Connection")
set comm=Server.CreateObject("ADODB.Command")
conn.ConnectionString="Driver={SQL Server};Server=ser;"&_
"uid=sa;psss=;database=employee"
conn.open
comm.ActiveConnection=conn
comm.CommandType=adCmdStoredProc
comm.CommandType="Get_fName"
"这里的名字就是前面定义过的StoredProcedure的名字。
"下面就是参数的输入
param=comm.CreateParameter("ID",adInt,adParamInput,4)
"这里的adParamInput定义是最重要的。
Param.Value=2 "这里的值可以输入你想要的值，也可以用Request来获得
Comm.Parameters.Append param
param=comm.CreateParameter("fName",adVarchar,adParamOutput,255,"")
"这里的adParamOutput定义是最重要的。说明它是一个输出的参数，默认的值 为一空的字符串
comm.Parameters.Append param
Comm.Execute
Response.Write "Job_Id为"¶m(0)&"的员工的首姓为"¶m(1)
　　我给大家简单介绍了一下StoredProcedure的基本概念，但StoredProcedure比较复杂，如果你想进一步的深入，必须对SQL Server的结构体系有全面的了解。另外，我们并没有在上面的里子中体会到StoredProcedure的优势，很多人会认为那还不如用普通的方法，其实在构建很多企业级的应用时才能够体会到用StoredProcedure的强大和必要性，这里我举一个简单的例子。一个网络银行的数据库（onLoan）中有两个相关的表Loan表和LoanHistory表，loan表用于记录贷款的信息，而每一笔贷款的记录在Loan表中登记后都必须在LoanHistory表中登记，因为定期的结算都是使用LoanHistory表的。你也许会说那很好办啊。用两个Insert Into语句分别向两个表中插入记录不就行了吗！但要注意的是在这个应用中，若记录在任何的一个表中插入失败都必须将整个的过程给取消（也就是一个事务的取消），那么若仅简单的使用两个Insert Into语句的话，若是在第一个语句执行完毕后，在第二个语句尚未完成时就发生了故障，这时第一个语句产生的效果是没法消除的了。如果我们将这整个的过程定义为一个事务，事务没有完整的结束就Roll Back所有的影响不就达到了要求吗？这在SQL Server中可以用Begin Transaction和Commit Transaction来完成的，例子如下：
Create StoredProcedure insert_loan
As
Begin transaction
Inset into Loan (Loan_ID,Loan_Data,Loan_amount)
Values(?,?,?)
Inset into Loan (Loan_ID,Loan_Data,Loan_amount,Loan_Describle)
Values(?,?,?,?)
Commit Transaction
　　好了，这看上去好象没有什么不同吧，但需要注意的是我们现在将两个Insert into语句作为了一个的事务来处理，只有两个Insert into语句都完成的话才是一个整体的事务结束，那么它才会去作用这个数据库中的两个表，若在事务中发生了故障的话，则所有的影响将取消（Roll Back）。好了，这样的处理是只有在SQL Server中用StoredProcedure才能完成的。ANSI的SQL当然就不行了。这里讲的大家可能不太明白，你可以参看SQL Server的手册来作更多的了解。
　　下面我们来看最后的一个对象─RecordSet对象，也是属性和方法最多的一个了。我们使用的频率也是最高的一个，在这之后，我还想谈谈ADO与ORACLE的一些问题。
六、RecordSet对象
　　写到这一篇的时候，我不禁想到了先贤的两句话，一句是孟子在曹刿论战中所说的：一鼓作气，再而衰，三而竭。这篇ADO总结报告的前五部分都是一鼓作气之作，不知这后面的再而衰部分是否能保持连续了。另外的一句是王安石在游褒禅山记中所说的：世之奇伟、瑰怪、非常之观，常在于险远，而人之所罕至焉，故非有志者不能至也。我们学习编程又何尝不是这样了，若非有志，能及于险远是不能真正掌握的。
　　好了，讲了这么多的题外话，还是让我们回到正题上来，我想，由于大家对RecordSet都有足够的认识，所以我就不象前面的几章中那样对它的每一个属性和方法都做完整的介绍，我想通过几个有代表性的编程实例来给大家讲一讲。
1、 方法
AddNew, CancelBatch, CancelUpdate, Clone, Close, Delete, GetRows, Move, MoveFirst, MoveLast, MoveNext, MovePrevious, NextRecordset, Open, Requery, Resync, Supports, Update, UpdateBatch

2、 属性
AbsolutePage,AbsolutePosition,ActiveConnection,BOF,Bookmark, CacheSize, CursorLocation, CursorType, EditMode, EOF, Filter, LockType, MarshalOptions, MaxRecords, PageCount, PageSize, RecordCount, Source, State, Status

3、 集合
Fields,Properties
实例一：分页显示及导航：
　　为什么我要再提分页的这个问题呢？因为这是一个最基本的问题，虽然有很多关于分页的文章，但我觉得他们的方法偏于复杂。其实RecordSet的AbsolutePage就可以轻松的实现分页，当你指定了PageSize属性后，对AbsolutePage指定值就可以翻转到指定的页面。但是如果你想使用AbsolutePage的话，你必须在打开RecordSet对象之前将它的CursorLocation值设为adUseClient，这个属性是继承Connection对象的一个相同属性的。你也可以在打开Connection对象之前来设定它。下面是源代码，为了方便，我将导航栏独立成了一个子程序方便大家使用。
$#@60;%
sub navigator(PageNo,Target)
Response.Write "$#@60;table border=0$#@62;"
Response.Write "$#@60;tr$#@62;"
Response.Write "$#@60;td$#@62;"
if PageNo$#@62;1 then
Response.write "$#@60;a href="&chr(34)&Target&"?Page=1"&chr(34)&"$#@62;┃第一页$#@60;/a$#@62;"
else
Response.Write "┃第一页"
end if
Response.Write "$#@60;/td$#@62;"
Response.Write "$#@60;td$#@62;"
if PageNo$#@60;rs.PageCount then
Response.write"$#@60;a href="&chr(34)&Target&"?Page="&PageNo+1&chr(34)&"$#@62;┃下一页$#@60;/a$#@62;"
else
Response.Write "┃下一页"
end if
Response.Write "$#@60;/td$#@62;"
Response.Write "$#@60;td$#@62;"
if PageNo$#@62;1 then
Response.write "$#@60;a href="&chr(34)&Target&"?Page="&PageNo-1&chr(34)&"$#@62;┃前一页$#@60;/a$#@62;"
else
Response.Write "┃前一页"
end if
Response.Write "$#@60;/td$#@62;"
Response.Write "$#@60;td$#@62;"
if PageNo$#@60;rs.PageCount then
Response.write "$#@60;a href="&chr(34)&Target&"?Page="&rs.PageCount&chr(34)&"$#@62;┃最后一页$#@60;/a$#@62;"
else
Response.Write "┃最后一页"
end if
Response.Write "$#@60;/td$#@62;"
Response.Write "$#@60;td$#@62;"
Response.Write "┃页次:"&PageNo&"/"&rs.PageCount&"页┃"&rs.PageSize&"条记录/页┃"
Response.Write "$#@60;/td$#@62;"
Response.Write "$#@60;td valign="middle"$#@62;"
Response.Write "$#@60;form action="&chr(34)&Target&chr(34)&" method="&chr(34)&"POST"&chr(34)&"$#@62;"
Response.Write "$#@60;input type="text"size=3 maxlength=4 $#@62;"
Response.Write " $#@60;input type="submit"value="转到"$#@62;"
Response.Write "$#@60;/form$#@62;"
Response.Write "$#@60;/td$#@62;"
Response.Write "$#@60;/tr$#@62;"
Response.Write "$#@60;/table$#@62;"
end sub
%$#@62;

$#@60;%
const adCmdText=&H0001
const adVarChar=200
const adInteger=3
const adParamInput=&H0001
const adCmdTable=&H0002
const adUseClient=3
const adDate=7
const adLongVarChar=201
set conn=Server.CreateObject("ADODB.Connection")
conn.ConnectionString="Driver={Microsoft Access Driver (*.mdb)};DBQ="& _
Server.Mappath("/source_asp")&"/process/process.mdb;"
conn.Open
%$#@62;

$#@60;%
const MaxPageSize=5
%$#@62;
$#@60;html$#@62;
$#@60;head$#@62;
$#@60;title$#@62; See Book $#@60;/title$#@62;
$#@60;/head$#@62;
$#@60;body$#@62;
$#@60;%
dim i,j,PageNo
set rs=Server.CreateObject("ADODB.RecordSet")
rs.ActiveConnection=conn
rs.CursorLocation=adUseClient
rs.Open "Select * From books",,,adCmdText
if rs.BOF then
Response.Write "欢迎使用图书,资料管理程序!"
else
rs.PageSize=MaxPageSize
if isempty(Request.QueryString("Page")) then
PageNo=1
elseif cInt(Request.QueryString("Page"))$#@60;1 then
PageNo=1
elseif cInt(Request.QueryString("Page"))$#@62;rs.PageCount then
PageNo=rs.PageCount
else
PageNo=cInt(Request.QueryString("Page"))
end if
if Request.ServerVariables("Request_Method")="POST" and not Isempty(Request.Form("Page")) then
PageNo=cInt(Request.Form("Page"))
end if
rs.AbsolutePage=PageNo
Response.Write "$#@60;table border="0" width="100%"$#@62;"
Response.Write "$#@60;tr$#@62;$#@60;td colspan="&rs.fields.count&"$#@62;"
Target="books.asp"
call navigator(PageNo,Target) "调用导航栏
Response.Write "$#@60;/td$#@62;$#@60;/tr$#@62;"
Response.Write "$#@60;tr$#@62;"
for i=0 to rs.fields.count-1
Response.Write "$#@60;td$#@62;"&rs.fields.item(i).name&"$#@60;/td$#@62;"
next
Response.Write "$#@60;/tr$#@62;"
j=0
while (not rs.EOF) and j$#@60;rs.PageSize
Response.Write "$#@60;tr$#@62;"
for i=0 to rs.fields.count-1
if i=1 then
Response.Write "$#@60;td$#@62;"&"$#@60;a href="&chr(34)&"status.asp?BookName="& _
rs.fields.item(i).value&chr(34)&"$#@62;"&rs.fields.item(i).value&"$#@60;/a$#@62;$#@60;/td$#@62;"
"这里这样写是为了级联式查询而做的。
else
Response.Write "$#@60;td$#@62;"&rs.fields.item(i).value&"$#@60;/td$#@62;"
end if
next
Response.Write "$#@60;/tr$#@62;"
rs.MoveNext
j=j+1
wend
Response.Write "$#@60;/table$#@62;"
end if
%$#@62;