《2022年网络编程大作业 .pdf》由会员分享，可在线阅读，更多相关《2022年网络编程大作业 .pdf（13页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、华 北 科 技 学 院网络编程 B大作业班级 : 计科 B08-1 姓名:_ _ 作业题目 :网上答疑系统评阅成绩 :教师 :年月日名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 13 页 - - - - - - - - - ASP.NET 程序设计大作业- 1 - 1 引言1.1课程设计选题网上答疑系统1.2课程设计的目的通过这次设计的程序，可以帮助我们更进一步掌握ASP.NET的相关编程知识。更数量掌握 ASP.NET的各控件的用法。 网上答疑系统方便学生老师在课下进
2、行交流沟通，从而摆脱地点时间的限制，更有利于学生的学习。2 系统分析与设计2.1 功能及性能分析2.1.1 功能需求在 Internet飞速发展的今天，互联网成为人们快速获取、发布和传递信息的重要渠道，它在人们政治、经济、 生活等各个方面发挥着重要的作用。Internet上发布信息主要是通过网站来实现的，获取信息也是要在 Internet“海洋” 中按照一定的检索方式将所需要的信息从网站上下载下来。因此网站建设在 Internet应用上的地位显而易见，它已成为政府、企事业单位信息化建设中的重要组成部分，从而倍受人们的重视。为了更好的办学，提高学校知名度。网上答疑系统，是一种运用计算机网络为工具
3、来帮助教师与学生教学的方式，在这个过程中它利用多媒体技术， 人工智能技术，网络技术等多种技术手段。 通过教学软件，学习平台的开发和应用，使学生和计算机之间相互作用达到教学目的，这是一种现代化教学手段。网上答疑系统是一种教育观念与教育方式的结合，它的引入，丰富了教育教学手段，向教育现代化迈出了一大步。2.1.2 性能需求这个网上答疑系统需要设计成用户和管理员两部分。管理员子系统管理员通过登录进入后台管理界面，可以对有关信息进行编辑，删除。而用户通过注册登陆答疑系统，进行相关操作。其中为了便于管理，用户包括教师和学生。下面进行详细的功能描述：1）管理员功能：管理员登录输入用户名和密码， 通过系统判
4、断是否为管理员正确的用户名和密码，确认正确之后即可进入后台管理界面。 管理员可以对用户信息进行删除，修改，查询等功能，比如有的学生或老师密码忘记了，那么管理员帮他们查询密码，也可以帮他们修改密码，当然如果存在多次违反规矩的用户，管理员可以将其删除，也可名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 13 页 - - - - - - - - - ASP.NET 程序设计大作业- 2 - 以重新编辑一下用户的信息。另外，管理员也可以修改自己的密码，可以设置多个管理员密码。2）
5、用户功能：用户分为学生和老师。身为学生，登陆后，可以根据老师的资料，向指定老师留言，也可以查询注册用户的信息，如 qq电话等信息，方便线下交流，当然也可以查询以往在留言板留的言，查询老师给的答复。当老师登陆后，可以查看学生给自己的留言，可以将恶意留言删除，也可以针对学生问题进行解答，并自动标记已读，当然也可以修改以前2.2 系统的开发运行环境本系统开发平台 : +Access数据库本系统运行环境 : windows7 2.3 系统总体设计根据用户及相关用途的的划分，可以很清晰的将该系统分为三个功能模块，首先是登陆和注册功能模块，分为普通用户登陆和管理员登陆模块。 第二个模块为学留言模块，分为学
6、生留言模块和老师留言模块。第三个模块为管理员管理用户及用户自管理的模块。整个系统的功能模块图如下所示：2.3.1 系统结构图设计3 数据库设计3.1 数据库概念设计数据库中主要有五个数据表，分别是用户信息表，留言信息表，管理员信息表。数据库的具体实现见下列界面显示。网上答疑系统用户登陆用户注册管理员登陆用户管理学生留言教师留言名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 13 页 - - - - - - - - - ASP.NET 程序设计大作业- 3 - 3.2 数据
7、库的实现用户表其中用户名为主键，用户名、职位、密码、姓名、性别、电话、电子邮箱、 QQ 号码、工作单位，自我介绍的数据类型为文本类型，注册时间数据类型为日期/时间。留言信息表（Info）其中 id 为主键并且自动编号，其中除了 sendtime ，answertime数据类型为日期 /时间类型外，其它数据类型为文本类型。管理员表（admin）其中 id 为主键，其它类型都为文本类型4 详细设计与实现4.1 管理员登录模块管理员登录管理员登录界面和用户登录界面在一起，通过对数据库中用户角色的判断来确定是否为管理员，如果是管理员则进入后台管理界面名师资料总结 - - -精品资料欢迎下载 - - -
8、 - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 13 页 - - - - - - - - - ASP.NET 程序设计大作业- 4 - 登录界面4.2用户信息管理模块该模块为管理员对师生信息，及管理员信息进行编辑4.2.1全部师生信息管理界面通过编辑选项，管理员可以重新编辑或局部修改注册用户的个人基本信息，也可以通过删除选项，删除恶意留言的注册会员。当然也能查询相关会员信息，帮助个别忘记自己密码的用户找到他们的密码4.2.2 管理员信息管理通过这个功能，管理员可以更改自己的个人信息，也可以添加或删除其它管理员账号。在本实验
9、中，所有管理员的权限是一样的。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 13 页 - - - - - - - - - ASP.NET 程序设计大作业- 5 - 4.2.3 添加师生信息通过这个页面可以注册信息，在注册的时候，加了一些相关验证，比如QQ 号码必须全为数字，邮箱格式必须符合正常标准等等。完成填写后，点击提交，无需登录就可以直接进入相关页面进行操作了。4.2.4 添加管理员界面4.3学生留言模块通过这个模块学生可以向老师留言咨询，主界面如下：名师资料总结
10、- - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 13 页 - - - - - - - - - ASP.NET 程序设计大作业- 6 - 4.4 老师留言模块这个模块老师可以答复学生咨询，通过点击会员信息可以查询所有注册师生的信息，通过回答按钮，可以对学生问题进行答复，也可以对一些恶意问题进行删除，还可对以前答复进行补充更新。4.5其余辅助模块通过这个模块，操作更人性化，辅助主要功能名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - -
11、- - 名师精心整理 - - - - - - - 第 7 页，共 13 页 - - - - - - - - - ASP.NET 程序设计大作业- 7 - 老师和学生都可随时点击会员信息，老师可以了解学生的基本信息，方便沟通，也可了解老师的联系方式，方便课下咨询。点击结果如下4.6用户注册登录模块程序主界面如下：通过它可以选择登陆或注册，登陆方式有两中，一种是普通用户登陆，一种是管理员登陆，登陆后分别进入各自页面。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页，共 13 页 -
12、 - - - - - - - - ASP.NET 程序设计大作业- 8 - 用户可以通过注册进入答疑系统，注册页面如下当退出系统界面如下：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 9 页，共 13 页 - - - - - - - - - ASP.NET 程序设计大作业- 9 - 5 功能代码详解5.1 有关于用户的操作实现代码关于确定用户是老师，管理员还是学生的代码如下，如果选择管理员登陆按钮，则调用Login2( ByVal sender As System.Object,
13、ByVal e As System.EventArgs) ，判断用户名与数据库 admin表中的数据是否相同， 存在，则登陆成功。 通过调用 login( ByValsender As Object , ByVal e As System.EventArgs) 来确定用户是否存在，如果存在，则通过判定roleid 属性，来判定是学生还是老师。Imports System.Data Imports System.Data.OleDb PartialClass index Inherits System.Web.UI.Page Sub Page_Load( ByVal Sender As Obje
14、ct , ByVal E As EventArgs) End Sub Sub Login2(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim myname1 As String = TextBox1.Text Dim mypass1 As String = TextBox2.Text IfNot myname1 = And Not mypass1 = Then message.Text = checkadmin(myname1, mypass1) If message.Text = okThen Session(Us
15、erName) = myname1 Response.Redirect(admin.aspx) End If Else message.Text = 请填写完整的信息 End If End Sub Function checkadmin( ByVal n As String , ByVal p As String ) As String Dim conn As New OleDbConnection(Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & Server.MapPath(dy.mdb ) Dim strSql As String = sel
16、ect * from admin where username= + n + and userpwd= + p + conn.Open() Dim cmd As New OleDbCommand(strSql, conn) Dim dr As OleDbDataReader = cmd.ExecuteReader If dr.Read() Then Returnok Else Return信息出错，请确认 End If conn.Close() End Function ProtectedSub login(ByVal sender As Object , ByVal e As System.
17、EventArgs) Dim conn As New OleDbConnection(Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & Server.MapPath(dy.mdb ) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 10 页，共 13 页 - - - - - - - - - ASP.NET 程序设计大作业- 10 - Dim cmd As New OleDbCommand( select * from users, con
18、n) conn.Open() Dim dr As OleDbDataReader = cmd.ExecuteReader Do While dr.Read If dr( username ) = TextBox1.Text Then If dr( userpwd ) = TextBox2.Text Then Session(username ) = TextBox1.Text Session(userpwd ) = TextBox2.Text Session(roleid) = dr(roleid) If Session(roleid) = 教师 Then Response.Redirect(
19、teachers.aspx) Else Response.Redirect(students.aspx) End If End If End If Loop Dim err As String err = 用户名或密码错误 Label2.Text = err conn.Close() End Sub ProtectedSub signup(ByVal sender As Object , ByVal e As System.EventArgs) Response.Redirect(signup.aspx) End Sub End Class 5.2 有关显示注册师生信息的代码. Sub Pag
20、e_Load(Sender As Object , E As EventArgs) 建立 Connection 对象Dim conn As New OleDbConnection(Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:UsersruoshuiDocumentsVisual Studio 2005WebSitesWebSite2dy.mdb) 建立 Command 对象Dim cmd As New OleDbCommand( select * from users, conn) - 打开数据库连接conn.Open() 建立 DataRea
21、der对象Dim dr As OleDbDataReader = cmd.ExecuteReader() 下面开始显示数据，先显示标题 message.Text = ID姓名 职位 性别 qq 号码 电话号码 工作单位 邮箱地址 再利用循环显示每一条记录名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 11 页，共 13 页 - - - - - - - - - ASP.NET 程序设计大作业- 11 - Do While dr.Read() message.Text &= messag
22、e.Text &= & dr.Item(id ) & message.Text &= & dr.Item(username ) & message.Text &= & dr.Item(roleid) & message.Text &= & dr.Item(sex ) & message.Text &= & dr.Item(qq ) & message.Text &= & dr.Item(tel) & message.Text &= & dr.Item(units) & message.Text &= & dr.Item(email) & message.Text &= Loop message
23、.text &= 关闭数据库conn.Close() End Sub 返回 注册师生信息总汇 5.3 有关注册的代码Imports System.Data Imports System.Data.OleDb PartialClass signup Inherits System.Web.UI.Page Sub Button1_Click(ByVal sender As Object , ByVal e As System.EventArgs) Dim conn As New OleDbConnection(Provider=Microsoft.Jet.OLEDB.4.0;Data Source
24、= & Server.MapPath(dy.mdb ) Dim strsql As String Dim errors As String Dim contt As Integer contt = 0 errors = 用户名已存在 strsql = insert into users(username,userpwd,submitdate,roleid,sex,tel,email,qq,intro,units) values ( & TextBox2.Text & , & TextBox3.Text & ,# & Now() & #, & DropDownList1.SelectedItem
25、.Value & , & DropDownList2.SelectedItem.Value & , & TextBox5.Text & , & TextBox6.Text & , & txtQQ.Text & , & txtIntro.Text & , & TextBox7.Text & ) Dim cmd1 As New OleDbCommand(strsql, conn) Dim cmd2 As New OleDbCommand( select * from users, conn) conn.Open() Dim dr As OleDbDataReader = cmd2.ExecuteR
26、eader Do While dr.Read If dr( username ) = TextBox2.Text Then conn.Close() contt = 1 GoTo ll Response.End() 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 12 页，共 13 页 - - - - - - - - - ASP.NET 程序设计大作业- 12 - End If Loop ll: If contt = 0 Then cmd1.ExecuteNonQuery() con
27、n.Close() Session(username ) = TextBox2.Text Session(userpwd ) = TextBox3.Text Session(roleid) = DropDownList1.SelectedItem.Value If DropDownList1.SelectedItem.Value = 教师 Then Response.Redirect(teachers.aspx) Else Response.Redirect(student.aspx) End If Else Response.Write(window.parent.location.href
28、=err.aspx;) End If End Sub End Class 结论由于平常对网络编程这门不够重视，导致动手能力很差，这个答疑系统做的虽然非常简单，功能不是很全面，也不是非常好用，但还是费了我一番力气。做完这个大程序，首先感觉功能太缺乏，虽然想法很多，但由于自己水平有限，不能一一实现，留下了不少遗憾。比如，可以设置多个栏目，如计算机天地，专门探讨关于计算机方面的问题，文学典故，讨论关于文学方面的问题等等，如果可能还可以加上聊天室的私聊功能，这样在线用户可以相互沟通无障碍，无顾忌了。还有打分系统，对老师的回复进行评分测评等等，由于时间及水平不足的原因，暂时先放弃，希望以后能够弥补。这次实验遇到的最大的困难便是关于数据库的操作问题， 由于以前没有学过数据库，对数据库数据存取的原理理解的不是很深，也基本很少用过数据库，导致做这次大作业时，只要遇到关于数据库读取或写入时，只能转向课本，寻找数据库连接绑定等相关代码，以便从中的到启发。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 13 页，共 13 页 - - - - - - - - -