📄 classmanage.asp
字号:
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rsGrade1_numRows = rsGrade1_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index
Repeat2__numRows = -1
Repeat2__index = 0
rsGrade2_numRows = rsGrade2_numRows + Repeat2__numRows
%>
<%
Dim Repeat3__numRows
Dim Repeat3__index
Repeat3__numRows = -1
Repeat3__index = 0
rsGrade3_numRows = rsGrade3_numRows + Repeat3__numRows
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>学生信息查询</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2600.0" Name=GENERATOR>
<link href="home.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
function check()
{
if(document.AddClass.ClassName.value=="")
{
alert("你还没有填班级名称！");
document.AddClass.ClassName.focus();
return false;
}
if(document.AddClass.ClassID.value=="")
{
alert("你还没有填班级编号！");
document.AddClass.ClassID.focus();
return false;
}
if(isNaN(document.AddClass.ClassID.value))
{
alert("班级编号必须是数字！");
document.AddClass.ClassID.select();
document.AddClass.ClassID.focus();
return false;
}
if(document.AddClass.ClassID.value.length<2)
{
alert("班级编号位数不足2位，与学号规则不符合！");
document.AddClass.ClassID.focus();
return false;
}
}
</script>
</HEAD>
<BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0>
<%
if Request("Err")<>"" then response.write "<script language='JavaScript'>alert('班级名称或班级编号与数据库中已有记录重复');</script>"
%>
<!--#include file="InfoManage_top.asp" -->
<TABLE width="760" border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD width=1 background="images/dotLine_h.gif"><IMG src="images/shim(1).gif" width=1></TD>
<TD Width="100" align="center" bgcolor="#EEEEEE"> </TD>
<td width="10" bgcolor="#F2FBF2"></td>
<TD bgcolor="#F2FBF2"><img src="images/ClassManage_Title.GIF" width="500" height="60"><br>
<form name="AddClass" onSubmit="return check()" action="<%=MM_editAction%>" method="POST" id="AddClass">
<strong>添加新班级：</strong><br>
<table width="80%" border="1" cellpadding="5" cellspacing="1" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF">
<tr>
<td width="80" align="right">部门名称：</td>
<td width="100"><input name="ClassName" type="text" id="ClassName2" size="10" maxlength="10">
<script language='JavaScript'>document.AddClass.ClassName.focus();</script></td>
<td>例如：8班<br>
<font color="#FF0000">每个年级的各班名称不能重复</font>
</td>
</tr>
<tr>
<td width="80" align="right">部门编号：</td>
<td width="100"><input name="ClassID" type="text" id="ClassID" size="10" maxlength="10"></td>
<td>例如：08<br>
<font color="#FF0000">1、班级编号一定要与学号规则相符合，否则系统不能按班级查询；<br>
2、每个年级的各班编号不能重复</font></td>
</tr>
<tr>
<td width="80" align="right">所在年级：</td>
<td width="100"><select name="Grade">
<option value="0" selected>高一级</option>
<option value="1">高二级</option>
<option value="2">高三级</option>
</select></td>
<td> </td>
</tr>
<tr>
<td colspan="3" align="center"><input type="hidden" name="MM_insert" value="AddClass">
<input type="submit" name="Submit" value="添 加"></td>
</tr>
</table>
</form>
<strong>已有的班级：</strong>
<table width="95%" border="1" cellspacing="3" cellpadding="3">
<tr align="center" valign="middle" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF">
<td><strong>高一级</strong></td>
<td><strong>高二级</strong></td>
<td><strong>高三级</strong></td>
</tr>
<tr align="center" valign="top">
<td><table width="100%" border="0" cellspacing="2" cellpadding="0">
<tr align="center" valign="middle">
<td>班级名称</td>
<td>班级编号</td>
<td>操作</td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT rsGrade1.EOF))
%>
<form name="form1" method="post" action="ClassManage.asp">
<tr align="center" valign="middle">
<td><%=(rsGrade1.Fields.Item("部门名称").Value)%></td>
<td><%=(rsGrade1.Fields.Item("部门编号").Value)%></td>
<td><input name="MM_Delete" type="hidden" value="True">
<input name="ID" type="hidden" value="<%=(rsGrade1.Fields.Item("ID").Value)%>">
<input type="submit" name="Submit2" value="删除"></td>
</tr>
</form>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsGrade1.MoveNext()
Wend
%>
</table></td>
<td><table width="100%" border="0" cellspacing="2" cellpadding="0">
<tr align="center" valign="middle">
<td>班级名称</td>
<td>班级编号</td>
<td>操作</td>
</tr>
<%
While ((Repeat2__numRows <> 0) AND (NOT rsGrade2.EOF))
%>
<form name="form1" method="post" action="ClassManage.asp">
<tr align="center" valign="middle">
<td><%=(rsGrade2.Fields.Item("部门名称").Value)%></td>
<td><%=(rsGrade2.Fields.Item("部门编号").Value)%></td>
<td><input name="MM_Delete" type="hidden" value="True">
<input name="ID" type="hidden" value="<%=(rsGrade2.Fields.Item("ID").Value)%>">
<input type="submit" name="Submit22" value="删除"></td>
</tr>
</form>
<%
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
rsGrade2.MoveNext()
Wend
%>
</table></td>
<td><table width="100%" border="0" cellspacing="2" cellpadding="0">
<tr align="center" valign="middle">
<td>班级名称</td>
<td>班级编号</td>
<td>操作</td>
</tr>
<%
While ((Repeat3__numRows <> 0) AND (NOT rsGrade3.EOF))
%>
<form name="form1" method="post" action="ClassManage.asp">
<tr align="center" valign="middle">
<td><%=(rsGrade3.Fields.Item("部门名称").Value)%></td>
<td><%=(rsGrade3.Fields.Item("部门编号").Value)%></td>
<td><input name="MM_Delete" type="hidden" value="True">
<input name="ID" type="hidden" value="<%=(rsGrade3.Fields.Item("ID").Value)%>">
<input type="submit" name="Submit23" value="删除"></td>
</tr>
</form>
<%
Repeat3__index=Repeat3__index+1
Repeat3__numRows=Repeat3__numRows-1
rsGrade3.MoveNext()
Wend
%>
</table></td>
</tr>
</table>
<br>
</td>
<TD width=1 background="images/dotLine_h.gif"><IMG src="images/shim(1).gif" width=1></TD>
</TR>
<tr>
<TD height="1" colspan="7" background="images/dotLine_w.gif"><IMG height=1 src="images/shim(1).gif" width=100></TD>
</tr>
</TBODY>
</TABLE>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<Iframe src="CopyRight.asp" width="760" height="200" marginheight="0" marginwidth="0" scrolling="NO" frameborder="0" name="CopyRight"></iframe>
</td>
</tr>
</table></BODY>
</HTML>
<%
rsGrade1.Close()
Set rsGrade1 = Nothing
%>
<%
rsGrade2.Close()
Set rsGrade2 = Nothing
%>
<%
rsGrade3.Close()
Set rsGrade3 = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -