?? adminprintfirst.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>新建網頁 1</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="adminprint.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="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="pai">
<option selected value="1">用戶名</option>
<option value="2">成 績</option>
</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 + -