?? adminprint.asp
字號(hào):
<!--#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%>級(jí)—<%=banji%>—<%=rs2("info")%>（<%=rs1("kcm")%>）考試成績(jī)</title>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body style="text-align: center">
<center>
<br><h4><%=nianji%>級(jí)—<%=banji%>—<%=rs2("info")%>（<%=rs1("kcm")%>）考試成績(jī)</h4>
<br>
</center>
<%if rs.eof then
response.write "<center><h4><font color=red>沒(méi)有用戶</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">序號(hào)</span></td>
<td width="94" height="27">
<p align="center"><span lang="zh-cn">準(zhǔn)考證號(hào)</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">成績(jī)</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>?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -