selecttestuser.asp
来自「网络考试系统最终备份」· ASP 代码 · 共 189 行
ASP
189 行
<!--#include file="conn.inc"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css.css">
<script language="javascript">
function userinfo(userid)
{
page="userinfo.asp?userid="+userid
window.open (page,'查看用户信息','width=300,height=300')
}
</script>
</head>
<body>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="25">
<tr>
<td width="100%"><p>当前位置：<a href="news.asp">系统管理</a> ><a href="adminremarkpaper.asp">评卷管理</a>>考试人员查询</p>
<p> </p></td>
</tr>
</table>
<table border="1" cellpadding="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%" id="AutoNumber1">
<tr>
<td width="47" align="center" bgcolor="#E1E1E1" height="20"> 序号</td>
<td width="60" align="center" bgcolor="#E1E1E1"><strong><font size="2">账号</font></strong></td>
<td width="85" align="left" bgcolor="#E1E1E1"><font size="2"><b>考生姓名</b></font></td>
<td width="119" align="left" bgcolor="#E1E1E1"><div align="center"><font size="2"><strong>所在学校</strong></font></div></td>
<td width="130" align="left" bgcolor="#E1E1E1"><div align="center"><font size="2"><strong>所在院系</strong></font></div></td>
<td width="125" align="left" bgcolor="#E1E1E1"><div align="right"><font size="2"><strong>所在班级</strong></font></div></td>
<td width="107" align="left" bgcolor="#E1E1E1">
<p align="center"><font size="2"><strong>是否参加考试</strong></font></td>
</tr>
<%
v_testid = request("radioPaperID")
'sql = "select * from test_user"
sql = "select * from test_user where Paper_ID ="&v_testid
set rs=server.createobject("adodb.recordset")
set rs=conn.execute(sql)
while not rs.eof
PageCount=PageCount+1
rs.movenext
wend
rs.close
set rs = nothing
'sql = "select * from test_user where Paper_ID = "&v_testid
sql = "select * from test_user where Paper_ID ="&v_testid
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
on error resume next
PageSize = 10
PageCount=(PageCount+PageSize-1)\PageSize
Page = CLng(Request("Page"))
'分页显示
If not Page >1 Then Page = 1
If Page > PageCount Then Page = PageCount
i=page+(page-1)*9
rs.AbsolutePage = Page
For iPage = 1 To PageSize
if not rs.eof then
v_uid = rs("User_ID")
v_isTest = rs("isTest")
usql = "select * from user_info where UserID = "&v_uid
set urs = server.CreateObject("adodb.recordset")
urs.open usql,conn,3,2
if not urs.eof then
v_account = urs("UserAccount")
v_userName= urs("UserRname")
v_classID = urs("Class_ID")
v_depID = urs("Dep_ID")
v_collegeID = urs("College_ID")
else
v_account = "xxxxx"
v_userName= "xxxxx"
v_classID = "xxxxx"
v_depID = "xxxxx"
v_collegeID = "xxxxx"
end if
if v_isTest = 0 then
v_isTest = "未参加考试"
else
v_isTest = "已参加考试"
end if
urs.close
set urs = nothing
'根据class_ID 查找 班级
csql = "select * from class_info where ClassID = "&v_classID
set crs = server.CreateObject("adodb.recordset")
crs.open csql,conn,3,2
if crs.eof then
v_className = "xxxxx"
else
v_className = crs("ClassName")
end if
crs.close
set crs = nothing
' to serarch dep_name by v_depid from table department_info
dsql = "select * from department_info where DepID ="&v_depID
set drs = server.CreateObject("adodb.recordset")
drs.open dsql,conn,3,2
if drs.eof then
v_depName = "xxxxx"
else
v_depName = drs("DepName")
end if
drs.close
set drs = nothing
'to serarch collegeName from table college_info by v_collegeID
usql = "select * from college_info where CollegeID ="&v_collegeID
set urs = server.CreateObject("adodb.recordset")
urs.open usql,conn,3,2
if urs.eof then
v_collegeName = "xxxxx"
end if
v_collegeName = urs("CollegeName")
urs.close
set urs = nothing
%>
<tr>
<td align="center" bgcolor="#E1E1E1"><%=i%></td>
<td align="center">
<a href="javascript:userinfo(<%=rs("User_ID")%>)">
<%=v_account%> </a></td>
<td align="center"><%=v_userName%> <a href="adminpaperanalysis.asp?id=<%=rs("PaperID")%>">
<a href="adminpaperanalysis.asp?id=<%=rs("PaperID")%>">
</a>
<td align="center"><%=v_collegeName%></td>
<td align="center"><%=v_depName%></td>
<td align="center"><%=v_className%></td>
<td align="center"><%=v_isTest%> </td>
</tr>
<%
end if
rs.MoveNext
If rs.EOF Then Exit For
i=i+1
Next
%>
</table>
<div ALIGN="right">
<table>
<form ACTION="<%=Myself%>?radioPaperID=<%=v_testid%>" METHOD="GET">
<tr>
<td>
<p ALIGN="right">
<%If Page <> 1 and Page <> 0 Then ' 如果不是位于第一页%>
<a href="<%=Myself%>?Page=1&radioPaperID=<%=v_testid%>">
第一页</a>
<a HREF="<%=Myself%>?Page=<%=(Page-1)%>&radioPaperID=<%=v_testid%>">
上一页</a>
<%
End If
If Page <> PageCount Then ' 如果不是位于最后一页
%>
<a HREF="<%=Myself%>?radioPaperID=<%=v_testid%>&Page=<%=(Page+1)%>">
下一页</a>
<a HREF="<%=Myself%>?Page=<%=PageCount%>&radioPaperID=<%=v_testid%>">
最后一页</a>
<% End If %> <font SIZE="2">输入页次:</font> <input NAME="Page" SIZE="3" CLASS="s01" >
<font SIZE="2">页次:</font><font COLOR="Red" SIZE="2"><%=Page%>/<%=PageCount%></font></p>
<p></td>
</tr>
</form>
</table>
<p align="left">注：点击帐 号查看该用户的详细信息</p>
</div>
</div>
</td>
</tr>
</table>
<%conn.close
set conn = nothing%>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?