📄 trybook_bak.asp
字号:
<!--#include file="safe.asp" -->
<!--#include file="include/conn.asp"-->
<%
if Session("stuFlag")<>1 then
server.Transfer("default.asp")
end if
%>
<%
'TRY_SUBJECTID－－－－－－－－－－－－－
set rsT=server.CreateObject("ADODB.RecordSet")
trySql="select * from tryinfo where ID="&Session("selectTryId")
rsT.open trySql,Conn
TryName=rsT("DB_EXAMNAME")
TryNum=rsT("DB_TRYNUM")
Session("tryTime")=rsT("DB_TRYTIME")
TryDateName=trim(rsT("DB_NAME"))
'随机抽卷
dim TryRndNum
'TRY_SUBJECT数目
dim PdNum,DxNum,DdxNum
randomize
TryRndNum=Int(Rnd*TryNum)+1
n=1
'数据表名
Session("tryT")=TryDateName
%>
<!--#include file="include/ChangeTime.asp" -->
<html>
<head>
<title>::::欢迎光临新新驾校在线考试系统:::::</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<META content=fixty设计 name=description>
<META content="fixty@163.com" name=author>
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
-->
</style></head>
<body onLoad="ChangeTime()">
<div align="center" class="Xbig"><font color=blue><b>
<%
response.write(TryName)
%>
</b></font></div><div align="center" class="Xhsmall">
<%
TimeLogin=time()
TimeSubmit=DateAdd("n", TimeGet, TimeLogin)
response.Write("登录时间："&TimeLogin&" 交卷时间："&TimeSubmit)
%>
</div>
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="49" height="35" background="images/HOME_BG3.GIF"> </td>
<td height="35" background="images/HOME_BG9.GIF"><div align="center"><span class="Xsmall"><font color=blue>
请不要点击刷新、后退等违纪按钮（<img src="images/forget_1.gif" width="14" height="14" align="absmiddle">
导致无法做题,一律以零分提交），准时交卷（<img src="images/forget_1.gif" width="14" height="14" align="absmiddle">
超时以零分提交） </font></span></div></td>
<td width="13" height="1"><img src="images/home_bg8.gif" width="13" height="35"></td>
</tr>
<tr>
<td width="49" background="images/HOME_BG1.GIF"> <br> </td>
<td background="images/home_bg10.gif" style="padding-left:20px; padding-right:20px;">
<form name="tryForm" method="post" action="listScore.asp">
<link href="css/Style.css" rel="stylesheet" type="text/css">
<% DIM Appeared
'#DisRndRecord(DisNum,rsBound)
'#参数DisNum：显示数量
'#参数rsBound：随机数产生范围
Sub DisRndRecord(DisNum,rsBound,t_type)
set rs=server.CreateObject("ADODB.RecordSet")
if t_type = 1 then
trySql="select * from "&Session("tryT")&" where TRY_TYPE='1'"
end if
if t_type = 2 then
trySql="select * from "&Session("tryT")&" where TRY_TYPE='2'"
end if
rs.open trySql,Conn,1,1
t_count=rs.recordcount
DIM i,ThisRnd
If rsBound <DisNum Then DisNum = rsBound '记录总数小于要抽取记录条数的情况
q_num=0
For i = 0 To DisNum-1
q_num=q_num+1
ThisRnd = GetRnd(rsBound) '取得一个不重复的随机数
rs.Move(ThisRnd)
if rs.eof or rs.bof then
response.Write("<br>Draw out record fail!")
response.End()
end if
if t_type = 1 then
response.Write(q_num&". <input name=PdCb type=checkbox value=1>"&rs("TRY_SUBJECT")&"<br>")
elseif t_type = 2 then
response.Write(q_num&". "&rs("TRY_SUBJECT")&"<br>")
response.Write(" <input type=radio name=DxRb"&q_num&" value=A> A."&rs("a")&"<br>")
response.Write(" <input type=radio name=DxRb"&q_num&" value=B> B."&rs("b")&"<br>")
response.Write(" <input type=radio name=DxRb"&q_num&" value=C> C."&rs("c")&"<br>")
response.Write(" <input type=radio name=DxRb"&q_num&" value=D> D."&rs("d")&"<br>")
end if
rs.Move(-ThisRnd)
Next
rs.close
set rs=nothing
End Sub
' ’# 函数GetRnd(bound)返回一个不重复的随机数字
' ’#参数bound：随机范围
Function GetRnd(bound)
DIM ranNum
Randomize()
ranNum=int(bound*rnd)
If Instr(Appeared,"["&ranNum&"]") Then '产生的随机数是否出现过
ranNum = getRnd(bound)
End If
Appeared = Appeared & "["&ranNum&"]" '记录已出现的随机数
GetRnd = ranNum
End Function
%>
<% response.write "一. <b>判断题</b><font color=red> 注：每题1分，对的打勾、错的不要打勾</font><br><br>"
Call DisRndRecord(10,t_count,1) '调用函数该位置显示记录 %>
<br>
<% response.write("<br>二. <b>单选择</b><font color=red> 注：每题1分，对的打勾、错的不要打勾</font><br><br>")
Call DisRndRecord(10,t_count,2) '调用函数该位置显示记录 %><br>
<center><p class="Xsmall"><input name="ListFlagCb" type="checkbox" value="1">
显示成绩 <font color=red>（若显示成绩请打勾）</font> [ <a href="#top">GO TOP</a> ]</p>
<input name="submitS" type="button" value="提 交" class="Sborder" onclick=javascript:window.confirm('你真的要提交试卷吗？')?window.tryForm.submit():window.location.href('#')>
</center>
</form>
</td>
<td width="13" background="images/home_bg7.gif"> </td>
</tr>
<tr>
<td width="49" height="42" background="images/HOME_BG2.GIF"> </td>
<td height="22" background="images/home_bg10.gif" bgcolor="#FFFFFF"><div align="center"><span class="Xsmall"><font color="#FF0000">请不要点击刷新、后退等违纪按钮（<img src="images/forget_1.gif" width="14" height="14" align="absmiddle">
导致无法做题,一律以零分提交），准时交卷（<img src="images/forget_1.gif" width="14" height="14" align="absmiddle">
超时以零分提交）</font></span></div></td>
<td width="13" height="22" background="images/HOME_BG7.GIF"> </td>
</tr>
<tr>
<td height="12" background="images/HOME_BG4.GIF"> </td>
<td background="images/HOME_BG5.gif"> </td>
<td background="images/HOME_BG6.GIF"> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -