Web、ASP程序设计网络教学平台系统设计.doc

资源ID：2389555 资源大小：1.89MB 全文页数：28页
资源格式： DOC 下载积分：8金币

快捷下载

会员登录下载

三方登录下载：

下载资源需要8金币

邮箱/手机：
温馨提示：	用户名和密码都是您填写的邮箱或者手机号，方便查询和重复下载（系统自动生成）
支付方式：
验证码：	换一换

加入VIP免费专享

账号：
密码：
验证码：	换一换
当日自动登录忘记密码？

友情提示

1、下载资料失败解决办法

2、PDF文件下载后，可能会被浏览器默认打开，此种情况可以点击浏览器菜单，保存网页到桌面，就可以正常下载了。

3、本站不支持迅雷下载，请使用电脑自带的IE浏览器，或者360浏览器、谷歌浏览器下载即可。

4、本站资源下载后的文档和图纸-无水印,预览文档经过压缩，下载后原文更清晰。

5、试题试卷类文档，如果标题没有明确说明有答案则都视为没有答案，请知晓。

网站客服

侵权投诉

Web、ASP程序设计网络教学平台系统设计.doc

学号 Web程序设计与应用实验报告网络教学平台系统学生姓名XX专业、班级XX指导教师XX成绩电子与信息工程系20XX 年 XX 月 XX 日天津城市建设学院设计性实验任务书系专业班姓名学号课程名称： Web程序设计与应用设计题目：请设计一个简单的表单与数据库连接并进行简单的数据处理的ASP程序完成期限：自年月日至年月日设计依据、要求及主要内容（可另加附页）：1、设计依据：本实验是以教材Web程序设计与应用一书为依据, 掌握Asp相关对象及Access数据库的使用。2、设计要求：有数据库mis.accdb和wenti.mdb，其中mis.accdb数据库包含数据表Announcement、Class、Course、Coursefile、Homework、On_Class、Professional、Question、Question_Answer、sb_hw、Score、Student、Teacher、Term、Title、user0；而wenti.mdb包含Question数据表。设计一个ASP系统，设置了共计37个页面实现了网络教学平台应该具有大部分功能：登录，教师、学生信息，提问、回答，系统公告，课程公告，课程选择，课程练习等。这些功能都涉及了数据库数据的增加、修改、删除、查询等操作。指导教师：一、实验目的设计ASP页面，与Access数据库作连接，并根据系统功能对数据库中的数据进行增加、删除、修改、查询等的功能。二、实验内容有数据库mis.accdb和wenti.mdb，其中mis.accdb数据库包含数据表Announcement、Class、Course、Coursefile、Homework、On_Class、Professional、Question、Question_Answer、sb_hw、Score、Student、Teacher、Term、Title、user0；而wenti.mdb包含Question数据表。设计一个ASP系统，设置了共计37个页面实现了网络教学平台应该具有大部分功能：登录，教师、学生信息，提问、回答，系统公告，课程公告，课程选择，课程练习等。这些功能都涉及了数据库数据的增加、修改、删除、查询等操作。三、实验思想利用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<%Dim conn,connstr,db,rsdb="db/mis.accdb"Set conn = Server.CreateObject("ADODB.Connection")connstr="Provider=microsoft.ACE.oledb.12.0;Data Source=" & Server.MapPath(db)conn.Open connstr%>2) index.asp<%LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!DOCTYPE html PUBLIC "-/W3C/DTD XHTML 1.0 Transitional/EN" "http:/www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http:/www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><title>无标题文档</title></head><!-#include file="conn.asp"-><%If Request.QueryString("act")="check" thendim admin,pwd,poweradmin = replace(Trim(request.form("user_ID"),"'","")pwd = replace(Trim(request.form("pwd"),"'","")power = replace(Trim(request.form("power"),"'","")set rs=conn.execute("select * from user0 where power =" & power) if admin=rs("user_ID") and pwd=rs("pwd") thensession("user_ID")=adminif power = 1 thenresponse.redirect "teacher_xinxi.asp" elseif power = 2 thenresponse.redirect "student_xinxi.asp"elseif power = 0 thenresponse.redirect "p_k_gonggao.asp"end ifelseresponse.write "<script>alert('登录失败，请检查用户名或者密码是否正确');location.href='index.asp'</script>"end ifset rs=nothingend ifconn.close%><style type="text/css"><!-.STYLE2 font-family: "宋体"font-size: 16px;.STYLE5 font-size: 16pxbody background-image: url(imag/loginb1.jpg);background-repeat: no-repeat;-></style><body><div align="center"></div><form id="login" name="login" method="post" action="index.asp?act=check" > <p> </p> <p> </p> <p> </p> <p> </p> <table width="300" height="150" border="1" align="center" bgcolor="#6699CC"> <tr> <td width="70" align="center"><span class="STYLE5">用户名：</span></td> <td width="188"><input name="user_ID" type="text" id="user_ID" maxlength="9" height="30" width="210" /></td> </tr> <tr> <td><span class="STYLE2">密码：</span></td> <td><input name="pwd" type="password" id="pwd" height="30" width="210" /></td> </tr> <tr> <td height="30"><span class="STYLE5">权限：</span></td> <td> <select name="power" id="power" ><option value="0">管理员</option><option value="1">教师</option><option value="2">学生</option> </select> </td> </tr> <tr> <td height="30" colspan="2" align="center"><input name="denglu" type="submit" id="denglu" value="登陆"onClick="chekc(<%=yzm%>)" />       <input name="quxiao" type="reset" id="quxiao" value="取消" /></td> </tr> </table> <p> </p> <p> </p> <p> </p> <p> </p></form></body></html>3) teacher_xinxi.asp<%LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!DOCTYPE html PUBLIC "-/W3C/DTD XHTML 1.0 Transitional/EN" "http:/www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http:/www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><title>无标题文档</title></head><body><!-#include file="conn.asp"-><!-#include file="banner.asp"-><%if session("user_ID")<> null thenresponse.Redirect"login.asp?ErrMsg=请先登录"response.End()elsedim rs1,rs2,rs3 set rs1=conn.execute("select * from teacher where user_ID = '"& session("user_ID") & "'")set rs2=conn.execute("select * from user0 where user_ID= '"& session("user_ID") & "'")set rs3=conn.execute("select cs_name from Course where cs_ID in (select cs_ID from On_class where user_ID= '"& session("user_ID") & "')")%><div><table align="left" border="0" height="20" width="174"><tr><td width="168"></td></tr> <tr ><td height="30" align="center"><a href="teacher_xinxi.asp">教师基本信息</a></td></tr><tr><td height="30" align="center"><a href="t_pwdchange.asp">密码修改</a></td></tr><tr ><td height="30" align="center"><a href="t_xinxi_change.asp">教师信息修改</a></td></tr> </table></div><div><form id="teacher_xinxi" method="post"><table align="left" border="0" height="20" width="300"><tr> <td align="center">用户名：</td><td><%=trim(rs2("user_ID")%></td></tr><tr> <td align="center">姓名：</td><td><%=trim(rs2("name")%></td></tr><tr><td align="center">性别：</td><td><%=trim(rs2("sex")%></td></tr><tr><td align="center">出生日期：</td><td><%=trim(rs2("date")%></td></tr><tr><td align="center">职称：</td><td><%=trim(rs1("pf_post")%></td></tr><tr><td align="center">担任课程：</td><td><%=trim(rs3("cs_name")%></td></tr><tr><td align="center">电话号码：</td><td><%=trim(rs2("telephone")%></td></tr><tr><td align="center">邮箱：</td><td><%=trim(rs2("Email")%> </td></tr></table></form></div><%set rs1=nothingset rs2=nothingset rs3=nothingend ifconn.close%></body></html>4) t_teachfile.asp<%LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!DOCTYPE html PUBLIC "-/W3C/DTD XHTML 1.0 Transitional/EN" "http:/www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http:/www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><title>无标题文档</title></head><!-#include file="conn.asp"-><!-#include file="writ.asp"-><!-#include file="banner.asp"-><%sql = "select * from course where cs_ID in (select cs_ID from On_class where user_ID = '"&session("user_ID")&"')"set rs = conn.execute(sql)%><body><form id="t_teachfile" method="post" action="t_teachfile1.asp"><table><tr><td>课程:</td><td><%=trim(rs("cs_name")%></td></tr><tr><td>学习目标</td><td><input name="sd_goal" type="text" id="sd_goal" height="30" width="210" value="<%=trim(rs("sd_goal")%>"/></td></tr><tr><td>教学大纲</td><td><input name="tc_outline" type="text" id="tc_outline" height="30" width="210" value="<%=trim(rs("tc_outline")%>"/></td></tr><tr><tr><td>实验大纲</td><td><input name="test_outline" type="text" id="test_outline" height="30" width="210" value="<%=trim(rs("test_outline")%>"/></td></tr><tr><td>教学计划</td><td><input name="tc_plan" type="text" id="tc_plan" height="30" width="210" value="<%=trim(rs("tc_plan")%>"/></td></tr><tr><td>重点难点</td><td><input name="kd_point" type="text" id="kd_point" height="30" width="210" value="<%=trim(rs("kd_point")%>"/></td></tr><tr><td>实验计划</td><td><input name="test_plan" type="text" id="test_plan" height="30" width="210" value="<%=trim(rs("test_plan")%>"/></td></tr><tr><td>参考资料</td><td><input name="referenc_data" type="text" id="referenc_data" height="30" width="210" value="<%=trim(rs("referenc_data")%>"/></td></tr><td height="30" colspan="2" align="center"><input name="queding" type="submit" id="queding" value="确定" /> <input name="quxiao" type="reset" id="quxiao" value="取消" /></td> </table> </form></body></html>5) p_k_gonggao.asp<%LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!DOCTYPE html PUBLIC "-/W3C/DTD XHTML 1.0 Transitional/EN" "http:/www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http:/www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><title>查看公告</title></head><body><!-#include file="conn.asp"-><!-#include file="banner.asp"-><table width="200" border="0" align="left"> <tr align="center"> <td><a href="p_k_gonggao.asp">查看公告</a></td> </tr> <tr align="center"> <td><a href="p_k_gonggao1.asp">发布公告</a></td> </tr> <tr align="center"> <td><a href="p_k_gonggao.asp">删除公告</a></td> </tr></table><%if session("user_ID")<> null thenresponse.Redirect"index.asp?ErrMsg=请先登录"response.End()elsedim rs1sql="select * from Announcement where user_ID='"&session("user_ID")&"'order by ann_ID desc"set rs1=conn.execute(sql)%> <table width="800" border="1" > <tr align="center"> <td>公告标题</td> <td>公告内容</td> <td>公告人</td> <td>公告时间</td> <td>删除公告</td> </tr><%while not rs1.eof%> <tr align="center"> <td><%response.write trim(rs1("ann_title")%></td> <td><%response.write trim(rs1("ann_content")%></td> <td><%response.write trim(rs1("user_ID")%></td> <td><%response.write trim(rs1("ann_time")%></td> <td><%response.write "<a href=delete.asp?ann_ID="&rs1("ann_ID")&"><br />删除</a>"%></td> </tr><%rs1.movenextwend%> </table> <% rs1.closeset rs1=nothingconn.closeset conn=nothingend if %></body></html>6) see_liuyan.asp<%LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!DOCTYPE html PUBLIC "-/W3C/DTD XHTML 1.0 Transitional/EN" "http:/www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http:/www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><title>查看留言</title></head><!-#include file="conn.asp"-><!-#include file="banner.asp"-><%if session("user_ID") = "" thenresponse.Redirect"index.asp?ErrMsg=请先登录"response.End()elsesql = "select * from User0 where user_ID= '"& session("user_ID") & "'"set rs = conn.execute(sql)sql1 = "select top 10 * from Question where user_ID ='"& session("user_ID")&"' order by qt_time desc"set rs2 = conn.execute(sql1)%><body><form><div><%sql2="select * from user0 where user_ID = '"& session("user_ID") & "'"set rs0 = conn.execute(sql2)if trim(rs0("power") )= 2 then%> <table > <tr> <td height="30" border="0" align="center"><a href="see_liuyan.asp">查看留言</a> </td> </tr> <tr> <td height="30" border="0" align="center" ><a href="online.asp">相关课程留言</a></td> </tr> <tr> <td height="30" border="0" align="center"><a href="add_liuyan.asp">编写留言</a></td> </tr> <tr> <td height="30" border="0" align="center"><a href="del_liuyan.asp">删除留言</a></td> </tr> </table><%else %> <table > <tr> <td height="30" border="0" align="center"><a href="see_liuyan.asp">查看留言</a> </td> </tr> <tr> <td height="30" border="0" align="center" ><a href="t_online.asp">相关课程留言</a></td> </tr> <tr> <td height="30" border="0" align="center"><a href="t_add_liuyan.asp">编写留言</a></td> </tr> <tr> <td height="30" border="0" align="center"><a href="del_liuyan.asp">删除留言</a></td> </tr> </table><%end if%> </div><div><table align="center" border="2" ><%while not rs.eof%> <tr> <td bgcolor="#66FFFF">姓名</td><td bgcolor="#66FFFF"><%=trim(rs("name")%></td></tr><%rs.movenextwend%><%while not rs2.eof%><tr><td>时间：</td><td><%=trim(rs2("qt_time")%></td></tr><tr><td>问题标题：</td><td><%response.write "<a href=online1.asp?qt_ID="&rs2("qt_ID")&" ><br />"&trim(rs2("qt_title")&"</a>"%></td></tr><tr> <td>问题内容：</td> <td><%=trim(rs2("qt_content")%></td></tr><%rs2.movenextwend%><%rs.closers2.closeset rs = nothingset rs2 = nothingconn.close%></table></div></form><%end if%></body></html>7) add.asp<%LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!DOCTYPE html PUBLIC "-/W3C/DTD XHTML 1.0 Transitional/EN" "http:/www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http:/www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><title>无标题文档</title></head><body><form id="form1" name="form1" method="post" action=""> <table width="427" border="1"> <tr> <td width="210"><div align="center">问题</div></td> <td width="201"><div align="center">答案</div></td> </tr> <tr> <td> </td> <td><label> <div align="center"> <input name="answer" type="text" id="answer" /> </div> </label></td> </tr> <tr> <td colspan="2"><label> <div align="center"> <input type="submit" name="Submit" value="提交" /> </div> </label></td> </tr> </table></form></body></html>8) del_liuyan.asp<%LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!DOCTYPE html PUBLIC "-/W3C/DTD XHTML 1.0 Transitional/EN" "http:/www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http:/www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><title>查看留言</title></head><!-#inc

注意事项

本文（Web、ASP程序设计网络教学平台系统设计.doc）为本站会员（仙人指路1688）主动上传，三一办公仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对上载内容本身不做任何修改或编辑。若此文所含内容侵犯了您的版权或隐私，请立即通知三一办公（点击联系客服），我们立即给予删除！

温馨提示：如果因为网速或其他原因下载失败请重新下载，重复下载不扣分。