end if
G_CONN.execute \call closeConn()
response.redirect \
end sub
4.2.6课程档案管理
课程档案管理：后台管理员登录后进入课程管理界面如图4-4所示，首先系统会判断登录的管理员具备课程管理权限，超级管理员具有全部权限。如果没有次项权限则提示管理员没有此权限，不能进行课程档案管理。 其删除试题的主要代码如下：
sub del()
strSubjectID = Trim(request.querystring(\if strSubjectID = \
strSubjectID = Trim(request.form(\end if
if strSubjectID = \
strErr = \请选择要删除的试题！\showErrMsg(strErr)
response.write \call closeConn() exit sub
'删除试题
dim strSubjectID,strErr
end if
if G_CONN.execute(\count(*) as reccount from prj_process where
strErr = \此试题正在使用中，不能被删除！\call closeConn() showErrMsg(strErr)
response.write \exit sub
subid in (\
end if
G_CONN.execute \call closeConn()
第 16 页 共 24 页
response.redirect \
图4-5 考试课程管理
添加课程：填写课程名称后单击“更新”按钮即可添加课程。
修改课程：单击要修改的课程右侧的修改“链接后，此课程信息会出现在”添加/修改表格内，修改名称后单击“更新”按钮即可完成修改。
删除课程：单击待修改课程的右侧的“删除”链接即可。 4.2.7试题档案管理
试题档案管理：本系统中试题本分为 ：单选题，多选题，是非题三种，管理员可以进行试题的添加效果图如图4-5，修改和删除。管理员要进行试题管理首先也要判断管理员是否具有试题管理的权限，如果有此权限才能进行试题管理如果没有系统会自动提示管理员不具备此权限不能进行相应的操作。其功能主要由admin_subject.asp页面完成。
第 17 页 共 24 页
图4-6 添加试题
其主要代码片段如下：
set rsSubject = server.createobject(\创建记录集对象
strSqlSubject = \rsSubject.open strSqlSubject,G_CONN,1,3 rsSubject.addnew
rsSubject(\rsSubject(\rsSubject(\rsSubject(\rsSubject(\rsSubject(\rsSubject(\rsSubject(\rsSubject(\rsSubject(\rsSubject.update rsSubject.close set rsSubject = nothing call closeConn()
if request.form(\
第 18 页 共 24 页
response.redirect \
response.redirect \转到admin_subject.asp页面
else end if
4.2.8考试计划管理
考试计划管理：考试计划是管理员制定的，由管理员根据计划制定相应的考试计划，制定计划包括考试开始时间，考试结束时间，考试所属科目，试题题型分配比例等操作 主要由admin_project.asp页面完成。效果如图4-6
图4-7 考试计划管理
其删除考试计划主要代码如下：
sub del() '删除考试计划
dim intPrjID,strErr
intPrjID = CLng(Trim(request.querystring(\
if G_CONN.execute(\
and endtime>=date() and prjid in (select prjid from prj_student) and prjid=\& intPrjID)(\
strErr = \在考试计划使用中不能删除此计划！\showErrMsg(strErr) exit sub
end if
G_CONN.begintrans
G_CONN.execute \G_CONN.execute \G_CONN.execute \G_CONN.committrans call closeConn()
第 19 页 共 24 页
相关推荐：
loading