ASP入门基础教程：删除记录
删除记录
一、删除记录页面的功能：删除离职员工的工资记录：
二、删除记录页面的实现过程：
1、连接数据库并打开“老师工资”表;
2、判断确定按钮是否按下，若是，则删除当前记录;
3、更新记录集;
4、判断被删除的记录在删除前的指针位置是不是1，若是，则删除后，指针位置仍然回到1;
5、判断被删除的记录在删除前的指针位置是不是在最后，若是，则删除后，指针位置仍然回到最后;
6、关闭记录集和数据库。
三、删除记录页面的代码如下：
|
<% '定义一个过程。 sub ShowPage(objRS,no) '显示当前记录号。 objRS.AbsolutePosition=no '显示单条记录 for j=0 to objRS.Fields.Count-1 '将索引号为 j 字段的字段名赋给变量 Data。 Data=" | |
| "& objRS.Fields(j).name
'将索引号为 j 字段的字段名和字段值赋给变量 Data。 Data=Data & " | " & objRS.Fields(j).Value
'向浏览器输出此字段名和字段值。 Response.write data Next end sub '打开一个数据库和记录集。 set conn=server.createobject("adodb.Connection") CS="Provider=Microsoft.jet.OLEDB.4.0;Data Source=" conn.ConnectionString=CS & Server.MapPath("rsgl.mdb") conn.Open set rs=server.createobject("adodb.recordset") rs.open"教师工资表",conn,1,2,2 if Request("YesNo")="yes" then n=Session("no") RS.AbsolutePosition=n rs.delete rs.update end if '当删除的是第1条记录时，则将指针移到删除并更新后的第1条记录，即删除前的第2条记录上。 if Session("no")="" then Session("no")=1 '当删除是最后一条记录，则将指针移到删除并更新后的最后一条记录上，即删除前的倒数第2条记录。 if Session("no")>RS.RecordCount then Session("no")=RS.RecordCount ShowPage RS,Session("no") Response.write" |
RS.close
set RS=nothing
conn.close
set conn=nothing
%>
|
|
六、小结：
1、通过 For 循环语句，将记录集中各字段名和值赋给变量a ;
2、通过 Request 对象，将变量 a 中的值返回给浏览器;
3、采用 server 对象的 createobject 方法创建一个连接对象和一个记录集对象;
4、采用连接(Connection) 对象的 Open (打开)和 Close (关闭)两个方法打开和关闭一个数据库;
5、采用记录集(Recordset) 对象中的 Open 和 Close 两个方法打开和关闭记录集;
6、通过 Request("YesNo")="yes" 语句判断是否确定要删除记录，若是，则删除;
7、通过 Recordset 对象的 UpDate 方法更新记录集;
8、通过Session("no")的值判断删除的是不是第1条记录，若是，则将指针移到删除并更新后的第1条记录，即删除前的第2条记录上;
9、通过Session("no")的值判断删除的是不是最后一条记录，若是，则将指针移到删除并更新后的最后一条记录上，即删除前的倒数第2条记录上;
10、通过 set RS=nothing 和 set Conn=nothing 语句分别将记录集和数据库清空。