ASP入门基础教程-Recordset 对象

　2006-10-26 12:01:59　来源：WEB开发网　闂傚倸鍊搁崐鎼佸磹閹间礁纾归柟闂寸绾剧懓顪冪€ｎ亜顒㈡い鎰Г閹便劌顫滈崱妤€骞婄紓鍌氬€瑰銊╁箟缁嬫鍚嬮柛顐線缂冩洟姊婚崒娆戭槮婵犫偓闁秵鎯為幖娣妼缁愭鏌″搴′簽濞戞挸绉甸妵鍕冀椤愵澀娌梺缁樻尪閸庣敻寮婚敐澶婂嵆闁绘劖绁撮崑鎾诲捶椤撴稑浜炬慨妯煎亾鐎氾拷

闂傚倸鍊搁崐鎼佸磹閹间礁纾归柟闂寸绾剧懓顪冪€ｎ亝鎹ｉ柣顓炴閵嗘帒顫濋敐鍛婵°倗濮烽崑娑⑺囬悽绋挎瀬闁瑰墽绮崑鎰版煙缂佹ê绗ч柍褜鍓﹂崣鍐潖閸濆嫅褔宕惰娴犲ジ姊虹拠鑼闁煎綊绠栭幃楣冩倻閽樺鎽曢梺闈涱檧婵″洭宕㈤悽鍛娾拺閻熸瑥瀚烽崯蹇涙煕閻樺磭澧甸柕鍡楀€圭缓浠嬪川婵犲嫬骞堥梺纭呭閹活亞妲愰弴鐔哄ⅰ闂傚倷绶氬ḿ褍煤閵堝洠鍋撳顐㈠祮闁绘侗鍣ｉ獮鎺懳旈埀顒傜不閿濆棛绡€闂傚牊绋戦弳娆徝瑰⿰鍫㈢暫闁哄矉缍佹慨鈧柍鎯版硾濠€杈ㄧ珶閺囩喓绡€婵﹩鍘鹃崢鐢告⒑缂佹ê濮﹂柛鎾村哺閹ɑ娼忛妸銈囩畾闂佸湱绮敮鐐存櫠濞戞氨纾肩紓浣贯缚濞插鈧娲栧畷顒冪亙闂佸憡鍔曢崯鐘诲礈濠靛牊宕叉繛鎴炨缚閺嗗棗鈹戦悩杈厡闁轰焦鐗滅槐鎾存媴娴犲鎽甸梺鍦嚀濞层倝鎮鹃悜钘夌闁规惌鍘介崓鐢告⒑閻熸澘鎮侀柣鎺炵畵閹骞栨担鍏夋嫽婵炶揪绲块崕銈夊吹閳ь剟姊洪幖鐐测偓鏍偋閻樿崵宓侀煫鍥ㄧ⊕閺呮悂鏌ㄩ悤鍌涘

濠电姷鏁告慨鐑藉极閸涘﹥鍙忛柣鎴ｆ閺嬩線鏌涘☉姗堟敾闁告瑥绻戦妵鍕箻閸楃偟浠肩紓浣哄閸ㄥ爼寮诲☉銏犵疀闂傚牊绋掗悘鍫ユ倵閻熺増鍟炵紒璇插暣婵＄敻宕熼姘鳖啋闁诲酣娼ч幗婊堟偩婵傚憡鈷戠痪顓炴媼濞兼劖绻涢懠顒€鏋庢い顐㈢箳缁辨帒螣閼测晜鍤岄梻渚€鈧偛鑻晶顔肩暆閿濆牆鍔垫い锔界叀閹繝濡舵径瀣帾闂佸壊鍋呯换鍐磻椤忓懐绠剧€瑰壊鍠曠花濠氬箚閻斿吋鈷戦悗鍦У閵嗗啴鏌ら崘鑼煟鐎规洘绻堥弫鍐焵椤掑嫧鈧棃宕橀鍢壯囨煕閳╁喚娈橀柣鐔稿姍濮婃椽鎮℃惔鈩冩瘣闂佺粯鐗曢妶绋跨暦閻戞ḿ绡€闁搞儜鍐ㄧギ闂備線娼ф蹇曟閺囥垹鍌ㄦい蹇撶墛閳锋垿鏌熼懖鈺佷粶闁告梹顨婇弻锟犲川椤旈敮濮囩紓浣稿€圭敮鐔妓囩€靛摜纾奸弶鍫涘妼缁楁碍绻涢悡搴ｇ闁糕斁鍓濋幏鍛存煥鐎ｅ灚缍楅梻鍌氬€峰ù鍥ь浖閵娾晜鍊块柨鏇炲€哥粻鏌ユ煕閵夘喖澧柡瀣╃窔閺岀喖宕滆鐢盯鏌￠崨顔藉€愰柡灞诲姂閹倝宕掑☉姗嗕紦闂傚倸鍊搁崐鎼佸磹閹间礁纾归柟闂寸绾剧懓顪冪€ｎ亜顒㈡い鎰Г閹便劌顫滈崱妤€骞婄紓鍌氬€瑰銊╁箟缁嬫鍚嬮柛顐線缂冩洟姊婚崒娆戭槮婵犫偓闁秵鎯為幖娣妼缁愭鏌″搴′簽濞戞挸绉甸妵鍕冀椤愵澀娌梺缁樻尪閸庣敻寮婚敐澶婂嵆闁绘劖绁撮崑鎾诲捶椤撴稑浜炬慨妯煎亾鐎氾拷　　闂傚倸鍊搁崐鎼佸磹閹间礁纾归柟闂寸绾惧綊鏌ｉ幋锝呅撻柛銈呭閺屻倝宕妷锔芥瘎婵炲濮靛銊ф閹捐纾兼繛鍡樺笒閸橈紕绱撴笟鍥ф珮闁搞劌鐖兼俊鎾礃椤旂厧绐涢梺鍝勵槹閸ㄥ綊宕㈠ú顏呭€垫鐐茬仢閸旀碍銇勯敂璇茬仸鐎规洩绻濋獮搴ㄦ嚍閵壯冨妇闂傚⿴鍋勫ú锕€煤閺嶃劎澧￠梻鍌欐祰椤曆呪偓鍨浮瀹曟粓鎮㈡總澶嬬稁闂佹儳绻愬﹢杈╁閸忛棿绻嗘い鏍ㄧ閹牊銇勯銏㈢劯婵﹥妞藉畷鐑筋敇濞戞瑥鐝遍梻浣呵归鍛涘┑瀣畾闁逞屽墯閵囧嫯绠涢幘瀵搞偐濠碘槅鍨扮€氭澘顫忓ú顏勪紶闁告洦鍓氶幏鍗炩攽閻愭彃绾у畝锝呮健楠炴垿濮€閻橆偅鏂€婵犵數濮寸€氼噣寮堕幖浣光拺闁告繂瀚婵嗏攽椤旀儳鍘撮柟顔诲嵆婵＄兘鍩￠崒妤佸濠电偠鎻徊浠嬪箹椤愩倖鏆滈悹杞拌閻斿棝鏌ｉ悢宄扮盎闁衡偓閼姐倗纾奸柛灞炬皑瀛濆Δ妤婁簷閸楀啿鐣烽悡搴僵闁挎繂鎳嶆竟鏇㈡⒑閸濆嫬鏆欓柣妤€妫涚划鍫ュ礃閳瑰じ绨婚棅顐㈡搐濞寸兘藝閿曗偓闇夋繝濠傜墢閻ｆ椽鏌＄仦璇插闁宠鍨垮畷鍗炩槈閹典礁浜炬俊銈傚亾妞ゎ叀鍎婚¨渚€鏌涢悩宕囧⒌婵犫偓娓氣偓濮婅櫣绱掑Ο鏇熷灴閹兘濡疯閸嬫挸顫濋悡搴㈢亾缂備緡鍠氱划顖炲Χ閿濆绀冮柍鍝勫暙楠炲牊淇婇悙顏勨偓鏍礉閹达箑纾归柡鍥ュ灩閸戠娀骞栧ǎ顒€濡介柣鎾跺枛閻擃偊宕惰閸庡繘鏌涢弮鈧划鎾诲蓟閺囥垹鐐婄憸宥夘敂椤撶姭鍋撳▓鍨灍婵炲吋鐟ㄩ悘鎺楁⒑閸涘﹦绠撻悗姘煎墲椤ゅ倹绻濈喊澶岀？闁稿鍨垮畷鎰板箣閿曗偓閸ㄥ倹绻涘顔荤凹闁稿绻濋弻宥夊传閸曨剙娅ｇ紓浣哄У閻楃娀寮诲澶婄厸濞达絽鎲″▓鏌ユ⒑缁嬫寧鎹ｉ柛鐘崇墵瀵寮撮姀鐘靛€為悷婊冪Ф閼鸿鲸绻濆顓犲幍闂佸憡鍨崐鏍偓姘炬嫹

核心提示：一、Recordset 对象简述Recordset 对象表示的是来自基本表或命令执行结果的记录全集，在任何情况下，ASP入门基础教程-Recordset 对象，该对象所指的当前记录均为集合内的单条记录，使用 Recordset 对象可以操作来自提供程序的数据，**--><table align="

一、Recordset 对象简述

Recordset 对象表示的是来自基本表或命令执行结果的记录全集。在任何情况下，该对象所指的当前记录均为集合内的单条记录。使用 Recordset 对象可以操作来自提供程序的数据，通过该对象几乎可以对所有数据进行操作。所有 Recordset 对象均使用记录（行）和字段（列）进行构造。Recordset 对象实际上是依附于 Connection 对象和 Command 对象之上的。通过建立及开启一个 Connection 对象，可以与我们关心的数据库建立连接；通过使用 Command 对象，则可以告诉数据库我们想要做什么：是插入一条记录，还是查找符合条件的记录；通过使用 Recordset 对象，则可以方便自如地操作 Command 对象返回的结果。

二、创建 Recordset 对象

要使用 Recordset 对象处理结果，首先必须创建 Recordset 对象实例。其格式如下：

Set RS=Server.CreateObject("adodb.recordset")

三、打开记录集

RS.Open Source,ActiveConnection,CursorType,LockType,Options

所有的参数都是可选项。Source 为 Command 对象变量名、SQL 语句、表名、存储过程调用或持久 Rcordset 文件名。

ActiveConnection 为有效的 Connection 对象变量名或包含 ConnectionString 字符串。

LockType 指定打开 Recordset 时应使用的锁定类型。

Options 指定如何计算 Source 参数或从以前保存 Recordset 的文件中恢复 Recordset。

　　四、Recordset 对象的常用属性

Recordset 对象的常用属性<表>

属　性	描　　述　/　注　解
ActiveConnection	指定与数据提供者的连接信息，用来指定当前的 Recordset 对象属于哪个 Connection 对象。
Source	指定 Recordset 对象的数据源，可以是一个 Command 对象名、SQL 语句、数据库表或存储过程。
CoursorType	指定 Recordset 对象所使用的光标类型。
CoursorType	共有 4 种光标类型： 0 一前滚光标，光标只能向前移动，执行效率高。是 Cursor 的默认值； 1 一键盘光标，光标可向前或向后移动，Recordset 记录集同步反映自它创建后其他用户所作的修改和删除，但却不能同步反映自它创建后其他用户新增加的记录； 2 一动态光标，光标可向前或向后滚动，任何时候 Recordset 记录集都同步反映其他用户的任何操作； 3 一静态光标，光标可向前或向后移动，自创建后无法同步反映其他用户所做的任何操作，它的功能简单但消耗资源少。
LockType	表示编辑时记录的锁定类型。它决定了当不止一个用户试图同时改变一个记录时，Recordset 如何处理数据记录。
LockType	0 一只读锁定，记录只读，不能更新 Recordset ,为 LockType 的默认值； 1 一悲观锁定，编辑记录开始立刻锁定，直到提交给数据提供者； 2 一乐观锁定，一次锁定一条记录，只有调用 Update 方法提交数据时才锁定记录； 3 一乐观的批量更新，允许同时更新多条记录。
Filter	用来设定一个过滤条件，以便对 Recordset 记录进行过滤。
CacheSize	表示一个 Recordset 对象在高速缓存中的记录数。
Maxrecords	执行一个 SQL 查询时，返回 Recordset 对象的最大记录数。
Bof	判断记录指针是否到了第一条记录之前。
Eof	判断记录指针是否到了最后一条记录之后。
RecordCount	返回 Recordset 对象的记录数，（在使用键盘光标时，该属怀返回的可能是不太准确的数值；一般情况下，并不用这种方法来统计 Recordset 中的记录数，因为它的性能并不稳定）
Bookmark	书签标记，用来保存当前记录的位置。
AbsolutePosition	用来设定 Recordset 对象中当前记录的顺序位置是第几行记录。
PageSize	表示 Reccordset 对象的页面大小（每页多少条记录），默认值为10。
PageCount	表示 Recordset 对象的页面个数。
AbsolutePage	表示当前记录的页号。
EditMode	指示当前记录的编辑状态，0 一已被编辑；1 一已被修改而未提交；2 一存入数据库的新记录。
Status	对 Recordset 对象进行批量更新后，查询当前记录的状态。
	值	意义描述	值	意义描述
	0	记录更新成功。	1024	存在记录锁定，新记录未保存。
	1	新记录。	2048	使用乐观并发事件，未保存。
	2	记录被删除。	4096	用户违反完整性规则，记录未保存。
	4	记录未被删除。	8192	很待定修改，记录未保存。
	8	记录未被修改。	16384	与一存储对象相冲突，记录未保存。
	16	书签不合法，记录未保存。	32768	内存不够，记录未保存。
	64	影响多个记录，未保存。	65536	用户没有中、足够的权限，未保存。
	128	指向一待定插入，记录未保存。	131072	违反基本数据库原则，记录未保存。
	256	操作被取消，记录未保存。	262144	记录已从数据源删除。

五、Rcordset 对象的方法

Recordset 对象的方法<表二>

方法

描述 / 格式 / 注解

Open

打开一个 Recordset 对象。

Rs.Open[Source][,ActiveConnection][,CursorType][,LursorType][,Option]

Rs ：为已经建立的 Recordset 对象；

Source ：为可选参数，可以是一个 Command 对象名、SQL 语句、数据库表或存储过程；　

ActiveConnection ：定义与数据库的连接信息；

CursorType ：是Recordset 对象所使用的光标类型；

LockTypec 是编辑 Recordset 对象记录时所使用的锁定类型；

Option 指示数据提供者如何处理 Source 的内容类型，其参数值及其意义见下表：

Options值	意义描述
1	表示被执行的字符串包含一个命令文本。
2	表示被执行的字符串包含一个表名。
4	表示被执行的字符串包含一个存储过程名。
8	没有指定字符串的内容（这是默认值）

Close

关闭一个 Recordset 对象。但并不从内存中删除该对象，只是无法读取其中的数据，但仍然可以读取它的属性。因此一个关闭的 Recordset 对象还可以用 Open 方法打开并保持其原有属性。

Rs.Close

Rs：为已经建立的 Recordset 对象；如果正进行编辑更新数据的操作，则在使用此方法之前必须先调用 Update 和 CancelUpdate 方法。否则将会出现错误。

Clone

创建一个 Recordset 对象的完全拷贝，但只有所用的 Recordset 对象类型允许使用 Bookmarks时才能使用该方法。

MoveFirst

把 Recordset 指针指向第一行记录。

Rs.MoveFirst

MoveLast

把 Recordset 指针指向最后一条记录（该 Recordset 必须支持书签）。

Rs.MoveLast

MovePrevious

把Recordset 指针上移一行（使用前应判断 BOF 是否为真，该方法必须支持书签）。

Rs.MovePreviors

MoveNext

把Recordset 指针下移一行（使用前应判断 EOF 是否为真）。

Rs.MoveNext

Move

把Recordset 指针指向指定的记录。

Move n [,start]

n 为要移动的记录数，取正时表示向前（下）移动，取负时表示向后（上）移动；

start 是可选参数，表示移动的起点。

GetRows

从一个 Rexordset 对象读取一行或多行记录到一个数组中。

Myarray=Rs.GetRows ( rows,start,fields )

Myarray 为目标数组名；Rs 为已创建的 Recordset 对象，Rows 为返回数组的行数；start 为读取数据的起点（书签）；Fields 为 Recordset 的字段。

NextRecordSet

清除当前的 Recordset 并执行下一条指令，以传回下一个 Recordset 对象，如果没有下一条指令，则返回 Nothing 给 Recordset 。

Requery

重新执行 SQL 操作，以更新 Recordset 对象中的数据。

Resync

从数据源更新当前的 Recordset 记录，实现与数据源的同步。

Addnew

增加一条空记录。

Rs.AddNew N

增加一条空记录，并将数组中的元素（N）添加到这条空记录中。

Delete

删除当前记录。

Delete [value]

如果 value=1(默认值）表示该方法只删除当前记录，value=2 表示该方法删除所有由 Filter 属性设定的记录。

Update

保存当前记录的任何变动。

Rs.Update

CancelUpdate

取消前一个 Update 方法所做的一切修改。

UpdateBatch

Recordset 工作在批量方式时，取消对 Recordset 的更新。

Suports

获取创建的 Recordset 对象的能力信息。

注：使用 Move 、MoveFirst 、MoveLast 、MovePrevious 、MoveNext 方法移动记录指针时，需要注意 Rrcordset 对象的光标类型。如“前滚光标”限制了记录指针只能向前移动。

六、Recordset 对象的应用实例

1、这是一个简单的员工基本情况管理系统，其功能有：1）、添加员工资料；2）、更改员工资料；3）、删除员工资料。它包含着六个页面和一个数据库。分别为：

1）、主页面：index.asp

2）、添加数据页面：add.htm

3）、保存添加数据页面：add.asp

4）、更改数据页面：Update.asp

5）、保存更改数据页面：Update2.asp

6）、删除记录页面：Detele.asp

7）、数据库：RSGL.mdb.用到该数据库中的”员工基本情况表“。

2、各页面的代码如下：

1)、主页面：index.asp。该页面的功能有：

a、创建两个对象，Connectiion对象和Recordset对象，其目的是连接数据库和返回一个记录集；

b、创建一个表格，使do while循环语句将各条记录在表格中显示出来；

c)、创建三个超连接，一个用以连接添加数据页面，另一个通过指定的员工姓名连接到更改数据页面，还有一个通过指定的员工姓名连接到删除页面。

<% @ Language="VBScript" %>
<html>
<head><title>员工基本情况管理系统</title></head>
<body>
<%
'****************创建两个对象（连接对象、记录集对象）*********************
dim cnn,rst
set cnn=Server.CreateObject("ADODB.Connection")
set rst=Server.CreateObject("ADODB.Recordset")
'指定连接字符串，
cnn.ConnectionString="PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=" & server.MapPath("../rsgl.mdb")
cnn.Open
sSQL="select * from 员工基本情况表"
'rst.Open sSQL,cnn,1,1
set rst=cnn.Execute(sSQL,,adCmdText)
%>
<!--************创建一个表格，用以显示数据库中的各条记录***********-->
<table align="center" border="1">

<caption><h3>教职员工基本情况表</h3></caption>
<tr colspan="5"><td><a href="add.htm">添加记录</a></td></tr>
<!--显示各字段名-->
<tr><td align="center">员工姓名</td><td align="center">所在部门</td><td align="center">家庭住址</td><td align="center">家庭电话</td><td align="center">Email</td><td align="center">状态</td>
<%
'使用do while循环语句将各条记录显示出来。
do while Not rst.eof
t1=rst("员工姓名")
t2=rst("所在部门")
t3=rst("家庭住址")
t4=rst("家庭电话")
t5=rst("Email")
tt="<tr align='center'><td>" & t1 & "</td><td>" &t2& "</td><td>" &t3& "</td><td>" &t4& "</td><td>" &t5& "</td><td>"
tt=tt & "<a href=Update.asp?id=" & t1 & ">修改</a><a href=Detele.asp?id=" & t1 & ">||删除</a></td></tr>"
response.write tt
rst.MoveNext
loop
cnn.Close
Set cnn=Nothing
%>
</table>
</body>
</html>

　　　　　　　2)、添加数据页面：add.htm 。本页面由一个表单组成，其功能是向保存添加数据页面（add.asp）提交数据。

<html>
　　　　<head><title>添加记录</title></head>
<body>
<div align="center">
<form name="form1" method="post" action="add.asp">
<table align="center" border="1">
<tr><td colspan="2" align="center">员工基本情况表</td></tr>
<tr><td align="right">员工姓名：</td>
<td><input type="text" name="txtName"></td></tr>
<tr><td align="right">所在部门：</td>
<td><input type="text" name="txtDepartment"></td></tr>
<tr><td align="right">家庭住址：</td>
<td><input type="text" name="txtAddr"></td></tr>
<tr><td align="right">家庭电话：</td>
<td><input type="text" name="txtTel"></td></tr>
<tr><td align="right">Email：</td>
<td><input type="text" name="txtemail"></td></tr>
<tr><td align="center"><input type="submit" value="提交"></td>
<td align="center"><input type="reset" value="全部重写"></td></tr>
</table>
</form>
<a href="index.asp">返回首页</a>
</div>
</body>
</html>

3)、保存添加数据页面：add.asp。该页面的功能有：a)、使用Request对象获取从add.htm页面提交的值；b)、创建三个对象（一个连接对象、二个记录集对象），通过rs.addnew,rs.update两个函数将数据保存到数据库；c)、显示信息提示框。

<% @ Language="VBScript" %>
　　　　<html>
<head>
<title>添加记录</title>
</head>
<body>
<!-- #include virtual ="/adovbs.inc" -->
<%
'**************使用Request对象获取从add.htm页面中提交的值************************************
Name1=Request.Form("txtName")
Department=Request.Form("txtDepartment")
Addr=Request.Form("txtAddr")
Tel=Request.Form("txtTel")
Email=Request.Form("txtEmail")
if Tel="" then
Tel="不祥"
end if
if Email="" then
Email="不祥"
end if
if name1="" or department="" or Addr="" then
%>
<script language="vbscript">
alert("员工姓名、所在部门和家庭住址中只少有一项为空,请填写完整。")
history.back
</script>
<%
else
'****************创建三个对象（一个连接对象、二个记录集对象）*********************
dim cnn,rst
set cnn=Server.CreateObject("ADODB.Connection")
'指定连接字符串，
cnn.ConnectionString="PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=" & server.MapPath("../rsgl.mdb")
cnn.Open
'建立Recordset对象并以追加记录方式打开数据库。
set rst=Server.CreateObject("ADODB.Recordset")
set rst1=Server.CreateObject("ADODB.Recordset")
sSQL="select * from 员工基本情况表 where 员工姓名='" & name1 & "'"
rst.Open sSQL,cnn,1,1
if rst.EOF or rst.BOF then '如果数据表中无此数据，则添加记录。
rst1.Open "员工基本情况表",cnn ,1,2
rst1.addnew array("员工姓名","所在部门","家庭住址","家庭电话","Email"),array(name1,Department,Addr,Tel,Email)
rst1.update
%>
<!--**********显示信息提示框**************-->
<script language="vbscript">
alert("记录添加成功！")
window.location.href="index.asp"
</script>
<%
rst1.close
set rst1=nothing
else
%>
<script language="vbscript">
alert("员工姓名为：“<%=name1 %>” 的记录已经存在。")
history.back
</script>
<%
end if
rst.close
set rst=nothing
end if
%>
<h3>记录添加成功！</h3>
<p><a href="add.htm">返回记录添加表单</a> || <a href="index.asp">返回首页</a>
</center>
</body>
</html>

4)、更改数据页面：Update.asp。该页面的功能有：a、创建两个对象，Connectiion对象和Recordset对象，其目的是连接数据库和返回一个记录集；b、创建一个表单，其目的是提交更改过的数据。

<%
a=request("id")
response.write a
'response.end
'****************创建两个对象（连接对象、记录集对象)*********************
dim cnn,rst,cmd
set cnn=Server.CreateObject("ADODB.Connection")
set rst=Server.CreateObject("ADODB.Recordset")
'指定连接字符串，
cnn.ConnectionString="PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=" & server.MapPath("../rsgl.mdb")
cnn.Open
sSQL="select * from 员工基本情况表 where 员工姓名='" & a & "'"
'rst.Open sSQL,cnn,1,1
set rst=cnn.Execute(sSQL,,adCmdText)
%>
<html>
<head><title>更改记录</title></head>
<body>
<div align="center">
<!--****************创建一个表单*****************************-->
<form name="form1" method="post" action="Update2.asp">
<table align="center" border="1">
<tr><td colspan="2" align="center">员工基本情况表</td></tr>
<tr><td align="right">员工姓名：</td>
<td><input type="text" name="txtName" value=<%=rst("员工姓名")%> readonly></td></tr>
<tr><td align="right">所在部门：</td>
<td><input type="text" name="txtDepartment" value=<%=rst("所在部门")%>></td></tr>
<tr><td align="right">家庭住址：</td>
<td><input type="text" name="txtAddr" value=<%=rst("家庭住址")%>></td></tr>
<tr><td align="right">家庭电话：</td>
<td><input type="text" name="txtTel" value=<%=rst("家庭电话")%>></td></tr>
<tr><td align="right">Email：</td>
<td><input type="text" name="txtemail" value=<%=rst("Email")%>></td></tr>
<tr><td align="center"><input type="submit" value="提交"></td>
<td align="center"><input type="reset" value="全部重写"></td></tr>
</table>
</form>
</div>
</body>
</html>

5)、保存更改数据页面：Update2.asp。该页面的功能有：a)、使用Request对象获取从Update.asp页面提交的值；b)、创建二个对象（连接对象、记录集对象）；c)、通过表格显示更改后的记录。

<% @ Language="VBScript" %>
<%
'*****************从提交表单中提取数值***************************
Dim Name,Department,Addr,Tel,Email
Name=Trim(Request.Form("txtName"))
Department=Trim(Request.Form("txtDepartment"))
Addr=Trim(Request.Form("txtAddr"))
Tel=Trim(Request.Form("txtTel"))
Email=Trim(Request.Form("txtEmail"))
%>
<html>
<head>
<title>更改记录</title>
</head>
<body>
<!-- #include virtual ="/adovbs.inc" -->
<%
'****************创建二个对象（连接对象、记录集对象）*********************
dim cnn,rst,cmd
set cnn=Server.CreateObject("ADODB.Connection")
set rst=Server.CreateObject("ADODB.Recordset")
'指定连接字符串，
cnn.ConnectionString="PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=" & server.MapPath("../rsgl.mdb")
cnn.Open
sSQL="update 员工基本情况表 set 所在部门='" & Department & "',家庭住址='" & Addr & "',家庭电话='" & Tel & "',Email='" & Email & "' where 员工姓名='" & name & "'"
rst.Open sSQL,cnn,1,2
set rst=nothing
%>
<!--**************************用表格显示记录。**********************-->
<table align="center" border="1">
<tr><td colspan="2" align="center">员工基本情况表</td></tr>
<tr><td align="right" width="130" align="center">员工姓名：</td>
<td width="200"><%=Name %></td></tr>
<tr><td align="right">所在部门：</td>
<td><%=Department %></td></tr>
<tr><td align="right">家庭住址：</td>
<td><%=Addr %></td></tr>
<tr><td align="right">家庭电话：</td>
<td><%=Tel %></td></tr>
<tr><td align="right">Email：</td>
<td><%=Email %></td></tr>
</table>
<center>
<p><hr width="505" color="#cc9999">
<h3>记录更改成功！</h3>
<p><a href="index.asp">返回首页</a>
</center>
</body>
</html>

6)、删除数据页面：Detele.asp。 a)、使用Request对象获取要删除的员工姓名；b)、创建二个对象（连接对象、记录集对象）；c)、给出删除成功提示框。

<% @ Language="VBScript" %>
<%
'从提交表单中提取数值
Dim Name
Name=Trim(Request.Querystring("id"))
%>
<html>
<head>
<title>更改记录</title>
</head>
<body>
<!-- #include virtual ="/adovbs.inc" -->
<%
'****************创建二个对象（连接对象、记录集对象）*********************
dim cnn,rst,cmd
set cnn=Server.CreateObject("ADODB.Connection")
set rst=Server.CreateObject("ADODB.Recordset")
'指定连接字符串，
cnn.ConnectionString="PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=" & server.MapPath("../rsgl.mdb")
cnn.Open
sSQL="delete from 员工基本情况表 where 员工姓名=" & "'" & Name & "'"
rst.Open sSQL,cnn,1,2
set rst=nothing
ifo="员工姓名为：“" & name & "” 的记录已被您成功的删除！"
%>
<script languge="vbscript">
alert("<%=ifo %>")
window.location.href="index.asp"
</script>
<p><a href="index.asp">返回记录添加表单</a>
</center>
</body>
</html>