📄 adminuserstatus.asp
字号:
<!--#include file="conn.asp"-->
<%
if session("adminname")="" then
response.redirect "relogin.asp"
end if
%>
<%
sql1="select * from tbkc order by kcid"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
sql4="select * from tbnianji order by nianjiid"
set rs4=server.createobject("adodb.recordset")
rs4.open sql4,conn,3,2
sql5="select * from tbbanji order by banjiid"
set rs5=server.createobject("adodb.recordset")
rs5.open sql5,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>状态查询</title>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body>
<center>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="25">
<tr>
<td width="100%">当前位置：<a href="news.asp">系统管理</a> >
<a href="adminscorechoice.asp">试卷批改</a> > <span lang="zh-cn">状态查询</span><span lang="en-us">
</span></td>
</tr>
</table>
<br>
<form method="POST" action="adminuserstatusshow.asp" target="_blank">
<table cellspacing="1" style="border-collapse: collapse" bordercolor="#799AE1" width="427" id="AutoNumber2" border="1" height="237">
<tr class="trh">
<td width="425" height="26" colspan="2">
<p align="center"><b> </b><span lang="zh-cn"><font color="#FFFFFF"><b>状 态 查 询</b></font></span></td>
</tr>
<tr>
<td width="425" height="22" bgcolor="#FFFDE8" colspan="2" bordercolor="#799AE1">
</td>
</tr>
<tr>
<td width="205" height="35" bgcolor="#FFFDE8" bordercolor="#FFFDE8">
<p align="right"><b><span lang="zh-cn">选择科目：</span></b></td>
<td width="216" height="35" bgcolor="#FFFDE8" bordercolor="#FFFDE8">
<select name=kc size=1 ><%
sql3="select * from tbkc order by kcid"
set rs3=conn.execute(sql3)
do while not rs3.eof
nid=int(rs3("kcid"))
response.write vbcrlf&"<option value='"&nid&"' style='background-color: #99CCFF' class=bg_2>"&rs3(1)&"</option>"
sql2="select * from tbpaper where kcid="&nid&" order by paperno"
set rs2=conn.execute(sql2)
do while not rs2.eof
now_id=int(rs2("paperno"))
response.write vbcrlf&"<option value='"&now_id&"' style='background-color: #F7F7F7' "
if cid=nid and sid=now_id then response.write " selected"
response.write ">-->"&rs2("info")&"</option>"
rs2.movenext
loop
rs2.close:set rs2=nothing
rs3.movenext
loop
rs3.close:set rs3=nothing
%></select></td>
</tr>
<tr>
<td width="205" height="35" bgcolor="#FFFDE8" bordercolor="#FFFDE8">
<p align="right"><b><span lang="zh-cn">年 级：</span></b></td>
<td width="216" height="35" bgcolor="#FFFDE8" bordercolor="#FFFDE8">
<select size="1" name="nianji">
<%
do while not rs4.eof
%><option value="<%=rs4("nianji")%>" ><%=rs4("nianji")%></option>
<%
rs4.movenext
loop %>
</select>
</td>
</tr>
<tr>
<td width="205" height="35" bgcolor="#FFFDE8" bordercolor="#FFFDE8">
<p align="right"><b><span lang="zh-cn">班 级：</span></b></td>
<td width="216" height="35" bgcolor="#FFFDE8" bordercolor="#FFFDE8">
<select size="1" name="banji">
<%
do while not rs5.eof
%><option value="<%=rs5("banji")%>" ><%=rs5("banji")%></option>
<%
rs5.movenext
loop %>
</select></td>
</tr>
<tr>
<td width="425" height="10" bgcolor="#FFFDE8" colspan="2" bordercolor="#799AE1">
</td>
</tr>
<tr>
<td width="425" height="34" bgcolor="#FFFDE8" colspan="2" bordercolor="#799AE1">
<p align="center">
<input type="submit" value="查 询" name="I3" class="s02">
<INPUT class="s02" onclick="window.location='adminscorechoice.asp'" type=button value="返 回" name=close></td>
</tr>
</table>
<p>
</p>
<p>
</p>
</form>
<p>
</p>
</center></body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -