📄 test.asp
字号:
<%@ Language=VBScript %>
<% option explicit %><!--#include file="conn.asp"-->
<html>
<head>
<title>考试界面</title>
</head>
<body bgcolor="#FFFFFF" background=images/backimage.gif>
<p align="center"><b><font face="宋体" size="5" color="#FF0000"><%=session("selectsubjectname")%>考试</font></b></p><%if request.form("submit1")="开始考试" then '保存开始时间 dim starttime
session("starttime")=hour(now())*60+minute(now()) starttime=session("starttime")%><form method="POST" action="result.asp" name="testform">
<table border="0" cellspacing="0" bordercolor="#111111" width="100%" >
<tr>
<td width="100%" height="25"><b><font size="3" color="#000080">一、单项选择题(每题<%=session("singleper")%>分,共<%=session("singlenumber")%>题)</font></b></td>
</tr>
</table>
<%
dim i,sql,rs,count,temp,strid1,strid2strid1=""strid2=""randomize
for i=1 to session("singlenumber")set rs=server.createobject("adodb.recordset")
sql="select * from question where subjectname='"&session("selectsubjectname") & "'and type='单选题' and haveselect=0 "rs.open sql,conn,3,2
count=rs.recordcount
temp=fix(count*rnd(10))
rs.move temprs("haveselect")=1strid1=strid1 & rs("ID") & ","
%>
<table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%" cellpadding="0">
<tr>
<td width="100%" bgcolor="#EFEFEF" height="20"> <b><%=i%>、<%=rs("question")%></b></td>
</tr>
<%
if rs("A")<>"" then
%>
<tr>
<td width="100%"> <input type="radio" name="NO<%=rs("id")%>" value="A">A、<%=rs("A")%></td>
</tr>
<%
end if
%> <%
if rs("B")<>"" then
%>
<tr>
<td width="100%"> <input type="radio" name="NO<%=rs("id")%>" value="B">B、<%=rs("B")%></td>
</tr>
<%
end if
%> <%
if rs("C")<>"" then
%>
<tr>
<td width="100%"> <input type="radio" name="NO<%=rs("id")%>" value="C">C、<%=rs("C")%></td>
</tr>
<%
end if
%> <%
if rs("D")<>"" then
%>
<tr>
<td width="100%"> <input type="radio" name="NO<%=rs("id")%>" value="D">D、<%=rs("D")%></td>
</tr> <%
end if
%>
</table>
<% rs.update
next
rs.close
set rs=nothing
%>
<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">二、多项选择题(每题<%=session("multiper")%>分,共<%=session("multinumber")%>题。每题至少有1项正确的答案，少选、多选、错选均不得分)</font></b></td>
</tr>
</table>
<%
randomize
for i=1 to session("multinumber")set rs=server.createobject("adodb.recordset")
sql="select * from question where subjectname='"&session("selectsubjectname") & "'and type='多选题' and haveselect=0 "rs.open sql,conn,3,2
count=rs.recordcount
temp=fix(count*rnd(10))
rs.move temprs("haveselect")=1strid2=strid2 & rs("ID") & ","
%>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
<tr>
<td width="100%" bgcolor="#EFEFEF" height="20"> <b><%=i%>、<%=rs("question")%></b></td>
</tr>
<%
if rs("A")<>"" then
%>
<tr>
<td width="100%"> <input type="checkbox" name="NO<%=rs("id")%>" value="A">A、<%=rs("A")%></td>
</tr>
<%
end if
%> <%
if rs("B")<>"" then
%>
<tr>
<td width="100%"> <input type="checkbox" name="NO<%=rs("id")%>" value="B">B、<%=rs("B")%></td>
</tr>
<%
end if
%> <%
if rs("C")<>"" then
%>
<tr>
<td width="100%"> <input type="checkbox" name="NO<%=rs("id")%>" value="C">C、<%=rs("C")%></td>
</tr>
<%
end if
%> <%
if rs("D")<>"" then
%>
<tr>
<td width="100%"> <input type="checkbox" name="NO<%=rs("id")%>" value="D">D、<%=rs("D")%></td>
</tr>
<%
end if
%>
</table>
<% rs.update
next
rs.closeresponse.write("<input type='hidden' name='hidQuestID1' value=" & strID1 & ">")response.write("<input type='hidden' name='hidQuestID2' value=" & strID2 & ">")
set rs=nothingset rs=server.createobject("adodb.recordset")sql="select * from question where haveselect=1 "
rs.open sql,conn,3,2rs.movefirst do while not rs.eof rs("haveselect")=0 rs.update rs.movenext looprs.close
set rs=nothingcall endConnection()'response.write(strid1)'response.write(strid2)%>
<p align=center><input type="submit" value="交卷" name="submit" ></p></form><%dim lefttimelefttime=1do while lefttime>0lefttime=session("testtime")-(hour(now())*60+minute(now())-session("starttime"))
loopif lefttime=0 or lefttime<0 then%><script language=vbscript>
msgbox "时间到了！请交卷"
</script><%end if%> <% else %> <form method="POST" action="test.asp" name="form"><p align=center><input type="submit" value="开始考试" name="submit1" ></p></form><% response.write "<center>请选择开始考试！</center>" end if %>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -