📄 adminstuinfo.asp
字号:
<!--#include file="conn.asp"-->
<%
IF Session("Administrator")="" and Session("Administrator1")="" Then
Response.Redirect "adminlogon.asp"
End IF
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<!--#include file="inc/css.asp"-->
<title><%=WebSiteName%></title>
</head>
<body topmargin="0" background="images/bg.gif">
<!--#include file="admintop.asp"-->
<div align="center">
<center>
<table border="0" width="755" cellspacing="0" cellpadding="0">
<tr>
<td width="189" style="background-color: #FFFFFF; border-left: 1 solid #000000; border-top: 1 solid #000000; border-bottom: 1 solid #000000" valign="top">
<!--#include file="aleft.asp"-->
</td>
<td width="562" style="background-color: #FFFFFF; border: 1 solid #000000" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" height="25" bgcolor="#EDEDED" style="border-bottom: 1 solid #000000;">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<p align="center">学生信息管理</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" valign="top">
<div align="center">
<table border="0" width="90%" cellspacing="0" cellpadding="0">
<center>
</center>
<center>
<center>
</center>
</center>
<form action="" method="post"></form>
<center>
</center>
<center>
</center>
<tr>
<td width="100%" height="8">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="101%" height="5">
</td>
</tr>
<tr>
<form action="" method="post">
<td width="101%">
<select size="1" name="ClassID" onChange="submit()" style="background-attachment: scroll; background-repeat: repeat; font-size: 9pt; height: 23; width: 87; background-color: #FFFFFF; border: 1 solid #000000; background-position: none 0%">
<option value="">班级名称</option>
<%
SQL="Select * From 班级设置"
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Connstr,1,1
Do While Not RS.Eof
%>
<option value="<%=RS("ID")%>"><%=RS("班级名称")%></option>
<%
RS.MoveNext
Loop
%>
</select> </td>
</tr>
</form>
<tr>
<td width="101%" align="center" height="5">
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" height="8">
<table border="0" cellspacing="1" cellpadding="0">
<tr>
<%
ClassID=Request.Form("ClassID")
IF Session("Administrator1")<>"" Then
ClassID=Session("Administrator1")
End IF
SQL="Select * From 注册信息 Where 班别=" & CInt(ClassID)
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Connstr,1,1
I=1
Do While Not RS.EOF
%>
<td width="80" align="center" height="20">[ <a href="adminstuinfoedit.asp?stuid=<%=RS("ID")%>"><%=RS("姓名")%></a>
]</td>
<%
RS.MoveNext
If I mod 6 =0 Then
Response.Write "</TR><TR>"
End IF
I=I+1
Loop
%>
</tr>
</table>
</td>
</tr>
<center>
</center>
<center>
</center>
<tr>
<td width="100%" height="8">
</td>
</tr>
<center>
</table>
</center>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<!--#include file="bottom.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -