test.asp

来自「这个东东是在一个网上有原码。属于改进版。其中90%是我加上去的原来只有在线答题」· ASP 代码 · 共 99 行

ASP

99 行

<%@ 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">&nbsp;&nbsp; <%=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">&nbsp;</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">

test.asp - 源码说明

本页面展示了「这个东东是在一个网上有原码。属于改进版。其中90%是我加上去的原来只有在线答题」中的 test.asp 源码文件，采用 ASP 编程语言编写，共 99 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与90%相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?