📄 test.asp
字号:
<%@ Language=VBScript %>
<% option explicit %>
<!--#include file="conn.asp"-->
<style type="text/css">
<!--
.style2 {
font-size: 14px;
font-family: "黑体";
td{font-size:9pt;}
-->
</style>
<!--#include file="Checkuser.asp"-->
<html>
<head>
<title>考试界面</title>
</head>
<body bgcolor="#FFFFFF" background=images/backimage.gif>
<p align="center" style="font-size: 36px"><b><font face="华文行楷" color="#FF0000"><a href="selectsubject.asp"><%=session("selectsubjectname")%>考试</a></font></b></p>
<br>
<%
if request.form("submit1")="开始考试" then
dim yikao,testtime,hours,minutes
yikao=session("yikao")
if yikao=10 then
response.write "您是否按了浏览器上的后退或刷新按钮，你已经考试过了，请不要再按了。"
else
session("yikao")=1
testtime=session("testtime")
hours=clng(testtime)\60
minutes=clng(testtime) mod 60
'保存开始时间
dim starttime,i,sql,rs,count,temp,strid1,strid2
session("starttime")=hour(now())*60+minute(now())
starttime=session("starttime")
sql="select * from score"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
rs.addnew
rs("studentname")=session("studentname")
rs("subjectname")=session("selectsubjectname")
rs("endtime")=now()
rs("score")=0
rs.update
'rs.close
%>
<form method="POST" action="getresult.asp" name="testform">
<table width="100%" height="60" border="0" cellspacing="0" bordercolor="#111111" >
<tr>
<td width="100%" height="40"><b><font color="#000080"><span class="style2">一、单项选择题</span></font><font color="#000080">(每题<%=session("singleper")%>分,共<%=session("singlenumber")%>题)</font></b></td>
</tr>
</table>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from question where subjectname='"&session("selectsubjectname") & "'and type='SINGLE' and haveselect=0 order by id"
rs.open sql,conn,3,2
if rs.eof then
session("singlenumber")=0
'session("multinumber")
else
strid1=""
strid2=""
'randomize
for i=1 to session("singlenumber")
set rs=server.createobject("adodb.recordset")
sql="select * from question where subjectname='"&session("selectsubjectname") & "'and type='SINGLE' and haveselect=0 order by id"
rs.open sql,conn,3,2
'count=rs.recordcount
'temp=fix(count*rnd(10))
rs.movefirst
rs("haveselect")=1
strid1=strid1 & rs("ID") & ","
%>
<table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%" cellpadding="0">
<tr>
<td width="100%" height="20"> <b><font color="#000099"><%=i%>、<%=rs("question")%></font></b></td>
</tr>
<% if trim(rs("image"))<>"" then %>
<tr>
<td width="100%" > <b><img src="<%=rs("image")%>" border="0"></b></td>
</tr>
<% end if
if rs("A")<>"" then
%>
<tr>
<td width="100%" height="54">
<table width="94%" border="0" align="center" cellpadding="0" cellspacing="0" class="a1">
<tr valign="top">
<td> <input type="radio" name="NO<%=rs("id")%>" value="A">
A、<%=rs("A")%> </td>
<td> <input type="radio" name="NO<%=rs("id")%>" value="B">
B、<%=rs("B")%></td>
</tr>
<tr valign="top">
<td> <input type="radio" name="NO<%=rs("id")%>" value="C">
C、<%=rs("C")%></td>
<td> <input type="radio" name="NO<%=rs("id")%>" value="D">
D、<%=rs("D")%></td>
</tr>
</table>
<div align="center"></div></td>
</tr>
<%
end if
%> <%
if rs("B")<>"" then
%>
<tr>
<td width="100%"> </td>
</tr>
<%
end if
%> <%
if rs("C")<>"" then
%>
<%
end if
%> <%
if rs("D")<>"" then
%>
<%
end if
%>
</table>
<%
rs.update
next
end if
rs.close
set rs=nothing
%>
<table width="100%" height="49" border="0" cellspacing="0" bordercolor="#111111" id="AutoNumber3" style="border-collapse: collapse">
<tr>
<td width="100%" height="25"><b><font color="#FFFFFF" ><span class="style2">二、多项选择题</span>(每题<%=session("multiper")%>分,共<%=session("multinumber")%>题。每题至少有1项正确的答案，少选、多选、错选均不得分)</font></b></td>
</tr>
</table>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from question where subjectname='"&session("selectsubjectname") & "'and type='MULTI' and haveselect=0 "
rs.open sql,conn,3,2
if rs.eof then
session("multinumber")=0
else
randomize
for i=1 to session("multinumber")
set rs=server.createobject("adodb.recordset")
sql="select * from question where subjectname='"&session("selectsubjectname") & "'and type='MULTI' and haveselect=0 "
rs.open sql,conn,3,2
count=rs.recordcount
temp=fix(count*rnd(10))
rs.move temp
rs("haveselect")=1
strid2=strid2 & rs("ID") & ","
%>
<table border="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber2">
<tr>
<td width="100%" height="20"> <b class="a1"><%=i%>、<%=rs("question")%></b></td>
</tr>
<% if trim(rs("image"))<>"" then %>
<tr>
<td width="100%" > <b><img src="<%=rs("image")%>" border="0"></b></td>
</tr>
<% end if
if rs("A")<>"" then
%>
<tr>
<td width="100%"> <table width="94%" border="0" align="center" cellpadding="0" cellspacing="0" class="a1">
<tr valign="top">
<td> <input type="checkbox" name="NO<%=rs("id")%>" value="A">
A、<%=rs("A")%> </td><td><input type="checkbox" name="NO<%=rs("id")%>" value="B">
B、<%=rs("B")%></td>
</tr>
<tr valign="top">
<td><input type="checkbox" name="NO<%=rs("id")%>" value="C">
C、<%=rs("C")%></td>
<td><input type="checkbox" name="NO<%=rs("id")%>" value="D">
D、<%=rs("D")%></td>
</tr>
</table></td>
</tr>
<%
end if
%> <%
if rs("B")<>"" then
%>
<%
end if
%> <%
if rs("C")<>"" then
%>
<%
end if
%> <%
if rs("D")<>"" then
%>
<tr>
<td width="100%"> </td>
</tr>
<%
end if
%>
</table>
<%
rs.update
next
''''''''''' 结束多项选择''''''''''''''''''''''''''''
End if
'''''''''''''''''''''''''''''''''''''''
rs.close
response.write("<input type='hidden' name='hidQuestID1' value=" & strID1 & ">")
response.write("<input type='hidden' name='hidQuestID2' value=" & strID2 & ">")
set rs=nothing
If session("singlenumber")+session("multinumber")>0 then
set rs=server.createobject("adodb.recordset")
sql="select * from question where haveselect=1 "
rs.open sql,conn,3,2
rs.movefirst
do while not rs.eof
rs("haveselect")=0
rs.update
rs.movenext
loop
rs.close
else
set rs=nothing
call endConnection()
Response.Write("<br><br><br>")
Response.Write("<center>该科目还没有添加题库，请<a href=selectsubject.asp>重新选择考试科目！</a></center>")
Response.End()
'if Request.Form("nextstep")="nextstep" then '如果选择了考试科目，则进入考试界面
' if Request.Form("")="" then
End if
set rs=nothing
call endConnection()
'response.write(strid1)
'response.write(strid2)
%>
<p align=center><input type="submit" value="交卷" name="submit" ></p>
</form>
<%
end if
%>
<%
else
%>
<form method="POST" action="test.asp" name="form">
<p align=center><img src="images/pc.gif" width="200" height="269" border="0"></p>
<p align=center>
<input type="submit" value="开始考试" name="submit1" >
</p>
<p align=center> </p>
</form>
<%
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -