passit.asp
来自「网络考试系统最终备份」· ASP 代码 · 共 460 行 · 第 1/2 页
ASP
460 行
<% sNoumber=sNoumber+1
vrs1.movenext
'rs.movenext
wend
vrs1.close
'rs.close
%>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3">
<tr>
<td width="100%" height="25"><b><font color="#000080" size="3">二、多项选择题(每题<%=v_multiper%>分,共<%=v_multicount%>题。每题至少有2项正确的答案，少选每答对一题得<%=v_multiper/4%>分，多选不得分)</font></b></td>
</tr>
</table>
<%
vsql1="select * from paper_detail where DQue_Type=1 and Paper_ID="&v_PaperID&""
set vrs1=server.createobject("adodb.recordset")
vrs1.open vsql1,conn,3,2
while not vrs1.eof
tempQue_ID=vrs1("Que_ID")
vsql="select * from question_database where QueID="&tempQue_ID&""
set vrs=server.createobject("adodb.recordset")
vrs.open vsql,conn,3,2
%>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
<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="checkbox" name="NO<%=vrs("QueID")%>" value="A">A、<%=vrs("Option1")%></td>
</tr>
<%
end if
%> <%
if vrs("Option2")<>"" then
%>
<tr>
<td width="100%"> <input type="checkbox" name="NO<%=vrs("QueID")%>" value="B">B、<%=vrs("Option2")%></td>
</tr>
<%
end if
%> <%
if vrs("Option3")<>"" then
%>
<tr>
<td width="100%"> <input type="checkbox" name="NO<%=vrs("QueID")%>" value="C">C、<%=vrs("Option3")%></td>
</tr>
<%
end if
%> <%
if vrs("Option4")<>"" then
%>
<tr>
<td width="100%"> <input type="checkbox" name="NO<%=vrs("QueID")%>" value="D">D、<%=vrs("Option4")%></td>
</tr>
<%
end if
%> <%
if vrs("Option5")<>"" then
%>
<tr>
<td width="100%"> <input type="checkbox" name="NO<%=vrs("QueID")%>" value="E">E、<%=vrs("Option5")%></td>
</tr>
<%
end if
%> <%
if vrs("Option6")<>"" then
%>
<tr>
<td width="100%"> <input type="checkbox" name="NO<%=vrs("QueID")%>" value="F">F、<%=vrs("Option6")%></td>
</tr>
<%
end if
%>
</table>
<% sNoumber=sNoumber+1
vrs1.movenext
'rs.movenext
wend
vrs1.close
'rs.close
%>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber5">
<tr>
<td width="100%" height="25"><b><font color="#000080" size="3">三、判断题(每题<%=v_judgeper%>分,共<%=v_judgecount%>题)</font></b></td>
</tr>
</table>
<%
vsql1="select * from paper_detail where DQue_Type=2 and Paper_ID="&v_PaperID&""
set vrs1=server.createobject("adodb.recordset")
vrs1.open vsql1,conn,3,2
while not vrs1.eof
tempQue_ID=vrs1("Que_ID")
vsql="select * from question_database where QueID="&tempQue_ID&""
set vrs=server.createobject("adodb.recordset")
vrs.open vsql,conn,3,2
%>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
<tr>
<td width="100%" bgcolor="#EFEFEF" height="20"> <b><%=sNoumber%>、<%=vrs("Question")%></b></td>
</tr>
<tr>
<td width="100%"> <input type="radio" name="NO<%=vrs("QueID")%>" value="y">正确</td>
</tr>
<tr>
<td width="100%"> <input type="radio" name="NO<%=vrs("QueID")%>" value="n">不正确</td>
</tr>
</table>
<% sNoumber=sNoumber+1
vrs1.movenext
'rs.movenext
wend
vrs1.close
'rs.close
set vrs=nothing
%>
<hr noshade color="#000000" size="1">
<form method="POST" action="savepass.asp?testid=<%=vobid%>&objname=考试计划" onSubmit="return submitit();">
<div align="center">
<center>
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" width="480" id="AutoNumber2">
<tr>
<td bgcolor="#E1E1E1" width="80" align="center" height="20">是否同意</td>
<td><select size="1" name="yesorno">
<option selected value="同意">同意</option>
<option value="不同意">不同意</option>
</select></td>
</tr>
<tr>
<td bgcolor="#E1E1E1" align="center">审批意见</td>
<td>
<textarea rows="11" name="passadvice" cols="53" onBlur="this.className='areanormal'" onFocus="this.className='inputedit';this.select()" class="areanormal"></textarea></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="480" height="30">
<tr>
<td width="100%">
<p align="center"><input type="submit" value="提交" name="B1" class="s02">
<input type="reset" value="重置" name="B2" class="s02"></td>
</tr>
</table>
</center>
</div>
</form>
<%
else
sql2="select * from exam_news where newsid="&vobid
response.Write(vobid)
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,3,2
'response.Write(now())
'response.End()
%>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3">
<tr>
<td width="100%"><b><font color="#0099FF" size="3"><%=rs2("title")%></font></b></td>
</tr>
<tr>
<td width="100%"><b><%=rs2("fabr")%> </b></td>
</tr>
<tr>
<td width="100%"><%=rs2("fabsj")%> </td>
</tr>
<tr>
<td width="100%"><%=rs2("text")%> </td>
</tr>
</table>
<hr noshade color="#000000" size="1">
<form method="POST" action="savepass.asp?newsid=<%=vobid%>&objname=新闻" onSubmit="return submitit();">
<div align="center">
<center>
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" width="480" id="AutoNumber2">
<tr>
<td bgcolor="#E1E1E1" width="80" align="center" height="20">是否同意</td>
<td><select size="1" name="yesorno">
<option selected value="同意">同意</option>
<option value="不同意">不同意</option>
</select></td>
</tr>
<tr>
<td bgcolor="#E1E1E1" align="center">审批意见</td>
<td>
<textarea rows="11" name="passadvice" cols="53" onBlur="this.className='areanormal'" onFocus="this.className='inputedit';this.select()" class="areanormal"></textarea></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="480" height="30">
<tr>
<td width="100%">
<p align="center"><input name="B2" type="submit" class="s02" id="B2" value="提交">
<input type="reset" value="重置" name="B2" class="s02"></td>
</tr>
</table>
</center>
</div>
</form>
<%
end if
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?