ASP入门基础教程-实例工资管理系统

　2006-10-27 12:01:53　来源：WEB开发网　　　

核心提示： 1、由表单提交添加的记录；2、采用 server 对象的 createobject 方法创建一个连接对象和一个记录集对象；3、采用连接（Connection) 对象的 Open (打开）和 Close （关闭）两个方法打开和关闭一个数据库；4、采用记录集（Recordset) 对象中的 O

1、由表单提交添加的记录；

2、采用 server 对象的 createobject 方法创建一个连接对象和一个记录集对象；

3、采用连接（Connection) 对象的 Open (打开）和 Close （关闭）两个方法打开和关闭一个数据库；

4、采用记录集（Recordset) 对象中的 Open 和 Close 两个方法打开和关闭记录集；

5、通过 For 循环语句将记录集中各字段名赋给数组 na ，并将表单中提交的各项值赋给数组 bb ；

6、通过 Recordset 对象的 AddNew 方法将数组na 和bb 的值添加到记录集中；

7、通过 Recordset 对象的 Update 方法更新记录；

8、通过把 text0 到 text5 六个文本框之值的代数和赋给 text6文本框，自动输出实发工资的数值；

9、ccur 函数：强制进行货币计算；

10、采用信息框函数（MsgBox）弹出一个输出信息框，用于提示客户什么地方输入不正确。

删除记录

一、删除记录页面的功能：删除离职员工的工资记录：

二、删除记录页面的实现过程：

1、连接数据库并打开“老师工资”表；

2、判断确定按钮是否按下，若是，则删除当前记录；

3、更新记录集；

4、判断被删除的记录在删除前的指针位置是不是1，若是，则删除后，指针位置仍然回到1；

5、判断被删除的记录在删除前的指针位置是不是在最后，若是，则删除后，指针位置仍然回到最后；

6、关闭记录集和数据库。

三、删除记录页面的代码如下：

<html>
<head><title>教师工资表</title></head>
<body bgcolor="#cccc99">
<!-- 创建一个表单。-->
<form method='post' action='list4.asp?YesNo=yes'>
<table border=1 align=center cellspacing=0 cellpadding=4 bgcolor="#9ccdcd">
<tr><td width=100><td width=195>
<%
'定义一个过程。
sub ShowPage(objRS,no)
'显示当前记录号。
objRS.AbsolutePosition=no
'显示单条记录
for j=0 to objRS.Fields.Count-1
'将索引号为 j 字段的字段名赋给变量 Data。
Data="<tr height='5'><td>"& objRS.Fields(j).name
'将索引号为 j 字段的字段名和字段值赋给变量 Data。
Data=Data & "<td>" & 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"</table>"
RS.close
set RS=nothing
conn.close
set conn=nothing
%>
<table border=0 align=center height=30>
<tr><td><input type=submit value="确定删除">
</table>
</form>
</body>
</html>