WebASP程序设计网络教学平台源代码及报告Word文件下载.docx
《WebASP程序设计网络教学平台源代码及报告Word文件下载.docx》由会员分享，可在线阅读，更多相关《WebASP程序设计网络教学平台源代码及报告Word文件下载.docx（32页珍藏版）》请在冰豆网上搜索。
二、实验内容
三、实验思想
利用ASP进行数据库的程序设计，先设计好数据库，再建立获取信息的表单，再将两者连接起来，并完成增加、删除、修改、查询的功能。
四、实验结果
1.数据库
mis.accdb和wenti.mdb：
2.网络教学平台系统的各个界面：
1）登录界面：
包含用户名、密码和权限，输入了正确的用户名和密码后，还需要选对权限，这样才能正常进入系统。
2）管理员账号登录后的“公告”界面：
设有查看公告、发布新的公告和删除之前的公告3个功能
3）管理员账号的“个人信息”界面（因为管理员也是老师，因此界面上称呼为老师）：
包括基本信息显示、密码修改和基本信息修改功能
4）教师账号登录后的“个人信息”界面：
5）教师的“网络教学”页面：
该能是对课程的学习目标、教学大纲、实验大纲等课程基本资料编辑
6）教师可查看的“公告”界面：
包括查看公告、发布公告、删除公告功能
7）教师可的“发布公告”界面：
8）教师可查看的“在线答疑”的页面中的查看留言功能页面：
教师可以在此页面查看学生关于课程的各类问题，并给予回答
9）教师可查看的“在线答疑”的页面中的编写留言功能页面：
教室也可以在在线答疑页面进行给予学生的留言
10）学生登录后的“个人信息”界面，与教师的个人信息页面设计原理一致
11）学生的“网络教学”界面：
供学生选择课程及课程的相应属性，查看所选的课程属性进行有目标有计划的学习
12）学生的“在线自测”界面：
学生可以在此页面对课程及题型进行选择，进行自我测试，点击答案链接即可查看该题的答案
13）点击“答案1”后的答案界面：
14）学生的“公告”界面：
将公告分为两类：
系统公告和课程公告
15）学生的“在线答疑”页面：
增加了课按课程选择留言显示的功能
3.主要页面的代码：
1）conn.asp
<
%
Dimconn,connstr,db,rs
db="
db/mis.accdb"
Setconn=Server.CreateObject（"
ADODB.Connection"
）
connstr="
Provider=microsoft.ACE.oledb.12.0;
DataSource="
&
Server.MapPath（db）
conn.Openconnstr
%>
2）index.asp
%@LANGUAGE="
VBSCRIPT"
CODEPAGE="
936"
!
DOCTYPEhtmlPUBLIC"
-//W3C//DTDXHTML1.0Transitional//EN"
"
http:
//www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"
>
htmlxmlns="
//www.w3.org/1999/xhtml"
head>
metahttp-equiv="
Content-Type"
content="
text/html;
charset=gb2312"
/>
title>
无标题文档<
/title>
/head>
--#includefile="
conn.asp"
-->
IfRequest.QueryString（"
act"
）="
check"
then
dimadmin,pwd,power
admin=replace（Trim（request.form（"
user_ID"
））,"
'
"
"
pwd=replace（Trim（request.form（"
pwd"
power=replace（Trim（request.form（"
power"
setrs=conn.execute（"
select*fromuser0wherepower="
power）
ifadmin=rs（"
）andpwd=rs（"
）then
session（"
）=admin
ifpower=1then
response.redirect"
teacher_xinxi.asp"
elseifpower=2then
student_xinxi.asp"
elseifpower=0then
p_k_gonggao.asp"
endif
else
response.write"
script>
alert（'
登录失败，请检查用户名或者密码是否正确'
）;
location.href='
index.asp'
;
/script>
setrs=nothing
conn.close
styletype="
text/css"
--
.STYLE2{
font-family:
宋体"
font-size:
16px;
}
.STYLE5{font-size:
16px}
body{
background-image:
url（imag/loginb1.jpg）;
background-repeat:
no-repeat;
/style>
body>
divalign="
center"
/div>
formid="
login"
name="
method="
post"
action="
index.asp?
act=check"
>
<
p>
&
nbsp;
/p>
tablewidth="
300"
height="
150"
border="
1"
align="
bgcolor="
#6699CC"
tr>
tdwidth="
70"
spanclass="
STYLE5"
用户名：
/span>
/td>
188"
inputname="
type="
text"
id="
maxlength="
9"
30"
width="
210"
/tr>
td>
STYLE2"
密码：
password"
tdheight="
权限：
selectname="
<
optionvalue="
0"
管理员<
/option>
教师<
2"
学生<
/select>
colspan="
denglu"
submit"
value="
登陆"
onClick="
chekc（<
%=yzm%>
）"
&
quxiao"
reset"
取消"
/table>
/form>
/body>
/html>
3）teacher_xinxi.asp
banner.asp"
ifsession（"
）<
nullthen
response.Redirect"
login.asp?
ErrMsg=请先登录"
response.End（）
else
dimrs1,rs2,rs3
setrs1=conn.execute（"
select*fromteacherwhereuser_ID='
session（"
）&
setrs2=conn.execute（"
select*fromuser0whereuser_ID='
setrs3=conn.execute（"
selectcs_namefromCoursewherecs_IDin（selectcs_IDfromOn_classwhereuser_ID='
div>
<
tablealign="
left"
20"
174"
<
168"
tr>
ahref="
教师基本信息<
/a>
t_pwdchange.asp"
密码修改<
t_xinxi_change.asp"
教师信息修改<
teacher_xinxi"
<
tdalign="
%=trim（rs2（"
））%>
姓名：
name"
性别：
sex"
出生日期：
date"
职称：
%=trim（rs1（"
pf_post"
担任课程：
%=trim（rs3（"
cs_name"
电话号码：
telephone"
邮箱：
Email"
setrs1=nothing
setrs2=nothing
setrs3=nothing
endif
conn.close
%>
4）t_teachfile.asp
writ.asp"
sql="
select*fromcoursewherecs_IDin（selectcs_IDfromOn_classwhereuser_ID='
）&
setrs=conn.execute（sql）
t_teachfile"
t_teachfile1.asp"
table>
课程:
%=trim（rs（"
学习目标<
sd_goal"
/>
教学大纲<
tc_outline"
实验大纲<
test_outline"
教学计划<
tc_plan"
重点难点<
kd_point"
实验计划<
test_plan"
参考资料<
referenc_data"
queding"
确定"
5）p_k_gonggao.asp
查看公告<
200"
tralign="
p_k_gonggao1.asp"
发布公告<
删除公告<
ifsession（"
response.Redirect"
response.End（）
else
dimrs1
sql="
select*fromAnnouncementwhereuser_ID='
orderbyan
升级会员 