教务管理系统数据库设计报告.docx

（三）成绩查询mark.asp

<%OptionExplicit%>

<%Response.Buffer=True%>

<%

IfSession（"stuid"）=""Then

Response.Redirect"default.asp"

Response.write"请先登录"

Else

Dimdb

Setdb=Server.CreateObject（"ADODB.Connection"）

db.Open"jiaowu"

Dimrs,strsql

strsql="Select*FromscoreWheresno='"&Session（"stuid"）&"'"

Setrs=db.Execute（strsql）

Endif

%>

学号

课号

成绩

<%

DoWhileNotrs.Eof

%>

<%=rs（"sno"）%>

<%=rs（"cno"）%>

<%=rs（"mark"）%>

<%

rs.MoveNext

Loop

%>

三、教师用户界面实现成绩录入功能teacher.asp

<%OptionExplicit%>

<%Response.Buffer=True%>

<%

IfSession（"teaid"）=""Then

Response.Redirect"default.asp"

Response.write"请先登录"

ElseIfRequest.Form（"T1"）<>""AndRequest.Form（"T2"）<>""AndRequest.Form（"T3"）<>""Then

Dimdb

Setdb=Server.CreateObject（"ADODB.Connection"）

db.Open"jiaowu"

Dimstrsql,cno,sno,mark

cno=Request.Form（"T1"）

sno=Request.Form（"T2"）

mark=Request.Form（"T3"）

strsql="UpdatescoreSetmark='"&mark&"'Wherecno='"&cno&"'Andsno='"&sno&"'Andtno='"&Session（"teaid"）&"'"

db.Execute（strsql）

Response.Write"添加成功"

EndIf

%>

四、教务管理员登录界面adm.asp

<%OptionExplicit%>

<%Response.Buffer=True%>

<%

IfSession（"admid"）=""Then

Response.Redirect"default.asp"

Response.write"请先登录"

EndIf

%>

（一）课程信息维护

1、显示课程信息adm_cou.asp

<%OptionExplicit%>

<%Response.Buffer=True%>

<%

IfSession（"admid"）=""Then

Response.Redirect"default.asp"

Response.write"请先登录"

Else

Dimdb

Setdb=Server.CreateObject（"ADODB.Connection"）

db.Open"jiaowu"

Dimstrsql,rs

strsql="Select*Fromcou"

Setrs=db.Execute（strsql）

Endif

%>

<%

DoWhileNotrs.Eof

%>

<%=rs（"cno"）%>

<%=rs（"cname"）%>

<%=rs（"tno"）%>

<%=rs（"room"）%>

cno=<%=rs（"cno"）%>">修改

cno=<%=rs（"cno"）%>">删除

<%

rs.MoveNext

Loop

%>

2、修改课程信息update_cou.asp

<%OptionExplicit%>

<%Response.Buffer=True%>

<%

IfSession（"admid"）=""Then

Response.write"请先登录"

Response.Redirect"default.asp"

Else

Dimcno

cno=Request.QueryString（"cno"）

Session（"cno"）=cno

Dimdb

Setdb=Server.CreateObject（"ADODB.Connection"）

db.Open"jiaowu"

Dimstrsql,rs

strsql="Select*FromcouWherecno='"&cno&"'"

Setrs=db.Execute（strsql）

EndIf

%>

3、修改课程的执行程序update3.asp

<%OptionExplicit%>

<%

Dimcnoid

cnoid=Session（"cno"）

IfRequest.Form（"T1"）<>""AndRequest.Form（"T2"）<>""AndRequest.Form（"T3"）<>""AndRequest.Form（"T5"）<>""Then

Dimdb

Setdb=Server.CreateObject（"ADODB.Connection"）

db.Open"jiaowu"

Dimcno,cname,tno,stime,room,strsql

cno=Request.Form（"T1"）

cname=Request.Form（"T2"）

tno=Request.Form（"T3"）

room=Request.Form（"T5"）

strsql="UpdatecouSetcno='"&cno&"',cname='"&cname&"',tno='"&tno&"',room='"&room&"'Wherecno='"&cnoid&"'"

db.Execute（strsql）

Response.Redirect"adm_cou.asp"

Response.Write"修改成功"

EndIf

%>

4、删除课程的执行程序dele_cou.asp

<%OptionExplicit%>

<%Response.Buffer=True%>

<%

IfSession（"admid"）=""Then

Response.write"请先登录"

Response.Redirect"default.asp"

Else

Dimdb

Setdb=Server.CreateObject（"ADODB.Connection"）

db.Open"jiaowu"

Dimstrsql,cno

cno=Request.QueryString（"cno"）

strsql="DeleteFromcouWherecno='"&cno&"'"

db.Execute（strsql）

Response.Redirect"adm_cou.asp"

Endif

%>

5、添加课程的执行程序add_cou.asp

<%OptionExplicit%>

<%Response.Buffer=True%>

<%

IfSession（"admid"）=""Then

Response.Redirect"default.asp"

EndIf

IfRequest.Form（"T1"）<>""AndRequest.Form（"T2"）<>""AndRequest.Form（"T3"）<>""AndRequest.Form（"T5"）<>""Then

Dimdb

Setdb=Server.CreateObject（"ADODB.Connection"）

db.Open"jiaowu"

Dimstrsql,cno,cname,tno,stime,room

cno=Request.Form（"T1"）

cname=Request.Form（"T2"）

tno=Request.Form（"T3"）

room=Request.Form（"T5"）

strsql="InsertIntocou（cno,cname,tno,room）Values（'"&cno&"','"&cname&"','"&tno&"','"&room&"'）"

db.Execute（strsql）

Response.Redirect"add_cou.asp"

Response.write"添加成功"

EndIf

%>

（二）教师信息维护

1、显示教师信息adm_tea.asp

<%OptionExplicit%>

<%Response.Buffer=True%>

<%

IfSession（"admid"）=""Then

Response.Redirect"default.asp"

Response.write"请先登录"

Else

Dimdb

Setdb=Server.CreateObject（"ADODB.Connection"）

db.Open"jiaowu"

Dimstrsql,rs

strsql="Selecttno,tname,ttelFromtea"

Setrs=db.Execute（strsql）

Endif

%>

<%

DoWhileNotrs.Eof

%>

<%=rs（"tno"）%>

<%=rs（"tname"）%>

<%=rs（"ttel"）%>

tno=<%=rs（"tno"）%>">修改

tno=<%=rs（"tno"）%>">删除

<%

rs.MoveNext

Loop

%>

2、修改教师信息update_tea

<%OptionExplicit%>

<%Response.Buffer=True%>

<%

IfSession（"admid"）=""Then

Response.write"请先登录"

Response.Redirect"default.asp"

Else

Dimtno

tno=Request.QueryString（"tno"）

Session（"tno"）=tno

Dimdb

Setdb=Server.CreateObject（"ADODB.Connection"）

db.Open"jiaowu"

Dimstrsql,rs

strsql="Select*FromteaWheretno='"&tno&"'"

Setrs=db.Execute（strsql）

EndIf

%>

3、修改教师信息的执行程序update2.asp

<%OptionExplicit%>

<%

Dimtnoid

tnoid=Session（"tno"）

IfRequest.Form（"T1"）<>""AndRequest.Form（"T2"）<>""AndRequest.Form（"T3"）<>""Then

Dimdb

Setdb=Server.CreateObject（"ADODB.Connection"）

db.Open"jiaowu"

Dimtno,tname,ttel,strsql

tno=Request.Form（"T1"）

tname=Request.Form（"T2"）

ttel=Request.Form（"T3"）

strsql="UpdateteaSettno='"&tno&"',tname='"&tname&"',ttel='"&ttel&"'Wheretno='"&tnoid&"'"

db.Execute（strsql）

Response.Redirect"adm_tea.asp"

Else

Response.Write"请将所有信息填写完整"

Response.Write"重新修改"

EndIf

%>

4、删除教师信息的执行程序dele_tea.asp

<%OptionExplicit%>

<%Response.Buffer=True%>

<%

IfSession（"admid"）=""Then

Response.write"请先登录"

Response.Redirect"default.asp"

Else

Dimdb

Setdb=Server.CreateObject（"ADODB.Connection"）

db.Open"jiaowu"

Dimstrsql,tno

tno=Request.QueryString（"tno"）

strsql="DeleteFromteaWheretno='"&tno&"'"

db.Execute（strsql）

Response.Redirect"adm_tea.asp"

Endif

%>

5、添加信息教师信息的执行程序add_tea.asp

<%OptionExplicit%>

<%Response.Buffer=True%>

<%

IfSession（"admid"）=""Then

Response.Redirect"default.asp"

Response.write"请先登录"

EndIf

IfRequest.Form（"T1"）<>""AndRequest.Form（"T2"）<>""AndRequest.Form（"T3"）<>""Then

Dimdb

Setdb=Server.CreateObject（"ADODB.Connection"）

db.Open"jiaowu"

Dimstrsql,tno,tname,ttel

tno=Request.Form（"T1"）

tname=Request.Form（"T2"）

ttel=Request.Form（"T3"）

strsql="InsertIntotea（tno,tname,ttel）Values（'"&tno&"','"&tname&"','"&ttel&"'）"

db.Execute（strsql）

Response.Redirect"add_tea.asp"

Response.write"添加成功"

EndIf

%>

（三）学生信息维护

1、显示学生信息adm_stu.asp

<%OptionExplicit%>

<%Response.Buffer=True%>

<%

IfSession（"admid"）=""The