📄 trybook.asp
字号:
<!--#include file="include/conn.asp"-->
<!--#include file="safe.asp" -->
<%
if Session("stuFlag")<>1 then
server.Transfer("default.asp")
response.End()
end if
%>
<%
dim PD_DA(40),XZ_DA(60)
tijiao = request("tijiao")
%>
<html>
<head>
<script language="JavaScript">
function getCookieVal (offset)
{
var endstr = document.cookie.indexOf (";", offset);
if (endstr == -1)
endstr = document.cookie.length;
return unescape(document.cookie.substring(offset, endstr));
}
function GetCookie (name)
{
var arg = name + "=";
var alen = arg.length;
var clen = document.cookie.length;
var i = 0;
while (i < clen)
{
var j = i + alen;
if (document.cookie.substring(i, j) == arg)
return getCookieVal (j);
i = document.cookie.indexOf(" ", i) + 1;
if (i == 0)
break;
}
return null;
}
function SetCookie (name, value)
{
var argv = SetCookie.arguments;
var argc = SetCookie.arguments.length;
var expires = (2 < argc) ? argv[2] : true;
var path = (3 < argc) ? argv[3] : true;
var domain = (4 < argc) ? argv[4] : true;
var secure = (5 < argc) ? argv[5] : true; //安全模式生效
document.cookie = name + "=" + escape (value) +
((expires == null) ? "" : ("; expires=" + expires.toGMTString())) +
((path == null) ? "" : ("; path=" + path)) +
((domain == null) ? "" : ("; domain=" + domain)) +
((secure == true) ? "; secure" : "");
}
function ResetCounts(name)
{
visits = 0;
SetCookie(expdate , "/", true, true);
location.reload();
}
</script>
<script language="JavaScript">
var expdate = new Date();
var visits;
expdate.setTime(expdate.getTime() + (24*60*60 * 1000)); //COOKIES超期时间设置,此处为1天
if(!(visits = GetCookie("visits")))
visits = 0;
visits++;
SetCookie(expdate, "/", true, true);
</script>
<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 margin="0">
<div align="center" style="font-size:24px; font-weight:bold; color:#FF0000; letter-spacing:5px; background-color:#eff7ff; height:30px; valign:center;"> 新新驾校在线考试</div>
<div align="right">考生姓名：<%= Session("NameT_Stu") %> 考号：<%= Session("NumT_Stu") %> <a href="default.asp"><font color="#0000FF">退出登录</font></a></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"></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" target="_blank">
<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 tiku where c='无'"
end if
if t_type = 2 then
trySql="select * from tiku where c<>'无'"
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
j = i + 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&". "&rs("TRY_SUBJECT")&"<br>")
response.Write(" <input type=radio name=PD"&q_num&" value=A>"&rs("a")&"<br>")
response.Write(" <input type=radio name=PD"&q_num&" value=B>"&rs("b")&"<br>")
PD_DA(j) = Trim(rs("TRY_KEY"))
response.Write("<input name=PD_DA"&q_num&" type=hidden value="&PD_DA(j)&">")
elseif t_type = 2 then
response.Write(q_num&". "&rs("TRY_SUBJECT")&"<br>")
response.Write(" <input type=radio name=XZ"&q_num&" value=A>"&rs("a")&"<br>")
response.Write(" <input type=radio name=XZ"&q_num&" value=B>"&rs("b")&"<br>")
response.Write(" <input type=radio name=XZ"&q_num&" value=C>"&rs("c")&"<br>")
XZ_DA(j) = Trim(rs("TRY_KEY"))
response.Write("<input name=XZ_DA"&q_num&" type=hidden value="&XZ_DA(j)&">")
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分，点击选项中的<input type='radio'>选择正确答案</font><br><br>"
Call DisRndRecord(40,t_count,1) '调用函数该位置显示记录 %>
<br>
<% response.write("<br>二. <b>选择</b><font color=red> 注：每题1分，点击选项中的<input type='radio'>选择正确答案</font><br><br>")
Call DisRndRecord(60,t_count,2) '调用函数该位置显示记录 %><br>
<center>
<p class="Xsmall"> [ <a href="#top">返回顶部</a> ]</p>
<% if tijiao <> "ok" then %>
<input name="tijiao" type="hidden" id="tijiao" value="ok">
<input name="submitS" type="button" value="提 交" class="Sborder" onclick=javascript:window.confirm('你真的要提交试卷吗？')?window.tryForm.submit():window.location.href('#bottom')>
<% else %>
<input name="tijiao" type="hidden" id="tijiao" value="no">
<input name="submitS" type="button" value="重新考试" class="Sborder" onclick=javascript:window.confirm('你真的要重新考试吗？')?window.tryForm.submit():window.location.href('#')>
<% end if %>
</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"> </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><br>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -