ASP实训报告.docx

ASP实训报告.docx

《ASP实训报告.docx》由会员分享，可在线阅读，更多相关《ASP实训报告.docx（17页珍藏版）》请在冰豆网上搜索。

ASP实训报告

《评教系统》实训报告

一、实训目的

进一步掌握ASP编程的一般理论和技巧，掌握交互式网站的原理和作用及设计方法。

能真正独立的完成一些有实用价值的应用程序。

二、实训环境

机房windows2000serverIIS

三、实训内容

本系统主要涉及三个模块：

教师模块、学生模块和管理员模块。

1.学生模块

学生进行评教前需要利用学号和密码进行登录，只有参加某门课程学习的学生才能对教授该课程的教师进行评价（只能对其教课老师进行评教）比如，计算机2班的学生是不能对计算机1班老师进行评教的，学生用自己的学号登陆进去以后，只会出现自己所学课程的教师信息。

系统初始化时为学生设置初始密码111111，学生利用该密码登录后可修改自己的密码。

学生登录后，可以选择自己上课的课程，对该门课程教师进行评价，评价后不能重复评价。

2.教师模块

教师利用自己的教师号和密码可登录到系统进行个人评教结果的查询，修改个人密码。

还可列出全体教师平均成绩。

3.管理员模块

管理员可以添加、删除和修改某个班级的学生信息，某个班级的开课信息。

对于教师信息也可添加、删除和修改。

四、具体实现

1.学生功能模块

（1）学生登录

学生可以利用自己的学号和初始密码进行登录

，

登录界面如图1所示。

图1登录界面

学生的学号和密码作为登录验证的条件，验证成功则进入学生功能界面验证的关键代码如下：

rs.open"select*fromstudentwherestudent_id='"&trim（request.Form（"stu_id"））&"'andpassword='"&request.Form（"psw"）&"'",conn,1,1

response.Write（"您输入的学号为：

"&request.form（"stuid"）&"
"）

ifnotrs.eofthen

session（"login"）="yes"

response.Redirect（"stu_index.asp?

id="&request.Form（"stuid"））

else

response.Write（"学号或密码错误，请重新登录"）

endif

rs.close

conn.close

setrs=nothing

setconn=nothing

登录进入学生功能主界面，如图2所示。

图2学生功能主界面

（2）学生评教

学生成功登陆后，判断学生是否已经参加过评教，如果没有就显示所有教课老师和老师的姓名，和老师的各项评分，如果学生已经参加过评教，就显示学生已经参加过评教，然后通知学生使用其他功能，如修改密码。

学生用自己的学号和密码成功进入后验证是否评教过的关键代码如下：

rs.open"select*fromstudentwherestudent_id='"&request.form（"stu_id"）&"'",conn,1,1

ifrs（"extimate"）=1then

response.Write"您已经参加过评教！

"

response.End（）

endif

如果extimate=0则没有评教过，若为1则为评教过。

图3学生已评教界面

图4学生评教界面

评教成功后，评教数据将写入数据库pingjiao.mdb，并计算老师评教得分（主要代码如下）：

--#includefile="../conn.asp"-->

<%

dimj

j=cint（request.Form（"tchn"））

i=1

dowhilei<=j

teacher_id=request.Form（"tch_id"&i）

fork=1to5

p=request.Form（"r"&k&i）

selectcasep:

case"a":

rs.open"updateteachersetcheck"&k&"_a=check"&k&"_a"&"+1whereteacher_id='"&teacher_id&"'",conn,2,2

case"b":

rs.open"updateteachersetcheck"&k&"_b=check"&k&"_b"&"+1whereteacher_id='"&teacher_id&"'",conn,2,2

case"c":

rs.open"updateteachersetcheck"&k&"_c=check"&k&"_c"&"+1whereteacher_id='"&teacher_id&"'",conn,2,2

endselect

next

i=i+1

loop

rs.open"updatestudentsetextimate='1'wherestudent_id='"&request.form（"stu_id"）&"'",conn,2,2

response.Write（"评教结束，谢谢您的参与！

"）

conn.close

setrs=nothing

setconn=nothing

%>

（3）修改密码

学生于老师可以修改自己的登陆密码，修改密码界面如图4所示。

图5密码修改界面

密码修改的关键程序如下：

--#includefile="../conn.asp"-->

<%

rs.open"select*fromstudentwherestudent_id='"&request.QueryString（"stu_id"）&"'",conn,1,2

ifnotrs.eofthen

ifrequest.Form（"hid"）="new"then

ifrequest.Form（"yl"）=rs（"password"）then

rs（"password"）=request.Form（"xz"）

rs.update

response.Write（"密码修改成功"）

else

response.Write（"您输入的原来的密码不正确"）

endif

else

%>

请输入原来的密码：

请输入新的密码：

<%

endif

endif

rs.close

conn.close

setrs=nothing

setconn=nothing

%>

2．教师功能模块

（1）教师登陆

教师可以利用自己的学号和初始密码进行登录，登录界面如图6所示

图6教师登陆页面

教师通过工号和密码登陆,登陆后进入判断页面,关键代码如下：

--#includefile="../conn.asp"-->

<%

a=request.Form（"tch_id"）

b=request.Form（"tch_psw"）

ifa=""then

response.Write"您的工号不能为空!

"

response.End（）

endif

ifb=""then

response.Write"您的密码不能为空!

"

response.End（）

endif

rs.open"select*fromteacherwhereteacher_id='"&a&"'andpassword='"&b&"'",conn,1,1

response.Write（"您输入的工号为：

"&a&"
"）

ifnotrs.eofthen

session（"tch_login"）=true

response.Redirect（"tch_index.asp?

tch_id="&a）

else

response.Write（"学号或密码错误，请重新登录"）

endif

rs.close

conn.close

setrs=nothing

setconn=nothing

%>

通过验证后,使用request.QueryString（"tch_id"）获取来自上个页面的老师工号

<%

ifnot（session（"tch_login"））then

response.Write（"您的操作不正确"）

response.end（）

endif

dimtch_ID,est

tch_ID=trim（request.QueryString（"tch_id"））

iftch_ID=""then

response.Write"您的操作不正确!

"

response.End（）

endif

rs.open"select*fromteacherwhereteacher_id='"&tch_ID&"'",conn,1,1

ifrs.eofthen

response.Redirect"../default.asp"

endif

%>

教师登录后界面

显示老师的个人成绩

--#includefile="../conn.asp"-->

<%

score=0

num=0

rs.open"select*fromteacherwhereteacher_id='"&trim（request.QueryString（"teacher_id"））&"'",conn,1,1

ifnotrs.eofthen

fori=1to5

score=score+rs（"check"&i&"_a"）*20+rs（"check"&i&"_b"）*15+rs（"check"&i&"_c"）*10

num=num+rs（"check"&i&"_a"）+rs（"check"&i&"_b"）+rs（"check"&i&"_c"）

next

num=num/5

a=score/num

response.Writers（"teacher_name"）&"老师"

response.Write"的成绩为：

"&a

else

response.write（"参数传递错误"）

endif

%>

显示所有老师的平均成绩

--#includefile="../conn.asp"-->

<%

score=0

num=0

rs.open"teacher",conn,1,1

dowhilenotrs.eof

fori=1to5

score=score+rs（"check"&i&"_a"）*20+rs（"check"&i&"_b"）*15+rs（"check"&i&"_c"）*10

num=num+rs（"check"&i&"_a"）+rs（"check"&i&"_b"）+rs（"check"&i&"_c"）

next

rs.movenext

loop

num=num/5

a=score/num

response.Write（"所有教师平均成绩为：

"&a）

%>

管理界面分学生管理、老师管理、课程管理

实现了如下功能:

添加学生,添加老师,学生和老师添加后自动添加其密码为默认111111

以及删除学生,删除老师,修改学生,修改老师信息.

课程管理同上

部分主要代码:

请输入学生的信息：

学号：

姓名：

--#includefile="../conn.asp"-->

<%ifrequest.Form（"student_id"）<>""andrequest.Form（"stu_name"）<>""then

rs.open"select*fromstudentwherestudent_id='"&request.Form（"student_id"）&"'",conn,1,1

ifrs.eofthen

rs.close

rs.open"student",conn,1,3

rs.addnew

rs（"student_id"）=request.Form（"student_id"）

rs（"student_name"）=request.Form（"stu_name"）

rs.update

rs.close

conn.close

setrs=nothing

setconn=nothing

response.Write（"添加成功"）

else

response.Write（"该学号已经存在，请重新输入"）

endif

endif

%>

--#includefile="../conn.asp"-->

<%

rs.open"select*fromstudent",conn,1,1%>