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

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

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

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

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

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

4、通过 Recordset 对象的 Update 属性更新记录；

5、通过 Session 对象保存会话期中当前记录号；

6、通过把 text3 到 text8 六个文本框之值的代数和赋给 text9文本框，自动输出实发工资的数;

7、ccur 函数：强制进行货币计算。

添加记录

一、添加记录页面的功能：添加新增员工的工资信息：

二、添加记录页面的实现过程：

1、创建一个表单。用于输入记录中各字段的字段值；

2、通过列表框中的选中项，将其赋给 txt1 文本框，作为员工编号的头部，并使 txt1 文本框获得焦点；

3、当 txt1 文本框失去焦点时，判断此文本框值的长度是否小于5，若是，则弹出一个信息框：“编号太短”，否则将焦点转交给txt2文本框。

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

5、判断“员工姓名”是否输入了，若是，则从记录集中将各字段名读取后赋给数组 an ，并从表单中读取各对象的值赋给数组 bb ；否则，弹出一个信息框：“姓名不能为空”；

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

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

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

三、修改记录页面的代码如下：

<html>
<head><title>教师工资表</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body bgcolor="#cccc99" Language=VBScript>
<!--创建一个表单。用于输入记录中各字段的字段值。-->
<form method='post' name=frm1 action='list3.asp'>
<table border=1 align=center cellspcing=1 cellpadding=4 height=200 bgcolor="#909011">
<tr><td width=100><td width=195>
<tr><td>所在部门<td>
<select id=select1 style="width:100px" name=select1>
<option value="01">教务处
<option value="02">英语教研室
<option value="03">语文教研室
<option value="04">数学教研室
<option value="05">财务处
</select>
<input type=hidden name=hid value='教务处'>
<tr><td>员工编号<td><input type=text name=txt1 value="">
<tr><td>员工姓名<td><input type=text name=txt2 value="">
<tr><td>基本工资<td><input type=text name=txt value="">
<tr><td>岗位工资<td><input type=text name=txt value="">
<tr><td>职务工资<td><input type=text name=txt value="">
<tr><td>年动工资<td><input type=text name=txt value="">
<tr><td>养老保险<td><input type=text name=txt value="">
<tr><td>医疗保险<td><input type=text name=txt value="">
<tr><td>实发工资<td><input type=text name=txt value="">
</table>
<!--当名为select1的列表框失去焦点时，则执行<script></script>标签之内的语句。-->
<script for=select1 event=onblur Language=vbscript>
i=frm1.select1.selectedindex　　　　　　　　　　'将在列表框中选中项的索引号赋给变量i。
f=frm1.select1.options(i).text　　　　　　　　　'将在列表框中选中项的文本值赋给变量f。
k=frm1.select1.options(i).value　　　　　　　 '将在列表框中选中项的值赋给变量k。
frm1.hid.value=f　　　　　　　　　　　　　　　　　　'将在列表框中选中项的文本值赋给隐藏框的值。
frm1.txt1.value=k　　　　　　　　　　　　　　　　　'将在列表框中选中项的值赋给文本框1的值。
frm1.txt1.focus　　　　　　　　　　　　　　　　　　 '文本框1获得的焦点。
</script>
<!--当 txt1 文本框失去焦点时，则判断此文本框值的长度是否小于5，若是，则弹出一个信息框：“编号太短”，否则将焦点交给txt2文本框。-->
<script for=txt1 event=onblur language=vbscript>
if len(frm1.txt1.value)<5 then
msgbox"编号太短"
frm1.txt1.focus
else
frm1.txt2.focus
end if
</script>
<%
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
p=Request.form("txt2")
'如果姓名不为空，则读取各字段的名称添加到数组 na 中。
if len(p)>0 then
redim na(rs.Fields.count-1)
for j=0 to RS.Fields.count-1
na(j)=RS.Fields(j).name
next
redim bb(rs.Fields.count-1)
bb(0)=Request.form("hid")
bb(1)=Request.form("txt1")
bb(2)=Request.form("txt2")
for j=3 to RS.Fields.Count-1
bb(j)=Request.form("txt")(j-2)
next
'添加一条新记录。
RS.AddNew na,bb
'更新一条记录。
RS.Update
end if
Response.write"</table>"
RS.close
conn.close
%>
<table border=0 align=center height=40>
<tr><td><input type=submit value="确定增加">
</table>
</form>
<!--当名为 txt 的各文本框中某一个文本框的值被改变时，实发工资文本框中的值将随之改变。-->
<script for=txt event=onchange language=vbscript>
w=ccur(frm1.txt(0).value)+ccur(frm1.txt(1).value)+ccur(frm1.txt(2).value)+ccur(frm1.txt(3).value)
w=w-ccur(frm1.txt(4).value)-ccur(frm1.txt(5).value)
frm1.txt(6).value=w
</script>
　 <!--如果当名为 txt 的各文本框中某一个文本框失去焦点时，则判断姓名是否为空，如为空则弹出一个信息框，并将焦点返回给它自身。-->
<script for=txt event=onblur language=vbscript>
if len(frm1.txt2.value)=0 then
msgbox"姓名不能空"
frm1.txt2.focus
end if
</script>
</body>
</html>