|
4.2 用户登录 考试系统中的身份验证是很重要的，它关系到考试的严肃性，以密码这一条件限制，这就使有资格的用户才能进行考试，用户登录时，系统便要验证其姓名和密码与考试者信息库所备案的是否一致，并判断其身份，是老师或是学生。 内容来自www.paper51.com
内容来自www.paper51.com
关键代码： 内容来自www.paper51.com yhm1=request("yhm") ‘获取用户的用户名 内容来自www.paper51.com mm1=request("mm") ‘获取用户的密码 paper51.com setrs=server.CreateObject("adodb.recordset") 内容来自论文无忧网 www.paper51.com
sql="select * from yonghu whereyhm='"&yhm1&"' and mm='"&mm1&"'" paper51.com rs.open sql,con,1,1 http://www.paper51.com if rs.eof or rs.bof then 内容来自www.paper51.com response.redirect("../index.asp") ‘若该用户不存在，则转到index.asp页 http://www.paper51.com
else paper51.com session("yhm")=rs("yhm") ‘登录成功，用session记录下该用户基本的信息 paper51.com session("sf")=rs("sf") http://www.paper51.com session("dj")=rs("dj") 内容来自www.paper51.com
end if copyright paper51.com
内容来自www.paper51.com 图6 教师登录后的界面 内容来自论文无忧网 www.paper51.com 内容来自论文无忧网 www.paper51.com 图7 学生登录后的界面 http://www.paper51.com
4.3 添加试题 内容来自www.paper51.com 对试题库进行不断地扩充，可以满足现代考试的需求。当教师输入试题后，系统会对输入的试题进行是否合法的判断，若试题有不合符要求的地方，则返回，要求教师修改后再进行添加。 内容来自www.paper51.com
copyright paper51.com 关键代码： http://www.paper51.com th1=request("th") ‘获取用户输入的试题信息 内容来自论文无忧网 www.paper51.com lx1=request("lx") 内容来自www.paper51.com
zsd1=request("zsd") paper51.com
ndxs1=request("ndxs") paper51.com fs1=request("fs") 内容来自论文无忧网 www.paper51.com st1=request("st") paper51.com xxa1=request("xxa") copyright paper51.com xxb1=request("xxb") 内容来自www.paper51.com xxc1=request("xxc") 内容来自www.paper51.com xxd1=request("xxd") paper51.com da1=request("da") http://www.paper51.com if th1="" then msg="题号不能为空" ‘判断是否有空项，若有则转到add12.asp页，重新输入试题 paper51.com
if lx1="" then msg="类号不能为空" copyright paper51.com if zsd1="" then msg="知识点不能为空" 内容来自www.paper51.com if ndxs1="" then msg="难度系数不能为空" 内容来自www.paper51.com if fs1="" then msg="分数不能为空" copyright paper51.com if st1="" then msg="试题不能为空" http://www.paper51.com if xxa1="" then msg="选项a不能为空" paper51.com
if xxb1="" then msg="选项b不能为空" 内容来自论文无忧网 www.paper51.com if xxc1="" then msg="选项c不能为空" 内容来自www.paper51.com if xxd1="" then msg="选项d不能为空" paper51.com if da1="" then msg="答案不能为空" paper51.com if (msg<>"") thenresponse.redirect "add12.asp" copyright paper51.com setrs=server.createobject("adodb.recordset") 内容来自www.paper51.com rs.open "select * from danxuanwhere th="&th1,con,1,1 copyright paper51.com
if rs.eof and rs.bof then 内容来自论文无忧网 www.paper51.com rs.close paper51.com set rs=nothing paper51.com
set rs1=server.createobject("adodb.recordset") ‘若输入的试题符合要求，则将试题插入到表danxuan中 内容来自论文无忧网 www.paper51.com
rs1.open"insert into danxuan values http://www.paper51.com
('"&th1&"','"&lx1&"','"&zsd1&"','"&ndxs1&"','"&fs1&"','"&st1&"', http://www.paper51.com '"&xxa1&"','"&xxb1&"','"&xxc1&"','"&xxd1&"','"&da1&"')",con,1,3 内容来自www.paper51.com set rs1=nothing http://www.paper51.com
con.close() http://www.paper51.com set con=nothing 内容来自www.paper51.com
http://www.paper51.com
图9 添加单项选择题的界面 内容来自www.paper51.com 内容来自www.paper51.com 图10 添加成功后的数据库 内容来自论文无忧网 www.paper51.com 以上是以单项选择题为例，说明添加试题的过程，试题的删除、查看和修改和添加类似。 内容来自www.paper51.com 4.4 用户管理 内容来自www.paper51.com
用户管理实现了教师对学生用户的管理，可实现对学生用户的添加、删除、基本信息的查看。 内容来自www.paper51.com
内容来自www.paper51.com 关键代码： http://www.paper51.com yhm1=request("yhm") ‘获取教师录入的信息 copyright paper51.com
mm1=request("mm") 内容来自论文无忧网 www.paper51.com bj1=request("bj") http://www.paper51.com zy1=request("zy") http://www.paper51.com if yhm1="" then msg="用户名不可为空" ‘用户名和密码不可以为空 copyright paper51.com if mm1="" then msg="密码不可为空" http://www.paper51.com
if (msg<>"") thenresponse.redirect "add1.asp" copyright paper51.com setrs=server.createobject("adodb.recordset") copyright paper51.com rs.open "select * from yonghuwhere yhm='"&yhm1&"'",con,1,1 copyright paper51.com if rs.eof and rs.bof then 内容来自论文无忧网 www.paper51.com rs.close 内容来自论文无忧网 www.paper51.com set rs=nothing copyright paper51.com
setrs=server.createobject("adodb.recordset") http://www.paper51.com rs.open "insert into yonghuvalues('"&yhm1&"','"&mm1&"','学生','0')",con,1,3 内容来自www.paper51.com else 内容来自www.paper51.com response.redirect"add2.asp" paper51.com
end if copyright paper51.com set rs=nothing 内容来自www.paper51.com setrs1=server.createobject("adodb.recordset") copyright paper51.com rs1.open"insert intoxueshengxinxi(yhm,bj,zy)values('"&yhm1&"','"&bj1&"','"&zy1&"')",con,1,3 内容来自www.paper51.com
rs.close copyright paper51.com set rs1=nothing paper51.com paper51.com 图12 添加学生用户的界面 内容来自论文无忧网 www.paper51.com
内容来自www.paper51.com 图13 添加成功后的学生信息表 内容来自论文无忧网 www.paper51.com 以上只例举了用户添加的实现过程，用户管理部分的删除和查看部分和添加部分类似。 copyright paper51.com 4.5 生成试卷 http://www.paper51.com 试卷生成部分可根据老师设置的试题的个数和分值生成满分为一百分的客观题试卷。试题的题型包括单项选择题、多项选择题和判断题。 内容来自www.paper51.com 内容来自论文无忧网 www.paper51.com 关键代码： 内容来自论文无忧网 www.paper51.com setrs=server.createobject("adodb.recordset") 内容来自论文无忧网 www.paper51.com rs.open "select top 1 * fromdanxuan order by th DESC ",con,1,1 copyright paper51.com b=rs("th") ‘b中存放目前单选题库中单选题的最大编号 copyright paper51.com
a=request("txdx") '获取用户要求的本卷的单选题的个数 http://www.paper51.com for i=1 to a step 1 ‘用for循环从题库中取出a道题 http://www.paper51.com Randomize() ‘取1到b的随机数 内容来自论文无忧网 www.paper51.com n=Int((b-1+1)*Rnd(now())+1) ‘将单选题库中的第n道题做为本卷中的第i道题 copyright paper51.com setrsi=server.CreateObject("adodb.recordset") '取出题号为n的题的答案存入试卷表中 内容来自www.paper51.com rsi.open "select * from danxuanwhere th="&n,con,1,1 内容来自论文无忧网 www.paper51.com da1=rsi("da") paper51.com setrsa=server.CreateObject("adodb.recordset") http://www.paper51.com rsa.open"insert into shijuan values paper51.com
('"&sjmc1&"','"&i&"','"&n&"','"&tx1&"','"&da1&"','"&fzdx1&"')",con,1,3 http://www.paper51.com ‘将生成的试卷的信息（名称，题号，在题库中的题号，答案，分值）存入试卷表中 内容来自论文无忧网 www.paper51.com set rsa=nothing http://www.paper51.com con.close 内容来自www.paper51.com set con=nothing paper51.com
http://www.paper51.com 图15 设置要生成试卷基本信息的界面 http://www.paper51.com
paper51.com 图16 生成试卷的界面 copyright paper51.com |