📄 answercard22.asp
字号:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<meta name="GENERATOR" Content="Microsoft Visual Studio.NET 7.0">
<script id="clientEventHandlersJS" language="javascript">
<!--
var n;
n=10;
function doAutoSubmit(){
window.setTimeout("doAutoSubmit()",1000);
if(n==5){
window.clock1.style.backgroundColor="red";
}
window.clock1.innerText=n--;
if(n==0){
document.form1.submit();
}
}
function TJ_onclick() {
var i;
var s;
s=""
for(i=0;i<document.forms.length-1;i++)
{
if(document.forms[i].x1.checked==true) s=s+"A";
if(document.forms[i].x2.checked==true) s=s+"B";
if(document.forms[i].x3.checked==true) s=s+"C";
if(document.forms[i].x4.checked==true) s=s+"D";
s=s+"/";
document.forms[i].submit()
}
f1.hd1.value=s
f1.submit()
}
//-->
</script>
</HEAD>
<body onload="doAutoSubmit()">
考试时间还有：
<span id="clock1" style="FONT-SIZE: larger;BACKGROUND-COLOR: lavender" >111111111</span>
<%
On Error Resume Next
'session("describe")=request.Form("Select1")
set cn=server.CreateObject("adodb.connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\zp\date\s223bsh03.mdb;Persist Security Info=False"
set rs=server.CreateObject("adodb.recordset")
set rs1=server.CreateObject("adodb.recordset")
'response.Write(request.Form("Select1"))
'response.Write(session("describe"))
rs1.Open "select * from test_paper where 试卷描述='"& session("describe") & "'",cn,3,1
if not rs1.EOF then
t=Replace(rs1.Fields("题目编号"),"/",",")
rs.Open "select * from test_questions_store where id in(" & t &")",cn,3,1
end if
dim i
i=0
while not rs.eof
d=rs.Fields("正确答案")
session("d")=session("d") & d & "/"
%>
<DIV align="center">
<form action="yuejuan.asp" method="post" id=Form1 name="forms[<%=i%>]">
<TABLE id="Table1" cellSpacing="1" cellPadding="1" width="10" align="center" border="0">
<TR>
<TD align="left"><%=i+1%></TD>
<%if len(rs.Fields("正确答案"))>1 then%>
<TD align="left"><INPUT id="x1" type="checkbox" value="A" name="Checkbox1">A</TD>
<TD align="left"><INPUT id="x2" type="checkbox" value="B" name="Checkbox2">B</TD>
</TR>
<TR>
<TD></TD>
<TD align="left"><INPUT id="x3" type="checkbox" value="C" name="Checkbox3">C</TD>
<TD align="left"><INPUT id="x4" type="checkbox" value="D" name="Checkbox4">D</TD>
</TR>
<TR>
<%else%>
<TD align="left"><INPUT id="Radio1" type="radio" value="A" name="RadioGroup">A</TD>
<TD align="left"><INPUT id="Radio2" type="radio" value="B" name="RadioGroup">B</TD>
</TR>
<TR>
<TD></TD>
<TD align="left"><INPUT id="Radio3" type="radio" value="C" name="RadioGroup">C</TD>
<TD align="left"><INPUT id="Radio4" type="radio" value="D" name="RadioGroup">D</TD>
<%end if%>
</TR>
</TABLE>
</form>
</DIV>
<%
rs.MoveNext
i=i+1
wend
%>
<P align="center"><base target="mainFrame"><INPUT id="TJ" type="submit" value="交卷" name="TJ" onclick="return TJ_onclick()"></P>
<DIV align="center">
<form action="yuejuan.asp" method="post" name="f1" ID="Form2">
<TABLE id="Table2" cellSpacing="1" cellPadding="1" width="300" align="center" border="0">
<TR>
<TD><INPUT id="hd1" type="hidden" name="hd1"></TD>
</TR>
</TABLE>
</form>
</DIV>
</body>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -