📄 adminprint.asp

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

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

%>
<%

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

if pai=1 then 
flag="tbuser.username"
end if 

if pai=2 then 
flag="tbscore.score desc"
end if 

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 tbkc.kcid, tbkc.kcm, tbuser.username,tbuser.tname, tbuser.nianji, tbuser.banji, tbscore.score FROM (tbkc INNER JOIN tbscore ON tbkc.kcid = tbscore.kcid) INNER JOIN tbuser ON tbscore.username = tbuser.username where tbkc.kcid="&kcid&" and nianji='"&nianji&"' and banji='"&banji&"' and paperno="&paperno&"  ORDER BY "&flag&";"
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="372" 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="80" height="27">
      <p align="center"><span lang="zh-cn">成绩</span></td>
    </tr>
    
   <%
   i=1
 For iPage = 1 To rs.recordcount %> 
    <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="80" height="28"><center><%=rs("score")%></center></td>
    </tr>
 <% 
rs.MoveNext
If rs.EOF Then Exit For
i=i+1
Next





%>   
    
  </table>
</div>
<%

end if
else

response.redirect "adminprintfirst.asp"
end if

%>
</body>

</html>
⌨️ 快捷键说明

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