📄 test.asp
字号:
<%@ Language=VBScript %>
<%
if session("pass")<> 1 then
response.redirect "login.asp"
else
end if
set rs=server.createobject("adodb.recordset")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("exercise.mdb")
'初始化数据库
sql="select * from test"
rs.open sql,conn,3,3
do while not rs.eof
RANDOMIZE
RandomValue = INT(17*RND)+1
rs("count")=rs("count")+RandomValue
rs.update
rs.movenext
loop
rs.close
'提取试题
sql="select * from test order by id"
Set rs = conn.Execute(sql)
%><head>
<style type="text/css">
<!--
.unnamed1 { font-size: 10pt; text-decoration: none}
-->
</style>
<form name=forms>
</head>
<center>
<div align=center><span class="unnamed1">考试时间:
<input type=text name=input1 size=9>
<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+"时"+min+"分"+sec+"秒";idt=window.setTimeout("update();",1000);}
//-->
</script>
</span></div>
</center>
</form>
<FORM action="result.asp" id=FORM1 method=post name=FORM1>
<P align="center"> <span class="unnamed1"><%
i=1
rs.movefirst
do while not rs.eof%> </span>
<P align="center"><span class="unnamed1"> <%=rs("question")%> </span></P>
<div align="center">
<TABLE align=center border=1 cellPadding=1 cellSpacing=1 width="35%" bordercolor="#0099FF">
<TR bgcolor="#99CCFF">
<TD style="WIDTH: 50%" width="49%" class="unnamed1">
<INPUT name=ans<%=i%> type=radio value="A">
<%=rs("A")%> </TD>
</TR>
<TR bgcolor="#CCCCFF">
<TD width="49%" class="unnamed1">
<input name=ans<%=i%>
type=radio value="B">
<%=rs("B")%> </TD>
</TR>
<TR bgcolor="#99CCFF">
<td width="51%" class="unnamed1">
<input name=ans<%=i%>
type=radio value="C">
<%=rs("C")%> </td>
</TR>
<TR bgcolor="#CCCCFF">
<TD width="49%" class="unnamed1">
<input name=ans<%=i%>
type=radio value="D" >
<%=rs("D")%> </TD>
</TR>
</TABLE>
<span class="unnamed1"><%
i=i+1
rs.movenext
loop
%> </span></div>
<div align="center"><span class="unnamed1"></P></span></div>
<P align="center"> </P>
<P align=center> <span class="unnamed1">
<INPUT id=submit1 name=submit1 type=submit value="提交">
<INPUT id=reset1 name=reset1 type=reset value="重填">
</span></P>
</FORM>
<div align="center"><span class="unnamed1">⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -