asp+sql毕业设计选题系统论文+源程序全套 第9页
系统文件目录结构设计
本系统有三种类型用户：学生，教师，管理员，因为他们的权限各不相同，各自操作对象，操作内容也不相同，所以将他们各自分配一个目录，分别设计各自的操作页面，分别设计程序。
树状如下：
teacher——教师操作页面目录
student——学生操作页面目录
admin——管理员操作页面目录
css——css样式表存放目录
image——系统图片文件存放目录
files——系统公共文档存放目录
4.2 系统实现
由于本系统完善度较高，贴近现实使用，故代码量庞大，无法一一举例说明，以下仅列举特定功能进行说明。
4.2.1 用户验证功能的实现
系统设计的用户登录验证功能通过分别对不同用户类型进行验证得以实现，以管理员登录为例，只列出关键部分，其余代码未列出。登录界面效果如图15所示，登录错误信息如图16所示。
<%
Dim UNM
Dim PWD
UNM = Request.Form("textfield1") ’获取用户输入用户名
PWD = Request.Form("textfield2") ’获取用户输入密码
Dim conn
Set conn=Server.CreateObject("ADODB.RecordSet")
conn.ActiveConnection = "DSN=hw;User ID=sa" ’连接数据库
conn.Source = "select * from dbo.admin where admin_name='"&UNM&"'" ’打开管理员信息表
conn.CursorType = 0
conn.LockType = 1
conn.Open()
if conn.eof or conn.bof then ’判断用户是否存在
response.Redirect("../error.asp") ’不存在则跳转到错误页面
else
if conn("admin_pass")=PWD then ’判断用户密码是否输入正确
session("admin")=UNM
response.Redirect("main.asp") ’用户名密码均正确则跳转到信息页面
else
response.Redirect("../error.asp") ’密码错误则跳转到错误页面
end if
conn.Close()
Set conn = Nothing ’关闭数据库了解，释放服务器资源
end if
%>
图15 管理员登录界面
图16 登录错误提示界面
4.2.2 学生模块的实现
学生模块包含的个人资料修改模块，选题模块，信息查询模块均已实现。以下以学生选题功能的实现为例，只列出关键部分，其余代码未列出。学生选报题目界面如图17所示。
<%
Dim PWD
Dim ID
PWD = Request.Form("textfield1")
ID = Request.Form("hiddenField1")
Dim conn
Set conn=Server.CreateObject("ADODB.RecordSet")
conn.ActiveConnection = "DSN=hw;User ID=sa"
conn.Source = "select * from dbo.student where stu_id='"&session("student")&"'"
conn.CursorType = 0
conn.LockType = 1
conn.Open()
if conn("stu_pass")=PWD then
if conn("stu_works")="0" then
Dim conn2
Set conn2=Server.CreateObject("ADODB.RecordSet")
conn2.ActiveConnection = "DSN=hw;User ID=sa"
conn2.Source = "select * from dbo.works where works_id='"&ID&"'"
conn2.CursorType = 0
conn2.LockType = 1
conn2.Open()
if conn2("works_state") = 2 then
conn2.close()
conn2.Source = "update dbo.works set works_state= 3 where works_id='"&ID&"'"
conn2.CursorType = 1
conn2.LockType = 3
conn2.Open()
conn.close()
conn.Source = "update dbo.student set stu_works='"&ID&"' where stu_id='"&session("student")&"'"
conn.CursorType = 1
conn.LockType = 3
conn.Open()
Response.Write("选题成功，<a href='main.asp'>点击这里刷新您的信息</a>")
else
Response.Write("此课题已经被选报，您无法选报这个题目，<a href='list.asp'>点击此处浏览所有可选课题</a>")优,文-论'文.网
http://www.youerw.com end if
Set conn2 = Nothing
else
Response.Write("您已经选报过题目，若要重新选题，请先放弃您原来选报的题目<br><a href='main.asp'>点击这里刷新您的信息</a>")
end if
else
Response.Write("密码输入错误，<a href='javascript:history.back()'>请返回重新输入</a><br>如果当前用户不是您，请勿为别人选题，请关闭浏览器重新登录")
end if
Set conn = Nothing
conn.MoveNext
Loop
conn.Close
Set conn = Nothing
%>
图17 题目详细信息
4.2.3 教师模块的实现
教师模块中的个人资料修改模块，选题上报修改模块，信息查询模块均已实现。以下以教师提交选题功能的实现为例，只列出关键部分，其余代码未列出。教师提交选题界面如图18所示。
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9]
asp+sql毕业设计选题系统论文+源程序全套 第9页下载如图片无法显示或论文不完整，请联系qq752018766
