教务管理系统源代码
开发人：吕双武
01083088
西安交通大学管理学院 信管11 班
2004-5-25
一、主页登录部分 default.asp
<% Option Explicit %>
<% Response.Buffer=True %>
<%
If Trim(request.form("username"))<>"" AND Trim(request.form("pswd"))<>"" Then
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "jiaowu"
Dim userid,pswd,strsql,rs
userid=Request.Form("username")
pswd=Request.Form("pswd")
End If
If request.form("D1")="学生" Then
strsql="Select * From stu Where sno='"&userid&"'"
Set rs=db.Execute(strsql)
If pswd=rs("spin") Then
Session("stuid")=userid
Response.Redirect"student.asp"
Else
Response.write"密码错误"
End If
ElseIf request.form("D1")="教师" Then
strsql="Select * From tea Where tno='"&userid&"'"
Set rs=db.Execute(strsql)
If pswd=rs("tpin") Then
Session("teaid")=userid
Response.Redirect"teacher.asp"
Else
Response.write"密码错误"
End If
ElseIf request.form("D1")="教务管理员" Then
strsql="Select * From adm Where adm='"&userid&"'"
Set rs=db.Execute(strsql)
If pswd=rs("apin") Then
Session("admid")=userid
Response.Redirect"adm.asp"
Else
Response.write"密码错误"
End If
Else
Session("stuid")=""
Session("teaid")=""
Session("admid")=""
End If
%>
二、学生用户界面
（一）实现选课 student.asp
<% Option Explicit %>
<% Response.Buffer=True %>
<%
If Session("stuid")="" Then
Response.Redirect "default.asp"
Response.write"请先登录"
Else
Dim stuid,cnoid
stuid=Session("stuid")
cnoid=Request.form("T1")
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "jiaowu"
Dim strsql,rs
strsql="Insert Into score(cno,sno) Values('"&cnoid&"','"&stuid&"')"
Set rs=db.Execute(strsql)
End If
db.close
Set db=Nothing
%>
（二）显示课表 cou_list.asp
<% Option Explicit %>
<% Response.Buffer=True %>
<%
If Session("stuid")="" Then
Response.Redirect "default.asp"
Response.write"请先登录"
Else
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "jiaowu"
Dim strsql,rs
strsql="Select Distinct cou.cno,cou.cname,cou.tno, cou.room From cou"
Set rs=db.Execute(strsql)
End if
%>
<% Do While Not rs.Eof %> <% rs.MoveNext Loop %>
课程编号 课程名称 任课教师 上课地点 <%=rs("cno")%> <%=rs("cname")%> <%=rs("tno")%> <%=rs("room")%>
（三）成绩查询 mark.asp
<% Option Explicit %>
<% Response.Buffer=True %>
<%
If Session("stuid")="" Then
Response.Redirect "default.asp"
Response.write"请先登录"
Else
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "jiaowu"
Dim rs,strsql
strsql="Select * From score Where sno='"&Session("stuid")&"'"
Set rs=db.Execute(strsql)
End if
%>
学号 课号 成绩
<%
Do While Not rs.Eof
%>
<%=rs("sno")%> <%=rs("cno")%> <%=rs("mark")%>
<%
rs.MoveNext
Loop
%>
三、 教师用户界面 实现成绩录入功能 teacher.asp
<% Option Explicit %>
<% Response.Buffer=True %>
<%
If Session("teaid")="" Then
Response.Redirect "default.asp"
Response.write"请先登录"
ElseIf Request.Form("T1")<>"" And Request.Form("T2")<>"" And Request.Form("T3")<>"" Then
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "jiaowu"
Dim strsql,cno,sno,mark
cno=Request.Form("T1")
sno=Request.Form("T2")
mark=Request.Form("T3")
strsql="Update score Set mark='"&mark&"'Where cno='"&cno&"'And sno='"&sno&"'And tno='"&Session("teaid")&"'"
db.Execute(strsql)
Response.Write "添加成功"
End If
%>
四、教务管理员登录界面 adm.asp
<% Option Explicit %>
<% Response.Buffer=True %>
<%
If Session("admid")="" Then
Response.Redirect "default.asp"
Response.write"请先登录"
End If
%>
（一）课程信息维护
1、显示课程信息 adm_cou.asp
<% Option Explicit %>
<% Response.Buffer=True %>
<%
If Session("admid")="" Then
Response.Redirect "default.asp"
Response.write"请先登录"
Else
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "jiaowu"
Dim strsql,rs
strsql="Select * From cou"
Set rs=db.Execute(strsql)
End if
%>
<% Do While Not rs.Eof %> <% rs.MoveNext Loop %> <%=rs("cno")%> <%=rs("cname")%> <%=rs("tno")%> <%=rs("room")%> ">修改 ">删除
2、修改课程信息 update_cou.asp
<% Option Explicit %>
<% Response.Buffer=True %>
<%
If Session("admid")="" Then
Response.write"请先登录"
Response.Redirect "default.asp"
Else
Dim cno
cno=Request.QueryString("cno")
Session("cno")=cno
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "jiaowu"
Dim strsql,rs
strsql="Select * From cou Where cno='"&cno&"'"
Set rs=db.Execute(strsql)
End If
%>
3、修改课程的执行程序 update3.asp
<% Option Explicit %>
<%
Dim cnoid
cnoid=Session("cno")
If Request.Form("T1")<>"" And Request.Form("T2")<>"" And Request.Form("T3")<>"" And Request.Form("T5")<>"" Then
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "jiaowu"
Dim cno,cname,tno,stime,room,strsql
cno=Request.Form("T1")
cname=Request.Form("T2")
tno=Request.Form("T3")
room=Request.Form("T5")
strsql="Update cou Set cno='"&cno&"',cname='"&cname&"',tno='"&tno&"',room='"&room&"' Where cno='"&cnoid&"'"
db.Execute(strsql)
Response.Redirect "adm_cou.asp"
Response.Write"修改成功"
End If
%>
4、删除课程的执行程序 dele_cou.asp
<% Option Explicit %>
<% Response.Buffer=True %>
<%
If Session("admid")="" Then
Response.write"请先登录"
Response.Redirect "default.asp"
Else
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "jiaowu"
Dim strsql,cno
cno=Request.QueryString("cno")
strsql="Delete From cou Where cno='"&cno&"'"
db.Execute(strsql)
Response.Redirect"adm_cou.asp"
End if
%>
5、添加课程的执行程序 add_cou.asp
<% Option Explicit %>
<% Response.Buffer=True %>
<%
If Session("admid")="" Then
Response.Redirect "default.asp"
End If
If Request.Form("T1")<>"" And Request.Form("T2")<>"" And Request.Form("T3")<>"" And Request.Form("T5")<>"" Then
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "jiaowu"
Dim strsql,cno,cname,tno,stime,room
cno=Request.Form("T1")
cname=Request.Form("T2")
tno=Request.Form("T3")
room=Request.Form("T5")
strsql="Insert Into cou(cno,cname,tno,room) Values('"&cno&"','"&cname&"','"&tno&"','"&room&"')"
db.Execute(strsql)
Response.Redirect"add_cou.asp"
Response.write"添加成功"
End If
%>
（二）教师信息维护
1、显示教师信息 adm_tea.asp
<% Option Explicit %>
<% Response.Buffer=True %>
<%
If Session("admid")="" Then
Response.Redirect "default.asp"
Response.write"请先登录"
Else
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "jiaowu"
Dim strsql,rs
strsql="Select tno,tname,ttel From tea"
Set rs=db.Execute(strsql)
End if
%>
<% Do While Not rs.Eof %> <% rs.MoveNext Loop %> <%=rs("tno")%> <%=rs("tname")%> <%=rs("ttel")%> ">修改 ">删除
2、修改教师信息 update_tea
<% Option Explicit %>
<% Response.Buffer=True %>
<%
If Session("admid")="" Then
Response.write"请先登录"
Response.Redirect "default.asp"
Else
Dim tno
tno=Request.QueryString("tno")
Session("tno")=tno
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "jiaowu"
Dim strsql,rs
strsql="Select * From tea Where tno='"&tno&"'"
Set rs=db.Execute(strsql)
End If
%>
3、修改教师信息的执行程序 update2.asp
<% Option Explicit %>
<%
Dim tnoid
tnoid=Session("tno")
If Request.Form("T1")<>"" And Request.Form("T2")<>"" And Request.Form("T3")<>"" Then
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "jiaowu"
Dim tno,tname,ttel,strsql
tno=Request.Form("T1")
tname=Request.Form("T2")
ttel=Request.Form("T3")
strsql="Update tea Set tno='"&tno&"',tname='"&tname&"',ttel='"&ttel&"'Where tno='"&tnoid&"'"
db.Execute(strsql)
Response.Redirect"adm_tea.asp"
Else
Response.Write"请将所有信息填写完整"
End If
%>
4、删除教师信息的执行程序 dele_tea.asp
<% Option Explicit %>
<% Response.Buffer=True %>
<%
If Session("admid")="" Then
Response.write"请先登录"
Response.Redirect "default.asp"
Else
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "jiaowu"
Dim strsql,tno
tno=Request.QueryString("tno")
strsql="Delete From tea Where tno='"&tno&"'"
db.Execute(strsql)
Response.Redirect"adm_tea.asp"
End if
%>
5、添加信息教师信息的执行程序 add_tea.asp
<% Option Explicit %>
<% Response.Buffer=True %>
<%
If Session("admid")="" Then
Response.Redirect "default.asp"
Response.write"请先登录"
End If
If Request.Form("T1")<>"" And Request.Form("T2")<>"" And Request.Form("T3")<>"" Then
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "jiaowu"
Dim strsql,tno,tname,ttel
tno=Request.Form("T1")
tname=Request.Form("T2")
ttel=Request.Form("T3")
strsql="Insert Into tea(tno,tname,ttel) Values('"&tno&"','"&tname&"','"&ttel&"')"
db.Execute(strsql)
Response.Redirect"add_tea.asp"
Response.write"添加成功"
End If
%>
（三）学生信息维护
1、显示学生信息 adm_stu.asp
<% Option Explicit %>
<% Response.Buffer=True%>
<%
If Session("admid")="" Then
Response.Redirect "default.asp"
Response.write"请先登录"
Else
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "jiaowu"
Dim strsql,rs
strsql="Select distinct sno,sname,ssex,class From stu"
Set rs=db.Execute(strsql)
End if
%>
<% Do While Not rs.Eof %> <% rs.MoveNext Loop %> <%=rs("sno")%> <%=rs("sname")%> <%=rs("ssex")%> <%=rs("class")%> ">修改 ">删除
2、修改学生信息 update_stu.asp
<% Option Explicit %>
<% Response.Buffer=True %>
<%
If Session("admid")="" Then
Response.write"请先登录"
Response.Redirect "default.asp"
Else
Dim sno
sno=Request.QueryString("sno")
Session("sno")=sno
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "jiaowu"
Dim strsql,rs
strsql="Select * From stu Where sno='"&sno&"'"
Set rs=db.Execute(strsql)
End If
%>
3、修改学生信息的执行程序 update1.asp
<% Option Explicit %>
<%
Dim snoid
snoid=Session("sno")
If Request.Form("T1")<>"" And Request.Form("T2")<>"" And Request.Form("T3")<>"" And Request.Form("T4")<>"" Then
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "jiaowu"
Dim sno,sname,ssex,sclass,strsql
sno=Request.Form("T1")
sname=Request.Form("T2")
ssex=Request.Form("T3")
sclass=Request.Form("T4")
strsql="Update stu Set sno='"&sno&"',sname='"&sname&"',ssex='"&ssex&"',class='"&sclass&"'Where sno='"&snoid&"'"
db.Execute(strsql)
Response.Redirect"adm_stu.asp"
Else
Response.Write"请将所有信息填写完整"
End If
%>
4、删除学生信息的执行程序 dele_stu.asp
<% Option Explicit %>
<% Response.Buffer=True %>
<%
If Session("admid")="" Then
Response.write"请先登录"
Response.Redirect "default.asp"
Else
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "jiaowu"
Dim strsql,sno
sno=Request.QueryString("sno")
strsql="Delete From stu Where sno='"&sno&"'"
db.Execute(strsql)
Response.Redirect"adm_stu.asp"
End if
%>
5、添加学生信息的执行程序 add_stu.asp
<% Option Explicit %>
<% Response.Buffer=True %>
<%
If Session("admid")="" Then
Response.Redirect "default.asp"
End If
If Request.Form("T1")<>"" And Request.Form("T2")<>"" And Request.Form("T3")<>"" And Request.Form("T4")<>"" Then
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "jiaowu"
Dim strsql,sno,sname,ssex,sclass
sno=Request.Form("T1")
sname=Request.Form("T2")
ssex=Request.Form("T3")
sclass=Request.Form("T4")
strsql="Insert Into stu(sno,sname,ssex,class) Values('"&sno&"','"&sname&"','"&ssex&"','"&sclass&"')"
db.Execute(strsql)
Response.Redirect"add_stu.asp"
Response.write"添加成功"
End If
%>
说明部分：
1、 由于在该教务管理系统中加入了较为复杂的 XML 代码，所以在这里只给出了主要的与系统功能相关的 ASP文件中的VBScript代码。
2、 本系统的数据库名为 jiaowu.mdb 内有五张表：stu, tea, cou, score, adm ,教务管理员对学生、教师信息进行添加时，系统分别根据学生学号、教师编号自动生成密码，米纳生成函数表达式为：spin=sno，tpin=tno
本文来源：https://www.2haoxitong.net/k/doc/6b6e45e93a3567ec102de2bd960590c69ec3d88b.html
文档为doc格式