📄 type.asp
字号:
<%@ Language=VBScript %>
<% option explicit %>
<!--#include file="conn.asp"-->
<!--#include file="Checkuser.asp"-->
<%'session("selectsubjectname") ="打字测试"%>
<html>
<title>考试界面</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<%if session("studentname")="admin" or session("studentname")="a" then %>
<body bgcolor="#FFFFFF" background="images/backimage.gif">
<%else%>
<body onselectstart="return false" bgcolor="#FFFFFF" background="images/backimage.gif">
<%end if%>
<p align="center"><b><font face="华文行楷" size="6" color="#FF0000"><a href="selectsubject.asp"><%=session("selectsubjectname")%> </a></font></b>
</p>
<%
' onselectstart="return false"
if request.form("start")="start" then
dim yikao,testtime,hours,minutes,selectsubjectname,scoreid
yikao=session("yikao")
if yikao=19 then
response.write "您是否按了浏览器上的后退或刷新按钮，你已经考试过了，请不要再按了。"
else
session("yikao")=0
testtime=session("testtime")
'testtime=60
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())
'+session("passtime")
starttime=session("starttime")
' rs.close
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
'session("scoreid")=rs("id")
' scoreid=rs("id")
'rs.close
%>
<form method="POST" action="typegetresult.asp" name="forms">
<center>
<div align=center><span class="unnamed1"><%=scoreid%>
<script language=javascript><!--
var sec=0;var min=0;var hou=0;flag=0;idt=window.setTimeout("update();",1000);
function update()
{sec++;
if(sec==60)
{sec=0;min+=1;}
if(min==60)
{min=0;hou+=1;}
if((min>0)&&(flag==0))
{flag=1;}
document.forms.input1.value=hou*60+min+sec/60;
if(document.forms.input1.value>=<%=session("testtime")%>)
{alert("时间到了，请交卷！");document.forms.submit.click();}
idt=window.setTimeout("update();",1000);
}
//-->
</script>
</span></div>
</center>
<table border="0" cellspacing="0" bordercolor="#111111" width="100%" >
<tr>
<td width="100%" height="25"><b></b></td>
</tr>
</table>
<%
strid1=""
strid2=""
randomize
'for i=1 to session("singlenumber")]
set rs=server.createobject("adodb.recordset")
sql="select * from question where subjectname='"&session("selectsubjectname")&"' "
'where subjectname='"&session("selectsubjectname") & "'and type='单选题' and haveselect=0 "
rs.open sql,conn,3,2
if rs.eof then
Response.redirect("selectsubject.asp")
end if
'count=rs.recordcount
'temp=fix(count*rnd(10))
'rs.move temp
'rs("haveselect")=1
strid1=strid1 & rs("ID") & ","
%>
<table width="64%" border="0" align="center" cellpadding="1" cellspacing="1" bordercolor="#C0C0C0" style="border-collapse: collapse">
<tr>
<td width="100%" height="1" valign="bottom"><p align="center"><font size="3" face="楷体_GB2312"> <font face="宋体">考试时间：<%=hours%>小时<%=minutes%>分
您已经做了：
<input name=input1 type=text value="0" size=9>
</font><font face="宋体">提示：请用<font color="#0000FF">Tab</font>键换行</font></font>
<hr> </td>
</tr>
<% if trim(rs("image"))<>"" then %>
<% end if
if rs("A")<>"" then
%>
<tr>
<td width="100%"><font color="#333333" size="3"><%=chr(-int(16400+70*rnd()))+rs("A")%></font></td>
</tr>
<%
end if
%>
<%
if rs("B")<>"" then
%>
<tr>
<td> <font color="#333333" size="3">
<input name="textfielda" type="text" id="textfielda" size="80" >
</font></td>
</tr>
<tr>
<td width="100%" height="20"><font color="#333333" size="3"><%=chr(-int(16400+70*rnd()))+rs("B")%> </font></td>
</tr>
<%
end if
%>
<%
if rs("C")<>"" then
%>
<tr>
<td> <font color="#333333" size="3">
<input name="textfieldb" type="text" id="textfieldb" size="80">
</font></td>
</tr>
<tr>
<td width="100%"><font color="#333333" size="3"><%=chr(-int(16400+70*rnd()))+rs("C")%> </font></td>
</tr>
<%
end if
%>
<%
if rs("D")<>"" then
%>
<tr>
<td> <font color="#333333" size="3">
<input name="textfieldc" type="text" id="textfieldc" size="80">
</font></td>
</tr>
<tr>
<td width="100%"><font color="#333333" size="3"><%=chr(-int(16400+70*rnd()))+rs("D")%> </font></td>
</tr>
<tr>
<td> <font color="#333333" size="3">
<input name="textfieldd" type="text" id="textfieldd" size="80">
</font></td>
</tr>
<%
end if
%>
</table>
<%
rs.update
'next
rs.close
set rs=nothing
%>
<p align=center>
<input name="typeid" type="hidden" id="typeid" value="=rs("ID")">
<input type="submit" value=" 交卷 " name="submit" >
<input name="re" type="reset" id="re" value="清除" >
</p>
</form>
<div align="center">
<%
end if
%>
<%
else
%>
</div>
<form method="POST" action="type.asp" name="form">
<p align=center><img src="images/pc.gif" width="200" height="269" border="0"> </p>
<p align=center>
<input onclick="javascript:window.history.go(-1)" type="button" value="下次再考" name="submit1" >
<input name="submit12" type="submit" id="submit12" value=" 开始考试 " >
<input name="start" type="hidden" id="start2" value="start">
</p>
</form>
<%
'response.write "<center><br>请选择开始考试/下次再考！</center>"
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -