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

📄 exam_view.asp

📁 本人的课程设计。不足之处请大家指教。因为第一次用ASP有很多不足的地方。
💻 ASP
字号:
<!-- #include file="cookies.asp" -->
<!-- #include file="conn/conn.asp" -->
<% 
	'当前用户名
	 id=request.cookies("username")
	 set rs=server.createobject("adodb.recordset")
	 sql="select * from student where id='"&trim(id)&"'"
	 rs.open sql,conn,1,1
	 sname=trim(rs("name"))
	 rs.close
	 set rs=nothing
   
	 ename=request("ename")		'课程名
	 eid=request("eid")			'试卷编号
	 text=request("text")		'试卷名称
	 endtime=dateadd("n",120,now())		'考试结束时间
	 etime=hour(endtime)&":"&minute(endtime)	'结束的显示时间
	 
	 '取试卷对应题目,判断是否有加入题目
	 set rs=server.createobject("adodb.recordset")
     sql="select * from question where qid in ( select qid from ex_que where ename='"&ename&"' and eid='"&eid&"' )"
     rs.open sql,conn,1,1
	if rs.eof then	
		rs.close
		set rs=nothing
		%>
		<script>
		window.alert("该试卷还未加入试题,请加入试题后在发布!")
		history.go(-1)
		</script>
		<%
	 end if

%>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/style.css" type="text/css">
</head>

<body bgcolor="#CEDBFF">

<p><h1 align="center"><font color="#0033FF"><%=text%></font></h1></p>


<p align="center"><font color="#FF0000">考试时间为2小时,结束时间为<%=etime%><b></b></font></p>
<p align="center"><font color="#FF0000">考试过程中请不要刷新或后退</b></font></p>
<form name=forms>
<center>                      
<div align=right><span class="unnamed1">考试时间:
<input type=text name=input1 size=12>
<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>
<hr>
</form>
<form name="form1" method="post" action="">

  <% '取对应的题目
  set rs=server.createobject("adodb.recordset")
  sql="select * from question where qid in ( select qid from ex_que where ename='"&ename&"' and eid='"&eid&"' )"
  rs.open sql,conn,1,1
  
  cont=0
  
  do while not rs.EOF
  '以下动态显示考试题目
  cont=cont+1
  %>	
	<table  align="center" width="80%" border="1" style="font-size:14px ">
			 <tr> 
                  <td colspan="2"><b><%=trim(cont)%>. <%=trim(rs("qname"))%>(<%if trim(rs("qtype"))=1 then
				  response.write "单选题"
				  elseif trim(rs("qtype"))=2 then 
				  response.write "多选题"
				  elseif trim(rs("qtype"))=3 then 
				  response.write "判断题"
                  end if%>)</b></td>
             </tr>
             <tr>
                  <td width="8%">选择项: </td>
                  <td>         
                    <table width="100%" border="0">
                    <tr> 
                    <td valign="top" width="50%"> 
				  
                    <%if trim(rs("key1"))<>"" then%>
                    <%if trim(rs("qtype"))=1 then%>
                    <input type="radio" name="t<%=trim(rs("qid"))%>" value="A"> 
                    <%else%>
                    <input type="checkbox" name="t<%=trim(rs("qid"))%>" value="A"> 
                    <%end if%>
                    A. <%=trim(rs("key1"))%> <br> 
                    <%end if%>
                    </td>
					<td width="50%">					
                    <%if trim(rs("key2"))<>"" then%>
                    <%if trim(rs("qtype"))=1 then%>
                    <input type="radio" name="t<%=trim(rs("qid"))%>" value="B"> 
                    <%else%>
                    <input type="checkbox" name="t<%=trim(rs("qid"))%>" value="B"> 
                    <%end if%>
                    B. <%=trim(rs("key2"))%> <br> 
                    <%end if%>
                    </td>
					</tr>
					<tr>
					<td width="50%">			
                    <%if trim(rs("key3"))<>"" then%>
                    <%if trim(rs("qtype"))=1 then%>
                    <input type="radio" name="t<%=trim(rs("qid"))%>" value="C"> 
                    <%else%>
                    <input type="checkbox" name="t<%=trim(rs("qid"))%>" value="C"> 
                    <%end if%>
                    C. <%=trim(rs("key3"))%> <br> 
                    <%end if%>
                    </td>
					<td width="50%">
					<%if trim(rs("key4"))<>"" then%>
                    <%if trim(rs("qtype"))=1 then%>
                    <input type="radio" name="t<%=trim(rs("qid"))%>" value="D"> 
                    <%else%>
                    <input type="checkbox" name="t<%=trim(rs("qid"))%>" value="D">
                    <%end if%>
                    D. <%=trim(rs("key4"))%> <br> 
                    <%end if%>
                    </td>
					</tr>
					<tr>
					<td width="50%">			
                    <%if trim(rs("key5"))<>"" then%>
                    <%if trim(rs("qtype"))=1 then%>
                    <input type="radio" name="t<%=trim(rs("qid"))%>" value="E"> 
                    <%else%>
                    <input type="checkbox" name="t<%=trim(rs("qid"))%>" value="E">
                    <%end if%>
                    E. <%=trim(rs("key5"))%> <br> 
                    <%end if%>
                    </td>
					<td width="50%">
                    <%if trim(rs("key6"))<>"" then%>
                    <%if trim(rs("qtype"))=1 then%>
                    <input type="radio" name="t<%=trim(rs("qid"))%>" value="F"> 
                    <%else%>
                    <input type="checkbox" name="t<%=trim(rs("qid"))%>" value="F"> 
                    <%end if%>
                    F. <%=trim(rs("key6"))%> <br> 
                    <%end if%>					
                    </td>
					</tr>
                    </table>
				  </td> 
             </tr>
    </table>
  <%
  rs.MoveNext
  loop
  rs.close
  set rs=nothing 
  %>

<p align="center">
	<input type="submit" value="提交" name="ok">
	<input type="reset" value="重写" name="cancel">
</p>
</form>

<script language="JavaScript1.2"> 
  setTimeout("document.form1.submit()",1000*7200);/*提交时间7200秒=120分钟*/ 
</script> 

</body>
</html>
<%
conn.close
set conn=nothing
%>

⌨️ 快捷键说明

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