📄 answercard.asp
字号:
<HTML>
<script language="javascript">
var fen;
var miao;
var xianshi;
fen=2;
miao=5;
function doAutoSubmit(){
window.setTimeout("doAutoSubmit()",1000);
if(fen==1){
window.clock1.style.backgroundColor="red";
}
if (miao==0 && fen!=0)
{
fen=fen-1;
miao=5;
}
if (miao>0)
{
miao=miao-1;
}
else
{
miao=0;
}
if(xianshi!="考试结束时间到，请离开考场"){
xianshi="距离考试结束还有：" +fen + "分" +miao + "秒";
}
window.clock1.innerText=xianshi;
if(fen==0 && miao==0){
if(xianshi!="考试结束时间到，请离开考场")
document.form1.submit();
xianshi="考试结束时间到，请离开考场";
}
}
function dosubmit()
{
if (fen==0 && miao>0)
{
document.form1.submit ();//history.back(1);
}
else
{
window.alert("您只能在考试30分钟以后交卷");
}
}
</script>
<body onload="doAutoSubmit()">
<%
dim k
dim str
dim str1
'dim i
'str="6/5/10/9/8/2/1/4/" '模拟从试卷表中提出的试卷编号
'str1 = Replace(str, "/", ",",1) '将试卷编号转化为数组
'str1=array(1,3,5,2,7,9,11,13)
'str1=split( str , "/" )
'session("describe")=request.Form("Select1")
k=1
set cn=server.CreateObject("adodb.connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("data/s223bsh03.mdb") & ";Persist Security Info=False"
set rs=server.CreateObject("adodb.recordset")
set rs1=server.CreateObject("adodb.recordset")
rs1.Open "select 题目编号 from test_paper where 试卷描述='" & session("describe") & "' and 考试时间='" & cstr(date()) &"'",cn,3,1
session("str")=rs1.Fields(0)
str1 = Replace(session("str"), "/", ",",1)
'按提好叔祖的顺序查询数据库表，将符合的提好都防到rs中去
rs.Open "select * from test_questions_store where id in(" & str1 & ")",cn,adOpenStatic
'
'while not rs.EOF
'for i=0 to UBound(str1, 1)
'key=key & Request.Form ("s" & rs.Fields ("id")) & "\"
'rs.MoveNext
'wend
rs.MoveFirst
'Response.Write (key)
%>
<span id="clock1" style="FONT-SIZE: larger;BACKGROUND-COLOR: lavender" >111111111</span>
<form action="read_paper.asp" method="post" name="form1" target="mainFrame">
<TABLE id="Table1" cellSpacing="1" cellPadding="1" align="center" border="0">
<input type="hidden" name="tihao" value=<%=str%>>
<%dim i
i=1
while not rs.EOF %>
<TR>
<td><%=i%>.</td>
<TD>A<input type="checkbox" name=<%="s" & rs.Fields("id")%> value= "A" ></TD>
<TD>B<input type="checkbox" name=<%="s" & rs.Fields("id")%> value="B" ></TD>
<TD>C<input type="checkbox" name=<%="s" & rs.Fields("id")%> value="C" ></TD>
<TD>D<input type="checkbox" name=<%="s" & rs.Fields("id")%> value= "D" ></TD>
</TR>
<tr><td> </td></tr>
<%rs.MoveNext
i=i+1
wend
session("i")=i
%>
<input type="button" value="交卷" id=button1 name=button1 onclick="dosubmit()" >
<!--<a href="answercard.asp" onclick="dosubmit()">交卷</a>-->
</TABLE>
</form>
</body>
</HTML>
<%
rs.Close
cn.Close
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -