📄 adminuserstatusshow.asp

📁 该系统测试用户信息主要由数据库直接输入
💻 ASP
字号:

<!--#include file="conn.asp"-->
<%
  if session("adminname")="" then
  response.redirect "relogin.asp"
  end if

%>
<%

kcid=request("kc")
nianji=request("nianji")
banji=request("banji")
 
paperno=request("kc")

 sql2="select * from tbpaper where paperno="&paperno
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,3,2

if not rs2.eof  then 
kcid=rs2("kcid")

sql1="select * from tbkc where kcid="&kcid
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2

sql="SELECT * FROM tbuser where   nianji='"&nianji&"' and banji='"&banji&"' order by username"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
%>

<html>

<head>
<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><%=nianji%>级—<%=banji%>—<%=rs2("info")%>（<%=rs1("kcm")%>）考试状态显示</title>
 <link rel="stylesheet" type="text/css" href="css.css">

  
</head>
<body style="text-align: center">
<center> 

<br><h4><%=nianji%>级—<%=banji%>—<%=rs2("info")%>（<%=rs1("kcm")%>）考试状态显示</h4>
<br>
 
</center>

<%if rs.eof then 
response.write  "<center><h4><font color=red>没有用户</font></h4></center>"
else
%>
<div align="center">
  <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="455" height="59">
    <tr>
      <td width="60" height="27">
      <p align="center"><span lang="zh-cn">序号</span></td>
      <td width="94" height="27">
      <p align="center"><span lang="zh-cn">准考证号</span></td>
      <td width="94" height="27">
      <p align="center"><span lang="zh-cn">姓名</span></td>
 
      <td width="71" height="27">
      <p align="center"><span lang="zh-cn">成绩</span></td>
 
      <td width="62" height="27">
      <p align="center"><span lang="zh-cn">状态</span></td>
 
      <td width="62" height="27">
      <p align="center"><span lang="zh-cn">是否批改</span></td>
    </tr>
    
   <%
   i=1
 For iPage = 1 To rs.recordcount 
 
 sql2="select * from tbscore  where username='"&rs("username")&"' and paperno="&paperno
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,3,2
 %> 
    <tr>
      <td width="60" height="28"><center><%=i%></center></td>
      <td width="94" height="28"><center><%=rs("username")%></center></td>
      <td width="94" height="28"><center><%=rs("tname")%></center></td>
 
      <td width="71" height="28"><center><%
if rs2.eof then 
response.write "无"	
else  
	response.write rs2("score")
end if  %></center></td>
     <td width="62" height="28"><center> 
      
      <p><%
if rs2.eof then 
response.write "未使用"	
else 
  	if rs2("isexam")=1 then 
	response.write "已考完"
	else
	response.write "未考试"
	end if
end if  %></p>
      
      </center></td>
 <td width="62" height="28"><center> 
      
      <p><%
if rs2.eof then 
response.write "未批改"	
else 
  	if rs2("isadmin")=1 then 
	response.write "已改完"
	else
	response.write "未批改"
	end if
end if  %></p>
      
      </center></td>

    </tr>
 <% 
rs.MoveNext
If rs.EOF Then Exit For
i=i+1
Next





%>   
    
  </table>
</div>
<%end if

else

response.redirect "adminuserstatus.asp"
end if
%>
</body>

</html>
⌨️ 快捷键说明

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