📄 selectpaper.asp
字号:
<!--#include file="conn.asp"-->
<%
if session("username")="" then
response.redirect "relogin.asp"
end if
dim userflag
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>选择试卷</title>
<link rel="stylesheet" type="text/css" href="css.css">
<script language="javascript">
function exam(id)
{
page="kaoshi.asp?paperno="+id
window.open (page,'开始考试','width=800,height=550,resizable=1,scrollbars=1')
}
function FP_swapImg() {//v1.0
var doc=document,args=arguments,elm; for(var n=2; n<args.length; n+=2) {
elm=FP_getObjectByID(args[n]); if(elm) { if(!doc.$imgSwaps)doc.$imgSwaps=new Array();
doc.$imgSwaps[doc.$imgSwaps.length]=elm; elm.$src=elm.src; elm.src=args[n+1]; } }
}
function FP_preloadImgs() {//v1.0
var d=document,a=arguments; if(!d.FP_imgs) d.FP_imgs=new Array();
for(var i=0; i<a.length; i++) { d.FP_imgs[i]=new Image; d.FP_imgs[i].src=a[i]; }
}
function FP_getObjectByID(id,o) {//v1.0
var c,el,els,f,m,n; if(!o)o=document; if(o.getElementById) el=o.getElementById(id);
if(o.layers) c=o.layers; else if(o.all) el=o.all[id]; if(el) return el;
if(o.id==id || o.name==id) return o; if(o.childNodes) c=o.childNodes; if(c)
for(n=0; n<c.length; n++) { el=FP_getObjectByID(id,c[n]); if(el) return el; }
f=o.forms; if(f) for(n=0; n<f.length; n++) { els=f[n].elements;
for(m=0; m<els.length; m++){ el=FP_getObjectByID(id,els[n]); if(el) return el; } }
return null;
}
</script>
</head>
<body onload="FP_preloadImgs( /*url*/'images/button3B.jpg',/*url*/'images/button3C.jpg',/*url*/'images/button40.gif',/*url*/'images/button42.gif')">
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="100%" height="30" style="border-left-style: solid; border-left-width: 0; border-right-style: solid; border-right-width: 0; border-top-style: solid; border-top-width: 0; border-bottom: 1px solid #000000">
<img border="0" src="images/xzkm.gif"></td>
</tr>
</table>
<%
username=request.cookies("username")
kcid=request("kcid")
sql1="SELECT * FROM tbscore WHERE username='"&username&"' and kcid="&kcid
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
sql3="SELECT * from tbkc where kcid="&kcid
set rs3=server.createobject("adodb.recordset")
rs3.open sql3,conn,3,2
'---是否有考试科目权限
if rs1.eof then
%><table border="0" cellspacing="0" bordercolor="#111111" width="480">
<tr>
<td width="100%" height="30">
<p align="center"> 现在您还没有需要参加考试的科目！ </td>
</tr>
</table>
<%
else
i=1
%><br>
<center>
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#799AE1" id="AutoNumber2" width="468" cellpadding="0" height="76">
<tr class="trh">
<td height="25" width="34" ></td>
<td width="137" height="25">
<p align="center"><font color="#FFFFFF"> <b><%=rs3("kcm")%></b></font></td>
<td width="85" height="25">
<p align="center"><font color="#FFFFFF"><b>考试时间</b></font></td>
<td width="88" height="25">
<p align="center"><font color="#FFFFFF">限时</font></td>
<td width="112" height="25">
<p align="center"><font color="#FFFFFF"><b>操作</b></font></td>
</tr>
<%
'----列出考试科目
do while not rs1.eof
paperno=rs1("paperno")
sql4="SELECT * from tbpaper where kcid="&kcid&" and paperno="&paperno
set rs4=server.createobject("adodb.recordset")
rs4.open sql4,conn,3,2
userflag=0
%>
<tr class="trh1">
<td align="center" height="48" width="34" bgcolor="#FFFDE8"><%=i%></td>
<td bgcolor="#FFFDE8" width="137" height="48">
<p align="center"><font color="#0000FF"><%=rs4("info")%></font><br>出卷人：<%=rs4("adminname")%></td>
<td bgcolor="#FFFDE8" width="85" height="48"><center><%=rs4("stime")%><br>到<br><%=rs4("etime")%></center></td>
<td bgcolor="#FFFDE8" width="88" height="48"><center><%=rs4("paperdatetime")%>分钟</center></td>
<td bgcolor="#FFFDE8" width="112" height="48"><center><%
'----判断是否考过
sql2="SELECT * from tbscore where username='"&username&"' and kcid="&kcid&" and paperno="&paperno
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,3,2
dt=date+time
if dt<rs4("stime") then
%>考试时间没有到<%
else
if dt>rs4("etime") then
sqlc="SELECT * from tbscore where username='"&username&"' and kcid="&kcid&" and paperno="&paperno
set rsc=server.createobject("adodb.recordset")
rsc.open sqlc,conn,3,2
if not rsc.eof then
rsc("isexam")=0
rsc.update
end if
rsc.close
%>考试时间已经过了<%
else
if not rs2.eof then
if rs2("isexam")<>1 then
%><a href="javascript:exam(<%=paperno%>)"><img border="0" id="img1" src="images/button3A.jpg" height="20" width="100" alt="进入考场" onmouseover="FP_swapImg(1,0,/*id*/'img1',/*url*/'images/button3B.jpg')" onmouseout="FP_swapImg(1,0,/*id*/'img1',/*url*/'images/button3A.jpg')" onmousedown="FP_swapImg(1,0,/*id*/'img1',/*url*/'images/button3C.jpg')" onmouseup="FP_swapImg(1,0,/*id*/'img1',/*url*/'images/button3B.jpg')" fp-style="fp-btn: Embossed Capsule 1; fp-font: 宋体; fp-font-style: Bold; fp-orig: 0" fp-title="进入考场"></a><%
else
response.write "您已经考过了"
end if
else
response.write "您没有考试权限"
userflag=1
end if
end if
end if
%></td>
</tr>
<%
rs4.close
rs2.close
i=i+1
rs1.movenext
loop
end if
%>
</table>
</center>
<p align="center"><a href="selectsubject.asp">
<img border="0" id="img2" src="images/button3E.gif" height="22" width="70" alt="返 回" onmouseover="FP_swapImg(1,0,/*id*/'img2',/*url*/'images/button40.gif')" onmouseout="FP_swapImg(1,0,/*id*/'img2',/*url*/'images/button3E.gif')" onmousedown="FP_swapImg(1,0,/*id*/'img2',/*url*/'images/button42.gif')" onmouseup="FP_swapImg(1,0,/*id*/'img2',/*url*/'images/button40.gif')" fp-style="fp-btn: Metal Rectangle 1; fp-font: 宋体; fp-font-style: Bold; fp-font-size: 11; fp-transparent: 1; fp-proportional: 0" fp-title="返 回"></a></p>
<p align="center"> </p>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -