passit.asp
来自「网络考试系统最终备份」· ASP 代码 · 共 460 行 · 第 1/2 页
ASP
460 行
<!--#include file="conn.inc"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css.css">
<script language="javascript">
function submitit()
{
if (document.all.passadvice.value=="")
{
alert("审批意见不能为空！");
document.all.passadvice.focus();
return false;
}
else
return true;
}
</script>
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
</head>
<body>
<%
v_id=request("id")
sql="select * from waitforpass where id="& request("id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
vobid = rs("objid")
sql_m="select * from user_info where UserID=(select Monitor_User_ID from paper_info where PaperID="&vobid&")"
set rs_m=server.createobject("adodb.recordset")
rs_m.open sql_m,conn,3,2
if rs("havepass")=1 then
%>
<p>已经审批 [<a href="news.asp">返回</a>]</p>
<%
else
if rs("objname")="考试计划" then
sql1="select * from Paper_info where PaperID="&rs("objid")
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
v_subid=rs1("Sub_ID")
'v_moniter=rs_m("Monitor_User_ID")
sql_sub="select * from subject_info where SubID="&v_subid&""
set rs_sub=server.createobject("adodb.recordset")
rs_sub.open sql_sub,conn,3,2
'sql_moniter="select * from user_info where UserID="&v_moniter&""
'set rs_moniter=server.createobject("adodb.recordset")
'rs_moniter.open sql_moniter,conn,3,2
%>
<table border="1" cellpadding="0" cellspacing="1" style="border-collapse: collapse" id="AutoNumber1" width="100%" bordercolor="#C0C0C0">
<tr height="20">
<td colspan="4" bgcolor="#e1e1e1">
<p align="center"><b>试卷信息</b></td>
</tr>
<tr height="20">
<td align="center" bgcolor="#EFEFEF"><strong>科目</strong></td>
<td colspan="3"><input name="textfield" type="text" class="inputnormal" value="<%=rs_sub("SubName")%>" readonly></td>
</tr>
<tr height="20">
<td align="center" bgcolor="#EFEFEF"><strong>试卷名称</strong></td>
<td colspan="3"><input name="textfield" type="text" class="inputnormal" value="<%=rs1("PaperName")%>" readonly></td>
</tr>
<tr height="20">
<td align="center" bgcolor="#EFEFEF"><p><strong>试卷难度系数(<span class="style1">分</span>)</strong></p>
<p><strong>（预计试卷平均分数）</strong></p></td>
<td colspan="3"><input name="textfield" type="text" class="inputnormal" value="<%=rs1("TestDiffRate")%>" readonly></td>
</tr>
<tr height="20">
<td align="center" bgcolor="#EFEFEF"><b>卷面总分(<font color="#FF0000">分</font>)</b></td>
<td colspan="3">
<p align="left">
<input type="text" name="totalper" size="20" value="<%=rs1("totalper")%>" class="inputnormal" readonly></td>
</tr>
<tr height="20">
<td align="center" bgcolor="#EFEFEF"><strong>监考教师</strong></td>
<td colspan="3"> <input name="textfield" type="text" class="inputnormal" value="<%=rs_m("UserRName")%>" readonly></td>
</tr>
<tr height="20">
<td align="center" bgcolor="#e1e1e1"> </td>
<td bgcolor="#e1e1e1">
<p align="center"><b>单选题</b></td>
<td bgcolor="#e1e1e1">
<p align="center"><b>多选题</b></td>
<td bgcolor="#e1e1e1">
<p align="center"><b>判断题</b></td>
</tr>
<tr height="20">
<td align="center" bgcolor="#EFEFEF"><b>题型分布(<font color="#FF0000">个</font>)</b></td>
<td>
<p align="center">
<input type="text" name="singlecount" size="12" value="<%=rs1("SingleCount")%>" class="inputnormal" readonly></td>
<td>
<p align="center">
<input type="text" name="multicount" size="12" value="<%=rs1("MultiCount")%>" class="inputnormal" readonly></td>
<td>
<p align="center">
<input type="text" name="judgecount" size="12" value="<%=rs1("JudgeCount")%>" class="inputnormal" readonly></td>
</tr>
<tr height="20">
<td align="center" bgcolor="#EFEFEF"><b>分值分布(<font color="#FF0000">分</font>)</b></td>
<td>
<p align="center">
<input type="text" name="singleper" size="12" value="<%=rs1("SinglePer")%>" class="inputnormal" readonly></td>
<td>
<p align="center">
<input type="text" name="multiper" size="12" value="<%=rs1("MultiPer")%>" class="inputnormal" readonly></td>
<td>
<p align="center">
<input type="text" name="judgeper" size="12" value="<%=rs1("JudgePer")%>" class="inputnormal" readonly></td>
</tr>
<tr height="20">
<td align="center" bgcolor="#e1e1e1" colspan="4"><b>考试时间设定</b></td>
</tr>
<tr height="20">
<td align="center" bgcolor="#EFEFEF"><b>考试时间(<font color="#FF0000">小时</font>)</b></td>
<td colspan="3">
<p align="center">
<input type="text" name="testtime" size="12" value="<%=rs1("ExamTime")%>" class="inputnormal" readonly></td>
</tr>
<tr height="20">
<td align="center" bgcolor="#EFEFEF"><b>有效期</b></td>
<td colspan="3">
<p align="center">
<input type="text" name="starttime" size="20" value="<%=rs1("StartTime")%>" class="inputnormal" readonly>至<input type="text" name="endtime" size="20" value="<%=rs1("EndTime")%>" class="inputnormal" readonly></td>
</tr>
<tr height="20">
<td colspan="4" bordercolor="#E1E1E1">
<p align="left"> 如果您同意此次考试计划，请填写如下意见。</td>
</tr>
</table>
<%
sNoumber=1
v_PaperID=vobid
v_papername=rs1("PaperName")
v_singleper=rs1("SinglePer")
v_singlecount=rs1("SingleCount")
v_multiper=rs1("MultiPer")
v_multicount=rs1("MultiCount")
v_judgeper=rs1("JudgePer")
v_judgecount=rs1("JudgeCount")
%>
<p align="center"><b><font face="黑体" size="5" color="#FF0000">网络在线考试 <%=v_papername%></font></b></p>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="100%" height="25"><b><font size="3" color="#000080">一、单项选择题(每题<%=v_singleper%>分,共<%=v_singlecount%>题)</font></b></td>
</tr>
</table>
<%
vsql1="select * from paper_detail where DQue_Type=0 and Paper_ID="&v_PaperID&""
set vrs1=server.createobject("adodb.recordset")
'response.Write sql1
'response.End()
vrs1.open vsql1,conn,3,2
while not vrs1.eof
tempQue_ID=vrs1("Que_ID")
vsql="select * from question_database where QueID="&tempQue_ID&""
'response.Write sql
'response.End()
set vrs=server.createobject("adodb.recordset")
vrs.open vsql,conn,3,2
%>
<table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%" id="AutoNumber2" cellpadding="0">
<tr>
<td width="100%" bgcolor="#EFEFEF" height="20"> <b><%=sNoumber%>、<%=vrs("Question")%></b></td>
</tr>
<%
if vrs("Option1")<>"" then
%>
<tr>
<td width="100%"> <input type="radio" name="NO<%=vrs("QueID")%>" value="A">A、<%=vrs("Option1")%></td>
</tr>
<%
end if
%> <%
if vrs("Option2")<>"" then
%>
<tr>
<td width="100%"> <input type="radio" name="NO<%=vrs("QueID")%>" value="B">B、<%=vrs("Option2")%></td>
</tr>
<%
end if
%> <%
if vrs("Option3")<>"" then
%>
<tr>
<td width="100%"> <input type="radio" name="NO<%=vrs("QueID")%>" value="C">C、<%=vrs("Option3")%></td>
</tr>
<%
end if
%> <%
if vrs("Option4")<>"" then
%>
<tr>
<td width="100%"> <input type="radio" name="NO<%=vrs("QueID")%>" value="D">D、<%=vrs("Option4")%></td>
</tr>
<%
end if
%> <%
if vrs("Option5")<>"" then
%>
<tr>
<td width="100%"> <input type="radio" name="NO<%=vrs("QueID")%>" value="E">E、<%=vrs("Option5")%></td>
</tr>
<%
end if
%> <%
if vrs("Option6")<>"" then
%>
<tr>
<td width="100%"> <input type="radio" name="NO<%=vrs("QueID")%>" value="F">F、<%=vrs("Option6")%></td>
</tr>
<%
end if
%>
</table>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?