📄 exam_online.asp

📁 网络考试系统最终备份
💻 ASP
字号:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="conn.inc"-->
<html>
<head>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body>
<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/selectsubject.jpg"></td>
  </tr>
</table>
<%
'本程序根据 用户id 获取 他要参加考试的试卷ID 由试卷ID 找到对应的科目id 然后找到对应的科目名称
response.cookies("downloadok")=""

sql1="select * from test_user where isTest<=0 and User_ID="& request.cookies("userid")
'sql1="select * from test_user where isTest=0"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
if rs1.eof then
%>
<table border="0" cellspacing="0" bordercolor="#111111" width="480">
  <tr>
    <td width="100%" height="30">&nbsp;现在还没有需要参加考试的科目！ </td>
  </tr>
</table>
<%
else
i=1
%>
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" id="AutoNumber2" width="686" cellpadding="0">
  <tr>
    <td  height="22" width="20" bgcolor="#E1E1E1"></td>
    <td width="120" align="center" bgcolor="#E1E1E1"><strong>试卷编号</strong></td>
    <td width="120" align="center" bgcolor="#E1E1E1"><strong>试卷名称</strong></td>
    <td width="132" align="center" bgcolor="#E1E1E1"><div align="center">&nbsp;<b>科目名称</b></div></td>
    <td bgcolor="#E1E1E1" width="110">
    <p align="center"><b>考试时间</b></td>
    <td bgcolor="#E1E1E1" width="80"><div align="center"><strong>监考老师</strong></div></td>
    <td bgcolor="#E1E1E1" width="80">
    <p align="center"><b>操作</b></td>
  </tr>
  <%
 
do while not rs1.eof
 
 
 if not rs1.eof then
 v_paperid = rs1("Paper_ID")
sql = "select * from paper_info where PaperID ="&v_paperid
   set rs=server.createobject("adodb.recordset")
   rs.open sql,conn,3,2
   v_SubID= rs("Sub_ID") 
   v_paperName=rs("PaperName")
   v_examTime = rs("ExamTime")

   v_monTeacher = rs("Monitor_User_ID")
   rs.close
   set rs = nothing
 
 
   sql = "select * from subject_info where SubID="&v_SubID
   set rs=server.createobject("adodb.recordset")
   rs.open sql,conn,3,2
   v_subName = rs("SubName")
   rs.close
   set rs = nothing
  
  
  sql = "select * from user_info where UserID="&v_monTeacher
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  teacherName = rs("UserRName")
  rs.close
  set rs = nothing
  
  

%>
  <tr>
    <td  nowrap align="center" height="20" width="20" bgcolor="#E1E1E1"><%=i%></td>
    <td   nowrap align="center" bgcolor="#FFFFFF"><p align="left"><%=v_paperid%></td>
    <td  nowrap align="center" bgcolor="#FFFFFF"><%=v_paperName%></td>
    <td  nowrap  align="center" bgcolor="#FFFFFF">
    <p align="center"><%=v_subName%></td>
    <td  nowrap  bgcolor="#FFFFFF">
    <p align="center">&nbsp;<%=v_examTime%>小时</td>
    <td  nowrap  align="center" bgcolor="#FFFFFF"><%=teacherName%>&nbsp;</td>
    <td   nowrap align="center" bgcolor="#FFFFFF">
        <p align="center"><a href="ruleexam.asp?PaperID=<%=v_paperid%>">进入考场</a></td>
  </tr>
  <%

rs1.movenext
i=i+1
end if
loop


rs1.close()
set rs1 = nothing
%>
</table>
<%
end if
%>
</body>
</html>
⌨️ 快捷键说明

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