摘要

设计本系统的目的是对选课信息进行管理。学生选课系统维护模块主要完成的是系统管理与维护功能。课题研究过程中，首先对系统管理模块进行了详尽的需求分析，经分析得到系统管理模块主要完成如下的功能：用户基本信息、选课信息的录入,查看,修改,删除等，同时还具有查询各个模块的功能，数据备份，数据还原 ，注销等功能。系统管理模块是整个系统的指挥中心，保证整个系统在校园网上安全有效地运作。之后根据需求提出了系统管理模块的总体设计方案，并据此进行了详细设计和编码实现。系统使用B/S结构设计和开发，系统的编码实现基于VS.NET平台，使用ASP.NET作为开发语言，SQL Server 2000作为数据库。代码中通过使用进程中的Session、尽量使用存储过程和尽量减少数据库连接的打开时间等手段来提高性能。

关键词：选课系统，系统管理，ASP .NET

1.2 关键技术介绍

1.2.1 ASP.NET简介

.NET框架（.NET Framework）主要有以下3部分组成：

        公共语言运行库（Common Language Runtime,CLR）

        基础库类（Base Class Libarary）

        ASP.NET、VB.NET、C#等语言运行库

ASP.NET的功能和特点：

ASP.NET是.NET框架中专门用来开发网上应用程序的，它其实不是一种语言，而更像一个框架，在这个框架下可以采用VB.NET,C#等其他.NET语言开发网上程序。

1.2.2 SQL Server

SQL Server 是一个具备完全 Web 支持的数据库产品，提供了对可扩展标记语言 (XML) 的核心支持以及在 Internet 上和防火墙外进行查询的能力，提供了以 Web 标准为基础的扩展数据库编程功能。丰富的 XML 和 Internet 标准支持允许使用内置的存储过程以 XML 格式轻松存储和检索数据。

1.2.3 ADO.NET简介

ADO.NET是为.NET框架而创建的，提供对Microsoft SQL Server、Oracle的数据源以及通过OLEDB和XML公开的数据的一致访问。数据共享使用者应用程序可以使用 ADO.NET 来连接到这些数据源，并检索、操作和更新数据。

在连接环境下，整个数据存取的步骤如下：

        (1) 用SqlConnection对象和数据库开启连接。

        (2) 用SqlCommand对象向数据索取所要的数据。

        (3) 把取回来的数据，放在SqlDataReader对象中读取，或者是做其他的存取。

        (4) 在对数据库的存取、查询等操作做完后，关闭SqlDataReader对象。

        (5) 关闭SqlConnection对象。

连接环境下的数据库存取作业，从开始到结束，客户端与服务器端都是保持在联机的状态。

1.2.4 HTML

HTML的英文全称是"Hypertext Markup Language",中文译为“超文本标记语言”。“超文本”就是指页面内可以包含图片，联接，甚至音乐，程序等非文字的元素。在几年前作为SGML的一个子集开发的。一个HTML文件中包含了所有将显示在网页上的文字信息，其中也包括对浏览器的一些指示，如哪些文字应放置在何处，显示模式是什么样的等。如果你还有一些图片、动画、声音或是任何其它形式的资源，HTML文件也会告诉浏览器到哪里去查找这些资源，以及这些资源将放置在网页的什么位置。浏览的网页就是由HTML语言编写出来的。虽然HTML是一种语言，但HTML不是程序语言，如 C++ 和 Java 之类，它只是标示语言，你只要明白了各种标记的用法便算学会了HTML的格式非常简单，只是由文字及标记组合而成，因此任何文本编辑器都可以制作HTML页面。

1.2.5 Script

脚本语言现在流行的主要是JavaScript和VBScript,下面简单介绍一下这两种语言:

JavaScript是一种基于对象和事件驱动并具有安全性能的脚本语言，有了JavaScript，可使网页变得生动。使用它的目的是与HTML超文本标识语言、Java 脚本语言一起实现在一个网页中链接多个对象，与网络客户交互作用，从而可以开发客户端的应用程序。它是通过嵌入或调入在标准的HTML语言中实现的。

VBScript的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版). 正如其字面所透露的信息, VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言. 我进一步解释一下, Microsoft Visual Basic是微软公司出品的一套可视化编程工具, 语法基于Basic脚本语言, 就是不编译成二进制文件, 直接由宿主(host)解释源代码并执行, 简单点说就是你写的程序不需要编译成.exe, 而是直接给用户发送.vbs的源程序, 用户就能执行了. 

4.1 系统实现

4.1.1 系统主界面

登录界面如图4.1所示。      

                                                               图 4.1 主界面

主界面main.aspx的主要设计如下

插入两行两列的表，将第一行单元格合并，分别在上、左、右单元格中加入Panel控件，分别设置ID为p3，pl，pr。在page_load中添加代码：

    P3.Controls.Add(Page.LoadControl("header.ascx")) '加载图片控件

    Pl.Controls.Add(Page.LoadControl("menu1.ascx")) '加载左侧菜单

    Pr.Controls.Add(Page.LoadControl("js.ascx")) '初始时加载简介信息

        If Request.QueryString("type") = "0" Then '学生登录

            Pr.Controls.Clear()

            Pr.Controls.Add(Page.LoadControl("login.ascx"))

            Exit Sub

        End If

        If Request.QueryString("type") = "1" Then '教师登录

            Pr.Controls.Clear()

            Pr.Controls.Add(Page.LoadControl("login.ascx"))

            Exit Sub

        End If

        If Request.QueryString("type") = "2" Then '管理登录

            Pr.Controls.Clear()

            Pr.Controls.Add(Page.LoadControl("login.ascx"))

            Exit Sub

        End If

header.ascx为一图片控件， menu1.ascx为用户登录菜单，添加3个LinkButton控件，分学生、教师、管理员身份， js.ascx为登录介绍。

在menu1.ascx中学生的LinkButton_Click中添加代码

         Response.Redirect("main.aspx?type=0")

在menu1.ascx中教师的LinkButton_Click中添加代码

         Response.Redirect("main.aspx?type=1")

在menu1.ascx中管理员的LinkButton_Click中添加代码

         Response.Redirect("main.aspx?type=2")

4.1.2 登录功能

当点击不同的用户后，进入同一登录界面，通过识别不同的标识，即type值的不同而进入不同的用户界面。在登录页面对应的地方输入用户名、密码，确认后登录。调用存储过程login，根据编号、密码、type值的不同来判断用户身份。登录界面如图4.2所示。

                                                        图 4.2  登录界面

Login.ascx中的设计如下：

确定按扭中添加代码：

   Dim s As String

        If Request.QueryString("reboot") = "1" Then

            s = Session("type")

        Else

            s = Request.QueryString("type")

        End If

        Dim db As New dbaccess

        db.para.Add("@user", bianhao.Text.Trim)

        db.para.Add("@pwd", pwd.Text.Trim)

        db.para.Add("@type", s)

        db.runproc("login")

        If db.retok Then

            Session("user") = bianhao.Text.Trim

            Session("type") = s

            Select Case s

                Case "0"

                    Response.Redirect("student.aspx")

                Case "1"

                    Response.Redirect("teacher.aspx")

                Case "2"

                    Response.Redirect("admin.aspx")

            End Select

        Else

            Response.Redirect("登陆错误.aspx")

        End If

重置按扭中添加代码：

        bianhao.Text = ""

pwd.Text = ""

4.1.3 学生模块功能   

当点击学生后，通过输入学号和密码进入学生登录界面，右边的表格中列出登录者的相关信息，如输入错误跳转到登陆错误界面。教师、管理员的也相同。学生、教师登录成功后都可重新登陆、修改密码、查询相关内容和退出系统等功能。登录界面如图4.3所示。

                                                        图 4.3  学生登录成功界面

1）重新登陆会跳转到Login.ascx的界面。

2）退出系统中代码如下：

      Session.Abandon()'清空会话信息

       Response.Redirect("main.aspx")

为了安全，退出后注销用户的Session信息，跳转到主界面。

3）修改密码中代码如下：

If  pwd2.Text.Trim <> pwd3.Text.Trim Then

Response.Write("<script> alert('两次输入的密码不一致！');</script>")

Else

Dim db As New dbaccess

            Response.Write(Session("type"))

            db.para.Add("@id", Session("user"))

            db.para.Add("@oldpwd", pwd1.Text.Trim)

            db.para.Add("@pwd", pwd2.Text.Trim)

            Dim temp As String

            temp = Session("type")

            db.para.Add("@type", temp.Trim)

            db.runproc("changepwd")

            If (db.retok) Then

        Response.Write("<script> alert('修改成功！');</script>")

            Else

        Response.Write("<script> alert('原始密码错误！');</script>")

            End If

End If

4.1.4 教师模块功能

教师登陆也同样传递session值，将教工号和type值保留以备调用不同的用户控件。其它功能同学生模块相同。登录界面如图4.4所示。

                                                     图 4.4  教师登录成功界面

4.1.5 管理员模块功能

管理员登陆成功后，界面如图4.4所示，重新登陆、修改密码、退出系统同上。系统还原调用存储过程hy，备份调用存储过程bf，添加、修改、删除课程信息分别调用存储过程ins_c、del_c、course_update，添加、修改、删除学生信息分别调用存储过程ins_s、del_s、student _update，添加、修改、删除课程信息分别调用存储过程ins_t、del_t、teacher_update。   

                                                      图 4.5  管理员登录成功界面

  1）还原的LinkButton_Click中添加代码

            db.runproc("hy", True)

            If db.retok Then

       Response.Write("<script> alert('还原成功！');</script>")

            Else

       Response.Write("<script> alert('还原失败！');</script>")

            End If

2）addstudent.ascx中的代码如下

page_load中的代码

 db.runproc("grade")

        If db.retok Then

      g.DataSource = db.ds.Tables(0) '绑定班级信息

      g.DataTextField = db.ds.Tables(0).Columns(1).ToString '显示班级名

      g.DataValueField = db.ds.Tables(0).Columns(0).ToString '值为班级号

      g.DataBind()

        End If

submit_Click中的代码

       If studentid.Text.Trim <> "" And pwd.Text.Trim <> "" Then

            Dim db As New dbaccess

            db.para.Add("@sid", studentid.Text.Trim)

            db.para.Add("@pwd", pwd.Text.Trim)

            db.para.Add("@sname", studentname.Text.Trim)

            db.para.Add("@sex", sex.Text.Trim)

            db.para.Add("@gradeid", g.SelectedValue)

            db.para.Add("@telep", telep.Text.Trim)

            db.runproc("ins_s")

            If db.retok Then

                msg.Text = "insert success !"

            Else

                msg.Text = "insert failure! record may exists !"

                studentid.Text = ""

                pwd.Text = ""

                studentname.Text = ""

                sex.Text = ""

                telep.Text = ""

            End If

          Else

            msg.Text = "学号或密码不能为空!"

       End If

4.1.6 存储过程

为了提高效率，使代码简单，大量使用了存储过程。

下面是登陆时调用的存储过程：

CREATE proc login

@user char(10),@pwd char(10),@type int=0

as

if @type=0

begin

select *  from 学生信息 as b

where b.学号=@user and b.密码=@pwd

end

if @type=1

begin

select * from 教师信息 as b

where b.教工号=@user and b.密码=@pwd

end

if @type=2

begin

select * from 管理员信息 as b

where b.账号=@user and b.密码=@pwd

end

下面是还原时调用的存储过程：

CREATE PROCEDURE hy AS

DECLARE   @spid   smallint  

DECLARE   @sql   char(10)

DECLARE deluser CURSOR FAST_FORWARD

FOR

SELECT  spid  FROM sysprocesses as p

where dbid in (select s.dbid from sysdatabases as s where s.name='cc')

OPEN deluser

FETCH   NEXT   FROM  deluser   INTO   @spid

WHILE   @@FETCH_STATUS != -1

begin

SET  @sql = 'KILL  ' +   CAST(@spid   AS   char(10))

EXEC(@sql)

FETCH NEXT FROM deluser INTO @spid

end

CLOSE deluser

DEALLOCATE deluser

restore database cc from bf

if @@error=0 select 'ok'

4.1.7 类的使用

在 OOP（面向对象的编程）中，类定义一类对象,通过将大量逻辑添加到自定义类中，不仅能使代码更易于重复使用，还可以扩展现有的类，添加新的功能或修改现有的功能。本程序中编写了一个类，供各摸块使用，代码如下：

Imports System.Data

Imports System.Data.SqlClient

Imports System.Collections.Specialized

Public Class dbaccess  '使用sql访问数据库的对象

    Public Shared ds As New Data.DataSet

    Public retok As Boolean   '如果返回的第一个表不为空,则为1,反之为0

    Public para As New ListDictionary

'出错返回Nothing

Public Sub runproc(ByVal procNAME As String, Optional ByVal master As Boolean = False)

        Dim db As String

        If master Then

            db = "master"

        Else

            db = "cc"

        End If

        Dim conn As New SqlConnection("server=.;database=" + db + ";uid=csf;pwd=csf")

        Dim comm As New SqlCommand

        Dim adp As New SqlDataAdapter(comm)

        comm.Connection = conn

        comm.CommandType = CommandType.StoredProcedure

        comm.CommandText = procNAME

        comm.Parameters.Clear()

        Dim myDE As DictionaryEntry '加入参数

        For Each myDE In para

            comm.Parameters.Add(myDE.Key, myDE.Value)

        Next myDE

        para.Clear() '参数已无用,回收空间

        If Not (ds Is Nothing) Then '清空已有表

            ds.Reset()

        End If

        retok = 0

        conn.Open()

        adp.Fill(ds)

        conn.Close()

        If ds.Tables.Count > 0 Then

            If ds.Tables(0).Rows.Count > 0 Then

                retok = 1 '如果有结果返回，则为真

            End If

        Else

            retok = 0 '反之，返回零

        End If

    End Sub

End Class