教务管理系统源代码.docx

3）成绩查询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,strsqlstrsql="Select*FromscoreWheresno='"&Session（"stuid"）&"'"Setrs=db.Execute（strsql）

Endif

%>

学号课号成绩

<%

DoWhileNotrs.Eof

%>

<%=rs（"sno"）%>

<%=rs（"cno"）%>

<%=rs（"mark"）%>

<%rs.MoveNextLoop

%>

三、教师用户界面实现成绩录入功能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）课程信息维护

1、显示课程信息adm_cou.asp

<%OptionExplicit%>

<%Response.Buffer=True%>

<%

IfSession（"admid"）=""ThenResponse.Redirect"default.asp"Response.write"请先登录"

Else

Dimdb

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

db.Open"jiaowu"

Dimstrsql,rsstrsql="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"）=""ThenResponse.write"请先登录"Response.Redirect"default.asp"Else

Dimcnocno=Request.QueryString（"cno"）Session（"cno"）=cno

Dimdb

Setdb=Server.CreateObject（"ADODB.Connection"）db.Open"jiaowu"

Dimstrsql,rsstrsql="Select*FromcouWherecno='"&cno&"'"Setrs=db.Execute（strsql）

EndIf

%>

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

<%OptionExplicit%>

<%

Dimcnoidcnoid=Session（"cno"）

Request.Form（"T3"）<>""

Set

Where

IfRequest.Form（"T1"）<>""AndRequest.Form（"T2"）<>""And

AndRequest.Form（"T5"）<>""Then

Dimdb

Setdb=Server.CreateObject（"ADODB.Connection"）db.Open"jiaowu"

Dimcno,cname,tno,stime,room,strsqlcno=Request.Form（"T1"）cname=Request.Form（"T2"）tno=Request.Form（"T3"）room=Request.Form（"T5"）strsql="Updatecoucno='"&cno&"',cname='"&cname&"',tno='"&tno&"',room='"&room&"'cno='"&cnoid&"'"db.Execute（strsql）

Response.Redirect"adm_cou.asp"Response.Write"修改成功"

EndIf

%>

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

<%OptionExplicit%>

<%Response.Buffer=True%>

<%

IfSession（"admid"）=""ThenResponse.write"请先登录"Response.Redirect"default.asp"

Else

Dimdb

Setdb=Server.CreateObject（"ADODB.Connection"）db.Open"jiaowu"

Dimstrsql,cnocno=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"）=""ThenResponse.Redirect"default.asp"EndIf

Request.Form（"T3"）<>""

cou（cno,cname,tno,room）

IfRequest.Form（"T1"）<>""AndRequest.Form（"T2"）<>""And

AndRequest.Form（"T5"）<>""Then

Dimdb

Setdb=Server.CreateObject（"ADODB.Connection"）db.Open"jiaowu"

Dimstrsql,cno,cname,tno,stime,roomcno=Request.Form（"T1"）cname=Request.Form（"T2"）tno=Request.Form（"T3"）room=Request.Form（"T5"）strsql="InsertInto

Values（'"&cno&"','"&cname&"','"&tno&"','"&room&"'）"db.Execute（strsql）

Response.Redirect"add_cou.asp"Response.write"添加成功"

EndIf%>

（2）教师信息维护

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,rsstrsql="Selecttno,tname,ttelFromtea"

Setrs=db.Execute（strsql）

Endif

%>

<%

DoWhileNotrs.Eof

%>

<%=rs（"tno"）%>

<%=rs（"tname"）%>

<%=rs（"ttel"）%>

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

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

<%rs.MoveNextLoop%>

2、修改教师信息update_tea

<%OptionExplicit%>

<%Response.Buffer=True%>

<%

IfSession（"admid"）=""Then

Response.write"请先登录"

Response.Redirect"default.asp"

Else

Dimtnotno=Request.QueryString（"tno"）

Session（"tno"）=tno

Dimdb

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

db.Open"jiaowu"

Dimstrsql,rsstrsql="Select*FromteaWheretno='"&tno&"'"

Setrs=db.Execute（strsql）

EndIf

%>

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

<%OptionExplicit%>

<%

Dimtnoidtnoid=Session（"tno"）

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

Dimdb

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

db.Open"jiaowu"

Dimtno,tname,ttel,strsqltno=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"）=""ThenResponse.write"请先登录"Response.Redirect"default.asp"

Else

Dimdb

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

db.Open"jiaowu"

Dimstrsql,tnotno=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,tteltno=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

%>

（3）学生信息维护

1、显示学生信息adm_stu.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,rsstrsql="Selectdistinct