|
4 软件设计与实施 copyright paper51.com
面向对象、可视化是ASP的一个特点，结合此特点，本系统设计时主要采用自顶向下方法：设计一个主页，通过菜单调用各个子模块。 内容来自www.paper51.com 4.1 系统总体设计框架 http://www.paper51.com 公用代码作为单独的一个文件，其他程序在需要时调用该文件，下面为公共函数和主要部分模块,系统所使用的公共文件为conn.asp，此文件中包含了连接数据库代码，主要是打开、关闭数据库： paper51.com <% paper51.com
dim conn,connstr 内容来自论文无忧网 www.paper51.com set conn = server.createobject("adodb.connection") http://www.paper51.com
conn.open "PROVIDER=SQLOLEDB;DATASOURCE=(local);UID=sa;PWD=111;DATABASE=chdxk" paper51.com
%> http://www.paper51.com Connection对象主要的用途是打开和关闭数据库连接。 内容来自www.paper51.com Open：打开一个数据库 copyright paper51.com 使用server.createobject方法建立Connection对象实例，再指派给conn。 paper51.com PROVIDER=SQLOLEDB指明使用的驱动程序。 http://www.paper51.com 4.2 登陆模块 内容来自论文无忧网 www.paper51.com 该系统分为管理员、学生、教师三种用户，不同身份具有不同的操作权限，因此，登陆系统时，根据session值来判断该用户的身份，对三种身份的判断使用相同的方法，以下为管理员登陆界面： 内容来自论文无忧网 www.paper51.com
paper51.com 图4-1 管理员登陆 copyright paper51.com 相应代码如下： http://www.paper51.com <% http://www.paper51.com dimname,Pwd 内容来自www.paper51.com name=Request.Form("ID") paper51.com
Pwd=Request.Form("PSD") http://www.paper51.com dimrs,sql http://www.paper51.com
setrs = Server.CreateObject("ADODB.Recordset") paper51.com sql="selectadminid,adminpsd from admin where adminid='"&name&"' andadminpsd='"&Pwd&"'" copyright paper51.com rs.opensql,conn,3,2 内容来自论文无忧网 www.paper51.com if not rs.EOF then 内容来自www.paper51.com session("ID")=name paper51.com response.redirect"admin_caozuo.asp" paper51.com else 内容来自论文无忧网 www.paper51.com rs.close http://www.paper51.com
set rs=nothing 内容来自www.paper51.com conn.close paper51.com set conn=nothing 内容来自www.paper51.com
response.Write"<script language=JavaScript>{window.alert('您输入的帐号及密码错误，请重新输入!');window.history.go(-1);}</script>" paper51.com endif 内容来自www.paper51.com
%> paper51.com 4.3 查看课程信息模块 内容来自www.paper51.com
paper51.com 图4-2 课程浏览 http://www.paper51.com
从数据库中调出所有的课程信息： copyright paper51.com <% http://www.paper51.com Dim rs,sql 内容来自www.paper51.com Set rs =Server.CreateObject( "ADODB.Recordset" ) http://www.paper51.com sql="select * from kechengorder by id asc" copyright paper51.com rs.open sql,conn,1,1 内容来自www.paper51.com pagecounter=5 内容来自www.paper51.com %> 内容来自www.paper51.com
4.4 课程信息管理模块 copyright paper51.com
paper51.com 图4-3 添加课程 paper51.com 添加课程是选课系统中重要的模块，部分代码如下 copyright paper51.com 检查是否存在相同ID号的课程： copyright paper51.com <% set rs2=conn.execute("select id from kecheng whereid='"&id&"'") paper51.com if not rs2.eof then copyright paper51.com
%> 内容来自www.paper51.com 进行插入记录 http://www.paper51.com <%dim rs,sql paper51.com
set rs = Server.CreateObject("ADODB.Recordset") http://www.paper51.com
sql="insert intokecheng(id,name,renshu,xueshi,xuefen,teacherid,xueqi,xibie) values('"&id&"','"&name&"','"&renshu&"','"&xueshi&"','"&xuefen&"','"&teacher&"','"&xueqi&"','"&xibie&"')" 内容来自论文无忧网 www.paper51.com rs.Open sql,conn,3,2 copyright paper51.com %> 内容来自www.paper51.com
课程删除主要是在后台运行，其代码如下： 内容来自论文无忧网 www.paper51.com <%@LANGUAGE="VBScript"codepage="936"%> 内容来自www.paper51.com
<!--#include file="conn/conn.asp"--> copyright paper51.com <% 内容来自www.paper51.com dim id,name copyright paper51.com
id=Request.QueryString("id") http://www.paper51.com name=Request.QueryString("name") paper51.com sql="delete kecheng where id='"+Request.QueryString("id")+"'" 内容来自论文无忧网 www.paper51.com conn.execute(sql) 内容来自www.paper51.com %> http://www.paper51.com
4.5 课程查询模块 paper51.com
paper51.com
图4-4 课程查询 http://www.paper51.com
首先是对身份的判断，禁止非法用户，接受上一页传递过来的参数，查询数据库，显示符合要求的课程信息。 paper51.com
<!--#includefile="conn/conn.asp"--> paper51.com
<%ifsession("xuehao")<>"" then 内容来自www.paper51.com
id=session("xuehao") http://www.paper51.com end if 内容来自论文无忧网 www.paper51.com
ifsession("teacherid")<>"" then copyright paper51.com id=session("teacherid") copyright paper51.com end if http://www.paper51.com if session("ID")<> "" then paper51.com id=session("ID") 内容来自www.paper51.com end if copyright paper51.com %> http://www.paper51.com <% 内容来自论文无忧网 www.paper51.com if id=empty then http://www.paper51.com response.Redirect("nolog.asp") 内容来自www.paper51.com
end if http://www.paper51.com
%> paper51.com <%Dim rs,sql,xb copyright paper51.com
xb=request.Form("xb") http://www.paper51.com Set rs =Server.CreateObject( "ADODB.Recordset" ) paper51.com sql="select * fromkecheng where xibie ='"&xb&"' " http://www.paper51.com
rs.open sql,conn,1,1 内容来自论文无忧网 www.paper51.com pagecounter=5 paper51.com
%> copyright paper51.com 5 调试和测试 paper51.com
5.1 测试环境 http://www.paper51.com 该系统需要在网络环境下运行，对整个系统的性能要求较高，测试环境如下：IIS5.0，浏览器采用IE6.0，数据库采用稳定性好的SQL Server 2000, 操作系统为WINDOS XP；本系统采用ASP平台，ASP支持VBScript和JavaScript这样的解释性的脚本语言。 内容来自论文无忧网 www.paper51.com 5.2 测试的项目 内容来自www.paper51.com 该系统分为管理员、教师、学生三种用户，因此该测试项目的内容主要是三种用户实现的功能，主要如下： http://www.paper51.com 管理员：学生信息的添加、删除；教师信息的添加、删除；课程信息的修改、删除；留言本的删除。 paper51.com 教师：已带课程的查看；其他课程信息的查询、查看；密码的修改。 http://www.paper51.com 学生：查看已选课程；查看所有课程信息；查看能选的课程信息；课程的退选；课程信息的查看；密码的修改。 copyright paper51.com 公共功能：浏览公告信息；留言功能。 http://www.paper51.com |