|
ASP | 网页设计 | 2530 次查看 |
|---|---|---|
系统分析 一、主要功能如下： 1、个人工资信息浏览； 2、修改记录； 3、添加记录； 4、删除记录。 二、系统结构图如下图：  三、数据库设计： 教职员工工资管理系统采用的是 Access 数据库，数据库名 RSGL 。由于本管理系统是一个很简单的管理系统，所以在 RSGL 数据库中只包含一个表，表名为：教师工资表。表内包含10个字段，其字段名分别为：所在部门、员工编号、员工姓名、基本工资、岗位工资、职位工资、年动工资、养老保险、医疗保险和实发工职。其结构如下图：  四、主页面结构： 本系统的主页面名为 main.asp 。它由上、下两个框组成，上框架链接一个菜单页面。下框用于显示记录信息。其代码如下： 五、菜单页面的代码如下：（文件名为：main.asp) 浏览记录 一、浏览页面的功能： 通过菜单栏上的导航条在浏览器上显示第一条、或上一条、或下一条、或最后一条记录。 二、浏览页面的实现过程： 1、连接数据库并打开“教师工资”表； 2、通过条件判断语句，判断是不是刚打开网页，若是，则显示第一条记录，否则通过由 Request 对象获取的当前记录号，显示相应的记录； 3、通过调用 ShowPage(objRS,no) 过程，显示记录； 4、关闭记录集和数据库。 三、浏览页面的代码如下： <html><head><title>教师工资表</title></head><body bgcolor="cccc99"><%'定义一个过程，带有两个参数，一个表示记录集，一个表示当前记录号。Sub ShowPage(objRS,no)objRS.AbsolutePosition=no '指定当前记录号'显示单记录(逐个将字段名和字段值赋给变量Date 。然后通过 Recordset 变量的 Write 方法向用户端输出。for j=0 to objRS.Fields.Count-1Data="<tr><td>" & objRS.Fields(j).nameData=Data & "<td>" & objRS.Fields(j).Value & "</tr>"Response.Write dataNextEnd Sub'创建一个连接数据库对象。set conn=server.createobject("adodb.Connection")'通过连接字符串指定了要连接的数据库所使用的提供程序是 Microsoft.Jet.OLEDB.4.o;所连接的数据库名为 rsgl.mdb。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'如果是新打开网页，则第一条记录编号赋给变量 Session("no"),也就是说打开网页时显示的总是第一条记录。if Request("no")="" thenSession("no")=1'否则当前记录号由 Request 对象来获取。elseSelect case Request("no")case "First"Session("no")=1case "Previous"Session("no")=Session("no")-1case "next"Session("no")=Session("no")+1case "last"Session("no")=RS.RecordCountend selectend if'当 Session（"no") 的值大于记录数时，则 Session("no") 等于记录数。if Session("no")>RS.RecordCount then Session("no")=RS.RecordCount'当 Session（"no") 的值小于1时，则 Session("no")值等于1.if Session("no")<1 then Session("no")=1Response.write"<table border=1 align=center cellspacing=0 cellpadding=4 height=270 bgcolor='#9ccdcd'>"Response.write"<tr><td width=100><td width=195>"'调用 ShowPage Rs,Session("no") 过程。ShowPage RS,Session("no")Response.write"</table>"RS.closeset RS=nothingconn.closeset conn=nothing%></body></html>六、小结： 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 thenfor j=1 to objRS.Fields.Count'则用修改的记录更改数据库中原有的记录。objRS.Fields(j-1).value=a(j)next'更新记录。objRS.Updateend if'将更改后的记录从数据库中取出反馈给浏览器。for j=1 to objRS.Fields.CountData="<tr><td>" & objRS.Fields(j-1).nameData=Data & "<td><input type=text name='txt' value=" & objRS.Fields(j-1).Value & "></tr>"Response.Write datanextend Subset conn=server.createobject("adodb.Connection")CS="Provider=Microsoft.jet.OLEDB.4.0;Data Source="conn.ConnectionString=CS & Server.MapPath("rsgl.mdb")conn.Openset rs=server.createobject("adodb.recordset")'以键盘光标，乐观锁定，方式打开记录集，而且对 Recordset 对象进行批量更新后，查询当前记录的状态是记录被删除。rs.open"教师工资表",conn,1,2,2if Session("no")="" then'如果网页刚打开，则给 Session("no")赋值1。Session("no")=1end ifShowPage RS,Session("no"),Request.form("txt") '调用 ShowPage 过程，以表单提交的Txt中内容修改当前记录Response.write"</table>"RS.closeconn.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).valuew=w-frm1.txt(7).value-frm1.txt(8).valuefrm1.txt(9).value=w</script></form></body></html>六、小结： 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六、小结： 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 dataNextend sub'打开一个数据库和记录集。set conn=server.createobject("adodb.Connection")CS="Provider=Microsoft.jet.OLEDB.4.0;Data Source="conn.ConnectionString=CS & Server.MapPath("rsgl.mdb")conn.Openset rs=server.createobject("adodb.recordset")rs.open"教师工资表",conn,1,2,2if Request("YesNo")="yes" thenn=Session("no")RS.AbsolutePosition=nrs.deleters.updateend if'当删除的是第1条记录时，则将指针移到删除并更新后的第1条记录，即删除前的第2条记录上。if Session("no")="" then Session("no")=1'当删除是最后一条记录，则将指针移到删除并更新后的最后一条记录上，即删除前的倒数第2条记录。if Session("no")>RS.RecordCount then Session("no")=RS.RecordCountShowPage RS,Session("no")Response.write"</table>"RS.closeset RS=nothingconn.closeset conn=nothing%><table border=0 align=center height=30><tr><td><input type=submit value="确定删除"></table></form></body></html>六、小结： 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 语句分别将记录集和数据库清空。；  查看全套"ASP入门基础"教程>>>>> |
||
- 用ASP实现支持附件的EMail系统
- ASP无组件上传进度条解决方案
- ASP入门基础教程-ASP概述
- 利用ASP木马程序获取管理权限
- ASP视频教程-你的第一个ASP程序
- 浅谈ASP中Web页面间的数据传递
- ASP整合的一个SQL语句类
- 利用ASP+XML打造个性化留言本(1)
- ASP视频教程-Response和Request
- ASP入门基础教程-Server对象概述与属性
- ASP视频教程-Response对象
- 实例演练ASP+XML编程(2)
- ASP视频教程-Response对象停止输出数据
- ASP视频教程-ASP程序的特点
- ASP入门基础教程-处理会话事件
- 浅析ASP内置组件
- 让ASP程序运行于非Windows平台
- ASP视频教程-ASP运算符
- ASP视频教程-制作表单
- 在ASP应用程序中限制重复提交同一表单
- 用ASP实现一个真正的注册页面
- ASP中遍历和操作Application对象的集合
- ASP入门基础教程-使用Form集合
- 在ASP中访问和更新Cookies集合
- 利用ASP打造网站论坛DIY(1)
- 实例讲解ASP实现抓取网上房产信息
- 人文的ASP开发基础入门之简介
- ASP入门基础教程-Response对象的常用方法
- ASP视频教程-ASP过程
- ASP视频教程-ASP分页详解
- ASP入门基础教程-Response对象的常用方法
- 用ASP设计一个留言薄
- ASP入门基础教程-实例工资管理系统
- ASP视频教程-ASP注释
- ASP视频教程-ASP条件语句if...then...Else
- ASP视频教程-数据库操作实例
- 利用ASP+XML打造个性化留言本(1)
- ASP视频教程-如何建立数据库
- 用ASP实现一个真正的注册页面
- ASP入门基础教程-读取文本文件
- ASP视频教程-ASP循环语句
- ASP视频教程-ASP分页详解
- ASP视频教程-如何设置ASP脚本语言
- ASP视频教程-动态显示图片
- ASP入门基础教程
- ASP入门基础教程-广告轮显组件
- ASP入门基础教程-创建文本文件
- ASP内置对象Request和Response详解
- ASP视频教程
- ASP入门基础教程-实例网上图书管理系统
- ASP视频教程-ASP调试环境配置
- ASP入门基础教程-ASP概述
- ASP入门基础教程-VBScript的输入与输出语句
- ASP入门基础教程-VBScript概述
- ASP入门基础教程-ASP和脚本语言
- ASP视频教程-创建数据库表
- ASP入门基础教程-使用输入型表单控件
- 手把手教你建ASP语音聊天室
- ASP入门基础教程-Connection对象
- ASP入门基础教程-使用Form集合
- 改进ASP应用程序中的字符串处理性能(1)
- 用ASP木马实现FTP和解压缩
- 防范ASP木马的十大基本原则
- ASP木马的原理和基本防范方法
- 利用ASP木马程序获取管理权限
- Web服务器上防范基于ASP程序的木马
- 用IIS+ASP建网站的安全性分析
- 学以致用驳“ASP低能论”
- 解析ASP的Application和Session对象
- ASP中使用ServerVariables集合详解
- 在ASP中访问和更新Cookies集合
- 认识和优化connection对象
- 用数据绑定实现高效率动态网页
- 改进ASP应用程序中的字符串处理性能(2)
- 用ASP实现远程批量文件改名
- 手把手教你建ASP语音聊天室
- 实例演练ASP+XML编程(1)
- 实例演练ASP+XML编程(2)
- ASP网站远程客户实现EXCEL打印功能
- 如何用Request对象获得机器的环境参数
- Response.redirect实现页面重定向
- 在ASP程序设计中在使用Response对象
- 对你的ASP程序作负载测试
- ASP中使用Form和QueryString集合
- 怎样开始一个ASP网站的设计
- ASP入门基础教程-ASP和脚本语言
- ASP入门基础教程-创建基本表单
- ASP入门基础教程-使用输入型表单控件
- ASP入门基础教程-使用其他表单控件
- ASP入门基础教程-VBScript概述