📄 report_sjuser.asp
字号:
<!--#include file="conn.asp"-->
<%
dim page
dim ipage
dim i
dim sql1
dim rs1
dim str
str=request("testid")
%>
<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="../DEFAULT.CSS">
<script language="JavaScript1.2" src="../js/lock.js"></script>
</head>
<body>
<%
sql="select * from exam_testuser where havetest=1 and examid='"&request("examid")&"'"
rs.open sql,conn,3,2
if not rs.eof then
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#007CD0" width="100%" id="AutoNumber2" bgcolor="#F1F1F1">
<tr>
<td class="border_blue" colspan="9">共有 <%=rs.recordcount%> 人员参加了
<%=request("testid")%> 的考试</td>
</tr>
<tr>
<td align="center" class="border">序号</td>
<td align="center" class="border">证件号码</td>
<td align="center" class="border">姓名</td>
<td align="center" class="border">部门</td>
<td align="center" class="border">单位</td>
<td align="center" class="border">职务</td>
<td align="center" class="border">级别</td>
<td align="center" class="border">岗位</td>
<td align="center" class="border">考试记录</td>
</tr>
<% i=1
on error resume next
rs.PageSize =20
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
rs.AbsolutePage = Page
For iPage = 1 To rs.PageSize
sql1="select * from cadre_info where userid="&rs("userid")
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2 %>
<tr>
<td align="center"><%=i%> </td>
<td align="center"><%=rs1("userid")%> </td>
<td align="center"><%=rs1("username")%> </td>
<td align="center"><%=rs1("department")%> </td>
<td align="center"><%=rs1("office")%> </td>
<td align="center"><%=rs1("duties")%> </td>
<td align="center"><%=rs1("rank")%> </td>
<td align="center"><%=rs1("post")%> </td>
<td align="center"><%=rs("havetest")%> </td>
</tr>
<% rs1.close
i=i+1
rs.MoveNext
If rs.EOF Then Exit For
Next
%>
</table>
<form ACTION="<%=Myself%>?testid=<%=request("testid")%>" METHOD="GET">
<table width="100%" style="border-collapse: collapse" bordercolor="#007CD0" cellpadding="0" cellspacing="0" border="1" class="withborder" bgcolor="#F1F1F1">
<tr>
<td>
<p ALIGN="right"><%If Page <> 1 Then ' 如果不是位于第一页%>
<a href="<%=Myself%>?Page=1&testid=<%=request("testid")%>">第一页</a>
<a HREF="<%=Myself%>?Page=<%=(Page-1)%>&testid=<%=request("testid")%>">上一页</a>
<% End If
If Page <> rs.PageCount Then ' 如果不是位于最后一页
%> <a HREF="<%=Myself%>?Page=<%=(Page+1)%>&testid=<%=request("testid")%>">
下一页</a>
<a HREF="<%=Myself%>?Page=<%=rs.PageCount%>&testid=<%=request("testid")%>">
最后一页</a> <% End If %> 输入页次:</font><input NAME="Page" CLASS="s01"> 页次:<font COLOR="Red"><%=Page%>/<%=rs.PageCount%></font> </td>
</tr>
</table>
</form>
<%
else
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000" width="100%" bgcolor="#F1F1F1">
<tr>
<td width="100%" class="border">
<p align="center">所有人员参加考试</td>
</tr>
</table>
<%
end if
%>
<p align="center"><input type="button" value="返 回" name="B3" class="s02" onclick="javascript:history.back(1)"></p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -