admin_project.asp

在线网络考试系统,还不错,大家可以试一试!

		intB_Count = 0
	end if
	if IsNumeric(Trim(request.form("courseid"))) = true then
		intCourseID = CLng(Trim(request.form("courseid")))
	else
		strErr = strErr & "<li>课程选择错误！</li>"
	end if
	if G_CONN.Execute("select count(*) as reccount from course where courseid=" & intCourseID)("reccount") = 0 then
		strErr = strErr & "<li>课程选择错误！</li>"
	end if
	if IsNumeric(Trim(request.form("limittime"))) = true then
		intLimitTime = CLng(Trim(request.form("limittime")))
	else
		strErr = strErr & "<li>请填写考试限制时间！</li>"
	end if
	if strErr <> "" then
		showErrMsg(strErr)
		exit sub
	end if
	set rsProject = server.createobject("ADODB.Recordset")
	strSqlProject = "select * from project where prjid=0"
	rsProject.open strSqlProject,G_CONN,1,3
	rsProject.addnew
	rsProject("prjname") = strPrjName
	rsProject("starttime") = dtmStartTime
	rsProject("endtime") = dtmEndTime
	rsProject("settime") = now()
	rsProject("ss_count") = intSS_Count
	rsProject("ms_count") = intMS_Count
	rsProject("b_count") = intB_Count
	rsProject("limittime") = intLimitTime
	rsProject("courseid") = intCourseID
	rsProject("setadmin") = G_CONN.execute("select adminid from admin where adminname='" & request.cookies("aoyi")("adminname") & "'")("adminid")
	rsProject.update
	rsProject.close
	set rsProject = nothing
	call closeConn()
	response.redirect "admin_Project.asp"
end sub

sub modify()	'修改考试计划界面
	dim rsProject,strSqlProject,intPrjID,strErr
	if IsNumeric(Trim(request.querystring("prjid"))) = true then
		intPrjID = CLng(Trim(request.querystring("prjid")))
	else
		strErr = "<li>请正确选择考试计划！</li>"
		showErrMsg(strErr)
		exit sub
	end if
	set rsProject = server.createobject("ADODB.Recordset")
	strSqlProject = "select * from project where prjid=" & intPrjID
	rsProject.open strSqlProject,G_CONN,1,1
	if rsProject.bof and rsProject.eof then
		strErr = "<li>此考试计划不存在！</li>"
		showErrMsg(strErr)
		exit sub
	end if
%>
<form action="admin_project.asp" method="post">
<input name="action" type="hidden" value="savemodify">
<input name="prjid" type="hidden" value="<%=intPrjID%>">
<table width="90%" align="center" cellspacing="1" cellpadding="0" bgcolor="#FFFFFF" class="tborder">
	<tr class="tdtbg">
		<td colspan="2" align="center"> 修改考试计划 </td>
	</tr>
	<tr class="tdbg">
		<td width="180" align="right">考试计划名称：</td>
		<td>
			<input name="prjname" type="text" class="text" size="25" maxlength="128" value="<%=rsProject("prjname")%>">
		</td>
	</tr>
	<tr class="tdbg">
		<td width="180" align="right">计划开始时间：</td>
		<td>
			<input name="starttime" type="text" class="text" size="18" maxlength="20" value="<%=FormatDatetime(rsProject("starttime"),2)%>">
		</td>
	</tr>
	<tr class="tdbg">
		<td width="180" align="right">计划结束时间：</td>
		<td>
			<input name="endtime" type="text" class="text" size="20" maxlength="50" value="<%=FormatDatetime(rsProject("endtime"),2)%>">
		</td>
	</tr>
	<tr class="tdbg">
		<td width="180" align="right">考试限制时间：</td>
		<td>
			<input name="limittime" type="text" class="text" size="6" maxlength="5" value="<%=rsProject("limittime")%>"> 分钟
		</td>
	</tr>	
	<tr class="tdbg">
		<td width="180" align="right"> 考试课程：</td>
		<td>
			<%
			call showCourseList(CLng(rsProject("courseid")))
			%>
		</td>
	</tr>
	<tr class="tdbg">
		<td width="180" align="right">单选题数量：</td>
		<td>
			<input name="ss_count" type="text" class="text" size="6" maxlength="5" value="<%=rsProject("ss_count")%>">
			每题1分
		</td>
	</tr>	
	<tr class="tdbg">
		<td width="180" align="right">多选题数量：</td>
		<td>
			<input name="ms_count" type="text" class="text" size="6" maxlength="5" value="<%=rsProject("ms_count")%>">
			每题2分
		</td>
	</tr>	
	<tr class="tdbg">
		<td width="180" align="right">是非题数量：</td>
		<td>
			<input name="b_count" type="text" class="text" size="6" maxlength="5" value="<%=rsProject("b_count")%>">
			每题1分
		</td>
	</tr>
	<tr class="tdbg">
		<td align="center" height="30" colspan="2">
			<input type="submit" value="&nbsp;修&nbsp;&nbsp;改&nbsp;">&nbsp;&nbsp;
			<input type="reset" value="&nbsp;重&nbsp;&nbsp;写&nbsp;">
		</td>
	</tr>
</table>
</form>
<%
	rsProject.close
	set rsProject = nothing
end sub

sub saveModify()	'保存修改结果
	dim rsProject,strSqlProject,intPrjID,strPrjName,dtmStartTime,dtmEndTime,intLimitTime
	dim intCourseID,intSS_Count,intMS_Count,intB_Count,strErr
	
	strErr = ""
	strPrjName = trim(request.form("prjname"))
	if strPrjName = "" then
		strErr = "<li>考试计划名称为空！</li>"
	end if
	if IsDate(trim(request.form("starttime"))) = false then
		strErr = strErr & "<li>计划开始时间格式不正确！</li>"
	else
		dtmStartTime = CDate(trim(request.form("starttime")))
	end if
	if IsDate(trim(request.form("endtime"))) = false then
		strErr = strErr & "<li>计划结束时间格式不正确！</li>"
	else
		dtmEndTime = CDate(trim(request.form("endtime")))
	end if
	if IsNumeric(Trim(request.form("prjid"))) = true then
		intPrjID = CLng(Trim(request.form("prjid")))
	else
		strErr = strErr & "<li>此考试计划不存在！</li>"
	end if
	if IsNumeric(Trim(request.form("ss_count"))) = true then
		intSS_Count = CLng(Trim(request.form("ss_count")))
	else
		intSS_Count = 0
	end if
	if IsNumeric(Trim(request.form("ms_count"))) = true then
		intMS_Count = CLng(Trim(request.form("ms_count")))
	else
		intMS_Count = 0
	end if
	if IsNumeric(Trim(request.form("b_count"))) = true then
		intB_Count = CLng(Trim(request.form("b_count")))
	else
		intB_Count = 0
	end if
	if IsNumeric(Trim(request.form("courseid"))) = true then
		intCourseID = CLng(Trim(request.form("courseid")))
	else
		strErr = strErr & "<li>课程选择错误！</li>"
	end if
	if G_CONN.Execute("select count(*) as reccount from course where courseid=" & intCourseID)("reccount") = 0 then
		strErr = strErr & "<li>课程选择错误！</li>"
	end if
	if IsNumeric(Trim(request.form("limittime"))) = true then
		intLimitTime = CLng(Trim(request.form("limittime")))
	else
		strErr = strErr & "<li>请填写考试限制时间！</li>"
	end if
	if G_CONN.execute("select count(*) as reccount from prj_student where state<>1 and prjid=" & intPrjID)("reccount") > 0 then
		strErr = strErr & "<li>此考试计划正在使用中，不能修改！</li>"
	end if
	if strErr <> "" then
		showErrMsg(strErr)
		exit sub
	end if
	set rsProject = server.createobject("ADODB.Recordset")
	strSqlProject = "select * from project where prjid=" & intPrjID
	rsProject.open strSqlProject,G_CONN,1,3
	if rsProject.bof and rsProject.eof then
		strErr = "<li>此考试计划不存在！</li>"
		rsProject.close
		set rsProject = nothing
		showErrMsg(strErr)
		exit sub
	end if
	rsProject("prjname") = strPrjName
	rsProject("starttime") = dtmStartTime
	rsProject("endtime") = dtmEndTime
	rsProject("settime") = now()
	rsProject("ss_count") = intSS_Count
	rsProject("ms_count") = intMS_Count
	rsProject("b_count") = intB_Count
	rsProject("limittime") = intLimitTime
	rsProject("courseid") = intCourseID
	rsProject("setadmin") = G_CONN.execute("select adminid from admin where adminname='" & request.cookies("aoyi")("adminname") & "'")("adminid")
	rsProject.update
	rsProject.close
	set rsProject = nothing
	call closeConn()
	response.redirect "admin_Project.asp"
end sub

sub del()	'删除考试计划
	dim intPrjID,strErr
	
	intPrjID = CLng(Trim(request.querystring("prjid")))
	if G_CONN.execute("select count(*) as reccount from project where starttime<=date() and endtime>=date() and prjid in (select prjid from prj_student) and prjid=" & intPrjID)("reccount") > 0 then
		strErr = "<li>在考试计划使用中不能删除此计划！</li>"
		showErrMsg(strErr)
		exit sub
	end if
	G_CONN.begintrans
	G_CONN.execute "delete from prj_process where prjid=" & intPrjID
	G_CONN.execute "delete from prj_student where prjid=" & intPrjID
	G_CONN.execute "delete from project where prjid=" & intPrjID
	G_CONN.committrans
	call closeConn()
	response.redirect "admin_project.asp"
end sub
%>