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

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

核心提示： 一、浏览页面的功能：通过菜单栏上的导航条在浏览器上显示第一条、或上一条、或下一条、或最后一条记录，二、浏览页面的实现过程：1、连接数据库并打开“教师工资”表；2、通过条件判断语句，ASP入门基础教程-实例工资管理系统(2)，判断是不是刚打开网页，若是，则 Sess

一、浏览页面的功能：

通过菜单栏上的导航条在浏览器上显示第一条、或上一条、或下一条、或最后一条记录。

二、浏览页面的实现过程：

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-1
Data="<tr><td>" & objRS.Fields(j).name
Data=Data & "<td>" & objRS.Fields(j).Value & "</tr>"
Response.Write data
Next
End 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")="" then
Session("no")=1
'否则当前记录号由 Request 对象来获取。
else
Select case Request("no")
case "First"
Session("no")=1
case "Previous"
Session("no")=Session("no")-1
case "next"
Session("no")=Session("no")+1
case "last"
Session("no")=RS.RecordCount
end select
end 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")=1
Response.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.close
set RS=nothing
conn.close
set conn=nothing
%>
</body>
</html>