⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 test.asp

📁 吻宇考试管理系统源码 吻宇考试管理系统源码
💻 ASP
字号:
🔍 
<!--#include file="conn.asp"-->
<!--#include file="Checkuser.asp" -->
<!--#include file="CheckTime.asp" -->
<%
dim rs1,sql1
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from index where id=1"
rs1.open sql1,conn,1,1
sjsz=rs1("sjzs")
Dim num
Randomize
num=Int(Rnd*sjsz)
Session("mdb")="shiti"&num
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs1("homepage")%>--考试系统系统</title>
<META http-equiv=Content-Language content=zh-cn>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK 
href="img/cnwy.css" rel=stylesheet>
<SCRIPT language=javascript>
function click() {
if (event.button==2) {
alert('站长吻宇提示你:"请遵守考场纪律~!请不要作弊~!"')
}
}
document.onmousedown=click
</SCRIPT>
<%
if Session("Retset")=1 then%>
<script language="vbscript">
msgbox("因为你没有遵守考场纪律,被罚出场~!请和管理员联系~!")
window.location.href"main.asp"
</script>
<%end if%>
</head>
<body onload="ChangeTime()">
<table width="0" border="0" align="center" bgcolor="#FFFFFF">
  <tr>
    <td background="IMG/topbg.gif">
<TABLE height=187 width=780 align=center border=0>
      <TBODY>
        <TR>
          <TD width=775 background=IMG/topbg.gif bgColor=#ffffff height=15>
            <DIV align=right></DIV></TD>
        </TR>
        <TR>
          <TD vAlign=top width=775 background=IMG/logo.gif height=147>
            <DIV align=right><SPAN class=noline>
              <object 
      codebase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0 
      height=126 width=437 align=left 
      classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000>
                <param name="movie" value="img/logo.swf">
                <param name="quality" value="high">
                <param name="wmode" value="transparent">
                <embed src="img/logo.swf" 
      width="437" height="126" align="left" quality="high" 
      pluginspage="http://www.macromedia.com/go/getflashplayer" 
      type="application/x-shockwave-flash"></embed>
              </object>
              <IMG height=14 
      src="IMG/sy.gif" width=17> <A class=top 
      onclick="this.style.behavior='url(#default#homepage)';this.setHomePage('<%=rs1("homeurl")%>');" 
      href="<%=rs1("homeurl")%>"><FONT color=#000000>设为首页</FONT></A> <IMG 
      height=14 src="IMG/sc.gif" width=17> <A class=top 
      onclick=window.external.AddFavorite(location.href,document.title); 
      href="<%=rs1("homeurl")%>"><FONT color=#000000>加入收藏夹</FONT></A> <IMG 
      height=14 src="IMG/lx.gif" width=17> <A class=top 
      href="<%=rs1("homeurl")%>"><FONT color=#000000>联系我们</FONT></A> <BR>
                  <SCRIPT>
today=new Date();
function initArray(){
this.length=initArray.arguments.length
for(var i=0;i<this.length;i++)
this[i+1]=initArray.arguments[i]  }
var d=new initArray(
"Sunday",
"Monday",
"Tuesday",
"Wednesday",
"Thursday",
"Friday",
"Saturday");
document.write(
today.getMonth()+1,".",
today.getDate(),".",
today.getYear(),".",
d[today.getDay()+1] );
            </SCRIPT>
                  <MARQUEE scrollAmount=2 scrollDelay=5>
                  <BR>
                  </MARQUEE>
            </SPAN>
              <SPAN class=noline>
              <MARQUEE scrollAmount=2 scrollDelay=5>
                </MARQUEE>
              </SPAN></DIV></TD>
        </TR>
        <TR>
          <TD background=IMG/topbg.gif height=14>
            <DIV align=center></DIV></TD>
        </TR>
      </TBODY>
    </TABLE></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF"><form  action="result.asp" method="post" name="cnwy" id="cnwy">
      <table width="0" border="0" align="center">
        <tr>
          <td width="766"><div align="center">欢迎<%=request.cookies("name")%>同学参加吻宇考试系统举办的：<STRONG><%=session("kemu")%>考试</STRONG></div></td>
        </tr>
        <!--#include file="CheckTime.asp" -->
		<tr>
          <td> <div align="center">
                <%
  TimeLogin=time()
  TimeSubmit=DateAdd("n", TimeGet, TimeLogin)
  response.Write("登录时间："&TimeLogin&"　　交卷时间："&TimeSubmit)  
  %>
          </div></td>
        </tr>
        <tr>
          <td><div align="center"><strong>请自觉遵守考试纪律，超时交卷按0分处理,您做的是第<%=num+1%>套试卷</strong></div></td>
        </tr>
        <tr>
          <td><div align="center"><strong>本场考试时间为:<%=session("xztime")%>分钟 &nbsp;本试卷总分：<%=session("zongf")%>分</strong></div></td>
        </tr>
        <tr>
          <td><strong>一、单项选择题，本题分<%=session("dxts")%>小题，每小题<%=session("dxfs")%>分，共计<%=trim(session("dxts")*session("dxfs"))%>分。</strong></td>
        </tr>
       
		<tr>
          <td><table width="720" border="0">
              <%
			dim wyrs,wysql
			dim i
			i=1
			set wyrs=server.CreateObject("adodb.recordset")
			wysql="select * from "&session("mdb")&" where kemu='"&session("kemu")&"' and type='1'"
			wyrs.open wysql,conn,1,1
			do while not wyrs.eof
			%>
			
			<tr>
              <td width="625"><%=i%>、<%=wyrs("question")%></td>
            </tr>
            <tr>
              <td><div align="left">
                <input name="<%=i%>" type="radio" value="A">
                <span class="xsmall style2">A.</span><%=wyrs("a")%></div></td>
            </tr>
            <tr>
              <td><input type="radio" name="<%=i%>" value="B">
                <span class="xsmall style2">B.</span><%=wyrs("b")%> </td>
            </tr>
            <tr>
              <td><span class="xsmall style2">
                <input type="radio" name="<%=i%>" value="C">
C.</span><%=wyrs("c")%> </td>
            </tr>
            <tr>
              <td><span class="xsmall style2">
                <input type="radio" name="<%=i%>" value="D">
D.</span><%=wyrs("d")%></td>
            </tr>
            <%
			wyrs.movenext
			i=i+1
		loop
		wyrs.close
		set wyrs=nothing
		%>
		  </table></td>
        </tr>
        <tr>
          <td><strong>二、多项选择题，本题分<%=session("sxts")%>小题，每小题<%=session("sxfs")%>分，共计<%=trim(session("sxts")*session("sxfs"))%>分。</strong></td>
        </tr>
        <tr>
          <td><table width="720" border="0">
            <%
			dim cnwyrs,cnwysql
			dim wy,cnwy
			wy=1
			set cnwyrs=server.CreateObject("adodb.recordset")
			cnwysql="select * from "&session("mdb")&" where kemu='"&session("kemu")&"' and type='2'"
			cnwyrs.open cnwysql,conn,1,1
			do while not cnwyrs.eof
			%>
            <tr>
              <td width="625"><%=wy%>、<%=cnwyrs("question")%></td>
            </tr>
            <tr>
              <td><div align="left">
                  <input name="<%response.write("anw"&wy)%>" type="checkbox" value="A">
                  <span class="xsmall style2">A.</span><%=cnwyrs("a")%></div></td>
            </tr>
            <tr>
              <td><input name="<%response.write("anw"&wy)%>" type="checkbox" value="B">
                  <span class="xsmall style2">B.</span><%=cnwyrs("b")%> </td>
            </tr>
            <tr>
              <td><input name="<%response.write("anw"&wy)%>" type="checkbox" value="C"><span class="xsmall style2">
      C.</span><%=cnwyrs("c")%> </td>
            </tr>
            <tr>
              <td><span class="xsmall style2">
                <input name="<%response.write("anw"&wy)%>" type="checkbox"  value="D">
      D.</span><%=cnwyrs("d")%></td>
            </tr>
            <%
			cnwyrs.movenext
			wy=wy+1
			
		loop
		cnwyrs.close
		set cnwyrs=nothing
		%>
          </table></td>
          </tr>
        <tr>
          <td><table width="284" border="0" align="center">
            <tr>
              <td><div align="center">
                <input type="submit" name="Submit" value="交卷">
              </div></td>
              </tr>
          </table></td>
        </tr>
      </table>
      </form></td>
  </tr>
  <tr>
    <td background="IMG/topbg.gif">
<TABLE class=p9 cellSpacing=0 cellPadding=0 width=780 align=center border=0>
      <TBODY>
        <TR>
          <TD align=Middle background=IMG/topbg.gif bgColor=#ffffff 
      height=20>&nbsp; </TD>
        </TR>
        <TR>
          <TD class=bottom align=Middle background=IMG/topbg.gif 
    bgColor=#ffffff height=20>
            <P align="center">版权所有 Copyright &copy; 2005-2008<A class=bottom href="<%=rs1("homeurl")%>"> <%=rs1("homepage")%> </A>&nbsp;All Rights Reserved 站长：吻宇QQ32940696<BR>
                技术支持：吻宇QQ32940696<A class=bottom tiTle=<%=rs1("banquan")%> 
      href="<%=rs1("homeurl")%>">&nbsp;</A>授权使用：<A class=bottom 
      href="<%=rs1("homeurl")%>"><%=rs1("homepage")%></A><BR>
              </P></TD>
        </TR>
        <TR>
          <TD align=middLe background=IMG/topbg.gif bgColor=#ffffff 
    height=13>&nbsp;</TD>
        </TR>
      </TBODY>
    </TABLE></td>
  </tr>
</table>
</body>
</html>
<%
session("retset")=1
rs1.close

set rs1=nothing
set conn=nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -