ASP实训报告Word文件下载.docx
《ASP实训报告Word文件下载.docx》由会员分享，可在线阅读，更多相关《ASP实训报告Word文件下载.docx（17页珍藏版）》请在冰豆网上搜索。
select*fromstudentwherestudent_id='
"
&
trim（request.Form（"
stu_id"
））&
'
andpassword='
request.Form（"
psw"
）&
conn,1,1
response.Write（"
您输入的学号为：
request.form（"
stuid"
<
br>
）
ifnotrs.eofthen
session（"
login"
）="
yes"
response.Redirect（"
stu_index.asp?
id="
））
else
response.Write（"
学号或密码错误，请重新登录"
endif
rs.close
conn.close
setrs=nothing
setconn=nothing
登录进入学生功能主界面，如图2所示。
图2学生功能主界面
（2）学生评教
学生成功登陆后，判断学生是否已经参加过评教，如果没有就显示所有教课老师和老师的姓名，和老师的各项评分，如果学生已经参加过评教，就显示学生已经参加过评教，然后通知学生使用其他功能，如修改密码。
学生用自己的学号和密码成功进入后验证是否评教过的关键代码如下：
ifrs（"
extimate"
）=1then
response.Write"
您已经参加过评教！
response.End（）
如果extimate=0则没有评教过，若为1则为评教过。
图3学生已评教界面
图4学生评教界面
评教成功后，评教数据将写入数据库pingjiao.mdb，并计算老师评教得分（主要代码如下）：
!
--#includefile="
../conn.asp"
-->
body>
%
dimj
j=cint（request.Form（"
tchn"
i=1
dowhilei<
=j
teacher_id=request.Form（"
tch_id"
i）
fork=1to5
p=request.Form（"
r"
k&
selectcasep:
case"
a"
:
rs.open"
updateteachersetcheck"
_a=check"
_a"
+1whereteacher_id='
teacher_id&
conn,2,2
b"
rs.open"
_b=check"
_b"
c"
_c=check"
_c"
endselect
next
i=i+1
loop
updatestudentsetextimate='
1'
wherestudent_id='
评教结束，谢谢您的参与！
%>
/body>
（3）修改密码
学生于老师可以修改自己的登陆密码，修改密码界面如图4所示。
图5密码修改界面
密码修改的关键程序如下：
<
request.QueryString（"
conn,1,2
ifrequest.Form（"
hid"
new"
then
ifrequest.Form（"
yl"
）=rs（"
password"
）then
rs（"
）=request.Form（"
xz"
rs.update
密码修改成功"
else
您输入的原来的密码不正确"
endif
formname="
form1"
method="
post"
action="
>
p>
请输入原来的密码：
inputname="
type="
id="
size="
8"
/p>
请输入新的密码：
inputtype="
submit"
name="
Submit"
value="
提交"
hidden"
/form>
2．教师功能模块
（1）教师登陆
教师可以利用自己的学号和初始密码进行登录，登录界面如图6所示
图6教师登陆页面
教师通过工号和密码登陆,登陆后进入判断页面,关键代码如下：
a=request.Form（"
b=request.Form（"
tch_psw"
ifa="
response.Write"
您的工号不能为空!
response.End（）
ifb="
您的密码不能为空!
select*fromteacherwhereteacher_id='
a&
b&
您输入的工号为：
tch_login"
）=true
tch_index.asp?
tch_id="
a）
通过验证后,使用request.QueryString（"
）获取来自上个页面的老师工号
ifnot（session（"
））then
response.Write（"
您的操作不正确"
response.end（）
dimtch_ID,est
tch_ID=trim（request.QueryString（"
iftch_ID="
您的操作不正确!
tch_ID&
ifrs.eofthen
response.Redirect"
../default.asp"
教师登录后界面
显示老师的个人成绩
score=0
num=0
trim（request.QueryString（"
teacher_id"
fori=1to5
score=score+rs（"
check"
i&
）*20+rs（"
）*15+rs（"
）*10
num=num+rs（"
）+rs（"
num=num/5
a=score/num
response.Writers（"
teacher_name"
老师"
的成绩为：
a
response.write（"
参数传递错误"
显示所有老师的平均成绩
teacher"
dowhilenotrs.eof
rs.movenext
所有教师平均成绩为：
管理界面分学生管理、老师管理、课程管理
实现了如下功能:
添加学生,添加老师,学生和老师添加后自动添加其密码为默认111111
以及删除学生,删除老师,修改学生,修改老师信息.
课程管理同上
部分主要代码:
请输入学生的信息：
学号：
student_id"
text"
10"
姓名：
stu_name"
%ifrequest.Form（"
）<
andrequest.Form（"
ifrs.eofthen
student"
conn,1,3
rs.addnew
rs（"
student_name"
rs.update
添加成功"
该学号已经存在，请重新输入"
select*fromstudent"
conn,1,1%>
/div>
tableborder="
1"
align="
center"
cellspacing="
0"
bgcolor="
#3399CC"
tr>
td>
学号<
/td>
姓名<
是否评教<
修改<
删除<
/tr>
%dowhilenotrs.eof
%=rs（"
）%>
ahref="
modifystu.asp?
stu_id=<
/a>
delstu.asp?
rs.movenext
个人总结
通过这次实训，初步学习到了客户端/服务器端（B/S）模式的交互式网站的原理，以及ASP的一些编程小技巧（例如：
可以把EdiPlus软件和Dreamweaver软件结合起来使用，用EdiPlus工具开发ASP文件，然后用Dreamweaver处理让其美观度增加），能够编写一些简单的交互式网页。
同时发现了学习中的不足之处（老师课上讲的时候看似明白，已经清楚的东西，还不能独立的使用，得依赖现成代码来完善），也了解到了所存在的问题（比如：
简单的功能函数没有掌握，ASP内部对象使用混淆，ADO内部对象还没有搞明白……）。
实践出真理，实训的日子过去了，从理论和操作中融合了我们平时所学的知识，为我们的学习和工作铺垫了精彩的一幕。
我坚信，用心去做自己认为应该做的事，努力的开拓我们的极限，没有什么是不可能的，我们要更加的去努力。
所以，我想以后课上课下一定要认真学习，虚心听取别人意见，多去学习一点网页制作的技术，以备我以后的制作之路。
升级会员 