📄 class_setup.asp

📁 成绩管理代码采取的研究方法：采用网络编程技术
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT"%> 
<!--#include file="dataconn.asp"-->
<!--#include file="Admin_IsLogin.asp" -->
<HTML><HEAD><TITLE>年级添加</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK 
href="../inc/admin_style.css" type=text/css rel=stylesheet>
<script>
function del(datas,dname)
{
var truthBeTold = window.confirm("确定删除年级（"+dname+"）吗？");
if (truthBeTold)
  {
  document.location.replace(datas); 
  }
} 
</script>
<style type="text/css">
<!--
.STYLE1 {color: #FFFFFF}
-->
</style>
</HEAD>
<body>
<br>
<table width="780" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td width="780" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
              <tr>
                <td><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
                  <tr>
                         <td bgcolor="#336699"><table width="100%" cellpadding=4 cellspacing=1>
                      <tr>
                        <td width="93%" style="FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=1,startColorStr=#3b839f,endColorStr=#eff4ff)" colspan=2>&nbsp;&nbsp; <span class="STYLE1">年级管理</span></td>
                      </tr>
                    </table></td>
                  </tr>
                </table></td>
              </tr>
              <tr>
                <td align="center" valign="middle"><br><table width="90%" align="center"  border="0" cellpadding="0" cellspacing="0">
                  <tr>
                    <td width="600">
  <table width="90%" border="0" align="center">
<form name="form1" method="post" action="saveaddclass.asp">
    <tr>
      <td>添加新年级</td>
      <td><input name="njname" type="text" id="njname">
        （如 初一）</td>
      <td><input type="submit" name="Submit3" value="添加"></td>
      </tr>
</form>
  </table>

                  </tr>
                </table>
                  <p>&nbsp;</p></td>
              </tr>
              <tr>
                <td><table width="90%"  border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr>
                    <td height="85" valign="top">

                      <table width="100%" border="1" cellpadding="1" cellspacing="0" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF">
                        <tr>
                          <td bgcolor="#C3CDDE"><div align="center"><strong>序号</strong></div></td>
                          <td bgcolor="#C3CDDE"><div align="center"><strong>年级名称</strong></div></td>
                          <td bgcolor="#C3CDDE"><div align="center"><strong>操作</strong></div></td>
                        </tr>
<%
  set rs= Server.CreateObject("ADODB.Recordset")
  rs.open ("select njid,njname from nj"),conn,1,1
  if rs.eof and rs.bof then
      page=1
      pages=1
      totaldep=0
      response.write"<tr><td width='100%' height='100' align='center' colspan='3'>没有相关的年级资料</td></tr>"
  else
      totaldep=rs.recordcount     '总的条数
	  rs.pagesize=13               '每页显示的条数
      pages=rs.pagecount           '总的找到页数
      page=request("page")         '当前页
      if page="" then
          page=1
      elseif page<1 then
          page=1
      end if
      page=cint(page)
      if page>pages then page=pages
      rs.absolutepage=page
      do while not rs.eof and i<rs.pagesize
	      i=i+1
%>                        <tr>
                          <td><div align="center"><%=rs("njid")%></div></td>
                          <td><div align="center"><%=rs("njname")%></div></td>
                          <td><div align="center">
                            <input type="button" name="Submit4" value="编辑" onClick=location.href="classedit.asp?action=edit&id=<%=rs("njid")%>">
                            <input type="button" name="Submit5" value="删除"  onClick="javascript:del('classedit.asp?action=del&id=<%=rs("njid")%>','<%=rs("njname")%>')">
                            <input type="button" name="Submit52" value="添加下属班级"  onClick=location.href="classaddbj.asp?id=<%=rs("njid")%>&njname=<%=rs("njname")%>">
                          </div></td>
                        </tr>
<%
          rs.movenext
      loop
  end if
  set rs=nothing
%>                      </table>
</td>
                  </tr>
                  <tr>
                    <td height="25"><div align="center">
<%
      if pages>1 then
          response.write"<table align='center' cellspacing='0' cellpadding='0' border='0' width='100%'>"&_
                        "<form method='POST' action='?'>"&_
                        "<tr><td height='15' width='50%'>共<font color='red'>"&totaldep&"</font>人 <font color='red'>"&pages&"</font>页 第<font color='red'>"&page&"</font>页 "&_
                        " <input type='text' name='page' size='5' maxlength='4'> <input type='submit' value='GO' name='B1'></td><td align='right' width='50%' height='15'>"
          if page>1 then
          response.write"<a href='?page=1'>首页</a> "&_
                        "<a href='?page="&page-1&"'>上一页</a> "
          else
              response.write"首页 上一页 "
          end if
          if page<pages then
              response.write"<a href='?page="&page+1&"'>下一页</a> "&_
                            "<a href='?page="&pages&"'>尾页</a>"
          else
              response.write"下一页 尾页"
          end if
          response.write"</td></tr></form></table>"
      end if
%>
					</div></td>
                  </tr>
                </table></td>
              </tr>
            </table></td>
          </tr>
        </table></td>
      </tr>
    </table></td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -