paper_record.asp
来自「网络考试系统最终备份」· ASP 代码 · 共 145 行
ASP
145 行
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="conn.inc"-->
<html>
<style type="text/css">
<!--
.style1 {
color: #FF0000;
font-weight: bold;
font-size: 15pt;
}
-->
</style>
<head>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body>
<table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" id="AutoNumber2" bgcolor="#99CCFF" width="100%">
<tr>
<form name="searchscoreform" method="POST" action="paper_record.asp">
<td><select size="1" name="subject">
<option selected>--选择科目--</option>
<% sql="select * from subject_info"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
do while not rs.eof %>
<option value="<%=rs("SubID")%>"><%=rs("SubName")%></option>
<% rs.movenext
loop
rs.close %>
</select>
<input type="submit" value="查 询" name="B3" class="s02"></td>
</form>
</tr>
</table>
<p></p>
<%
'本程序根据 用户id 获取 他要参加考试的试卷ID 由试卷ID 找到对应的科目id 然后找到对应的科目名称
response.cookies("downloadok")=""
sql1="select * from test_user where isTest=1 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"> 你还没有参加考试！ </td>
</tr>
</table>
<%
else
i=1
%>
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" id="AutoNumber2" width="769" cellpadding="0">
<tr>
<td nowrap height="22" width="20" bgcolor="#E1E1E1"></td>
<td nowrap width="120" align="center" bgcolor="#E1E1E1"><strong>试卷编号</strong></td>
<td nowrap width="120" align="center" bgcolor="#E1E1E1"><strong>试卷名称</strong></td>
<td nowrap width="132" align="center" bgcolor="#E1E1E1"><div align="center"> <b>科目名称</b></div></td>
<td nowrap bgcolor="#E1E1E1" width="110">
<p align="center"><b>考试时间</b></td>
<td nowrap bgcolor="#E1E1E1" width="80"><div align="center"><strong>监考老师</strong></div></td>
<td nowrap bgcolor="#E1E1E1">
<p align="center"><b>操作</b></td>
</tr>
<%
sid = request("subject")
do while not rs1.eof
if not rs1.eof then
v_paperid = rs1("Paper_ID")
sql = "select * from paper_info where PaperID ="&v_paperid
if sid <> "" and sid <> "--选择科目--" then
sql = "select * from paper_info where Sub_ID = "&sid&" and PaperID ="&v_paperid
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
if not rs.eof then
v_SubID= rs("Sub_ID")
v_paperName=rs("PaperName")
v_examTime = rs("ExamTime")
v_monTeacher = rs("Monitor_User_ID")
else
response.End()
end if
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
'session("test") = v_paperid
%>
<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"> <%=v_examTime%>小时</td>
<td nowrap align="center" bgcolor="#FFFFFF"><%=teacherName%> </td>
<td align="center" nowrap bgcolor="#FFFFFF"><a href="error.asp?v_paperID=<%=v_paperid%>"></a>
<p align="center"><a href="paper_record_detail.asp?v_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 + =
减小字号Ctrl + -
显示快捷键?