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 对象的 AbsolutePosition 属性来确定记录集中当前记录的顺序位置是第几行记录；

5、通过 Request 对象从菜单页面由导航条提交的查询字符串中获取当前记录的书签；

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

修改记录

一、修改记录页面的功能：修改记录。

二、修改记录页面的实现过程：

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

2、用修改的记录更改数据库中原有的记录；

3、将更改后的记录从数据库中取出反馈给浏览器；

4、自动计算实发工资。即当名为 txt 的各文本框中某一个文本框的值被改变时，实发工资文本框中的值将随之改变。

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

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

<html>
<head><title>教师工资表</title></head>
<body bgcolor="#cccc99">
<!-- 创建一个表单 -->
<form align=center method='post' name=frm1 action='list2.asp'>
<table border=1 align=center cellspacing=0 cellpadding=2 height=200 bgcolor="#909011">
<tr><td width=100><td width=195>
<%
'创建一个 ShowPage 过程，其带有三个参数objRS、on、a，分别表示记录集对象，当前的记录号，修改了的字段值。
'此过程的功能是修改后的字段值写入数据库，并通过 Response 对象的 Write 方法将其在浏览器中显示出来。
Sub ShowPage(objRS,no,a)
objRS.AbsolutePosition=no '指定当前记录号
'如果修改了的字段值长度不为 0 .
if len(a)>0 then
for j=1 to objRS.Fields.Count
'则用修改的记录更改数据库中原有的记录。
objRS.Fields(j-1).value=a(j)
next
'更新记录。
objRS.Update
end if
'将更改后的记录从数据库中取出反馈给浏览器。
for j=1 to objRS.Fields.Count
Data="<tr><td>" & objRS.Fields(j-1).name
Data=Data & "<td><input type=text name='txt' value=" & objRS.Fields(j-1).Value & "></tr>"
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")
'以键盘光标，乐观锁定，方式打开记录集，而且对 Recordset 对象进行批量更新后，查询当前记录的状态是记录被删除。
rs.open"教师工资表",conn,1,2,2
if Session("no")="" then
'如果网页刚打开，则给 Session("no")赋值1。
Session("no")=1
end if
ShowPage RS,Session("no"),Request.form("txt") '调用 ShowPage 过程，以表单提交的Txt中内容修改当前记录
Response.write"</table>"
RS.close
conn.close
%>
<table border=0 align=center height=40>
<tr><td><input type=submit value="确定修改">
</table>
<!--自动计算实发工资。即当名为 txt 的各文本框中某一个文本框的值被改变时，实发工资文本框中的值将随之改变。-->
<script for=txt event=onchange language=vbscript>
w=ccur(frm1.txt(3).value)+frm1.txt(4).value+frm1.txt(5).value+frm1.txt(6).value
w=w-frm1.txt(7).value-frm1.txt(8).value
frm1.txt(9).value=w
</script>
</form>
</body>
</html>