⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 test_term.asp

📁 学校成绩查询系统是一个非常好的软件请大家试试
💻 ASP
字号:
<!--#include file="Admin_IsLogin.asp" -->
<!--#include file="dataconn.asp"-->
<!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="../../../../www.wyyz.com.cn/cf/inc/admin_style.css" type=text/css rel=stylesheet>
<script>
function del(datas,tname)
{
var truthBeTold = window.confirm("确定删除学期("+tname+")吗?");
if (truthBeTold)
  {
  document.location.replace(datas); 
  }
} 
</script>
<body>
<p> </p>
<table width="79%" border="0" align="center" cellpadding="5" cellspacing="0">
  <tr>
    <td height="22" valign="top" style="FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=1,startColorStr=#3b839f,endColorStr=#eff4ff)"><span class="style1">&nbsp;&nbsp;&nbsp;</span><span class="topbg STYLE1"><strong>时段管理</strong></span>&nbsp;&nbsp;</td>
  </tr>
</table>
<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> </td>
              </tr>
              <tr>
                <td><table width="90%" align="center"  border="0" cellpadding="0" cellspacing="0">
                  <tr>
                    
                    <td width="100%">

  <table width="100%" border="0">
<form name="form1" method="post" action="admin_saveterm.asp">
    <tr>
      <td width="13%">添加新时段</td>
      <td width="51%"><input name="tname" type="text" size="40">
        </td>
      <td width="35%"><input type="submit" name="Submit3" value="添加"></td>
      </tr>
    <tr>
      <td width="98%" colspan="3"><font size="2">说明:学校可按学年度设定时段,如 2008-2009学年度
		;其他机构可按情况自定时段,如2009.1-2010.12。</font></td>
      </tr>
    <tr>
      <td colspan="3">
<font color="#FF0000" size="2">添加完时段后,必须把某个时段设置为当前时段(供导入成绩和用户查询的时段)!</font></td>
      </tr>
</form>
  </table>
                  </tr>
                </table></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><div align="center"><strong>时段ID</strong></div></td>
                          <td><div align="center"><strong>时段名称</strong></div></td>
                          <td><div align="center"><strong>当前时段</strong></div></td>
                          <td><div align="center"><strong>操作</strong></div></td>
                        </tr>
<%
  dim totalteacher,page,pages,i
  set rs= Server.CreateObject("ADODB.Recordset")
  tname=replace(request.form("tname"),"'","")
  rs.open ("select tid,tname,tnow from term"),conn,1,1
  if rs.eof and rs.bof then
      page=1
      pages=1
      totalteacher=0
      response.write"<tr><td width='100%' height='100' align='center' colspan='4'>没有学期资料</td></tr>"
  else
      totalteacher=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("tid")%></div></td>
                          <td><div align="center"><%=rs("tname")%></div></td>
                          <td><div align="center">
<%
  if rs("tnow")=1 then
      response.write"<font color='#ff0000'>√</font>"
  else
      response.write"<a href='admin_editterm.asp?action=setnow&id="&rs("tid")&"'>设为当前学期</a>"
  end if
%>
						  </div></td>
                          <td><div align="center">
                            <input type="button" name="Submit4" value="编辑" onClick=location.href="admin_editterm.asp?action=edit&id=<%=rs("tid")%>">
                            <input type="button" name="Submit5" value="删除"  onClick="javascript:del('admin_editterm.asp?action=del&id=<%=rs("tid")%>','<%=rs("tname")%>')">
                          </div></td>
                        </tr>
<%
          rs.movenext
      loop
  end if
  set rs=nothing
%>                      </table>
<%

%>
<font color="#FF0000"><br> </font></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'>"&totalteacher&"</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 + -