admin_newsclassmana.asp

ASP源程序采用天空软件小偷中心核件制成

<!--#include file="conn.asp"-->
<!--#include file="admin_loginchk.asp"-->
<%admin2%>
<title>栏 目 管 理</title>
<!--#include file="top.asp"-->
<%
  dim sql,sql2
  dim rs
  dim rs2
  dim i
   set rs=server.createobject("adodb.recordset")
   sql="select * from Aclass order by classid"
   rs.open sql,conn,1,1
   set rs2=server.createobject("adodb.recordset")
   sql2="select * from ANclass order by Nclassid"
   rs2.open sql2,conn,1,1
   if err.Number<>0 then 
	  err.clear %>
<%  else  %>
<script language="javascript">
<!--
   function test(form) {
       if ((form.options.value == "rename" && form.reTitle.value == "") || (form.options.value == "new" && form.newTitle.value == ""))
       {alert("您没有填写专题名称，请填写");return false;}
       if (form.options.value == "del")
       {return confirm("将同时删除该专题中的所有内容！是否继续？");}
       return true;
    }
//-->
</script>
<table border="0" width="99%" cellspacing="1" cellpadding="1" style="margin-top:6px;margin-bottom:6px" align="center">
  <tr> 
    <td valign=top width="20%" style="border:1px solid black;" bgcolor="#999999"> 
      <!--#include file="admin_left.asp"-->
    </td>
    <td align=center valign=top> 
      <table border="0" cellpadding="4" cellspacing="1" width="98%" align="center" bgcolor="#333333">
        <tr align="center" bgcolor="#999999"> 
          <td> 栏 目 管 理</td>
        </tr>
        <tr align="center" bgcolor="#CCCCCC"> 
          <td align="center" valign="top"> 
            <table border="0" cellpadding="4" cellspacing="1" width="95%" align="center" bgcolor="#333333">
              <tr align="center" bgcolor="#999999"> 
                <td width="34%"><font color="#990033">类别号和名称</font></td>
                <td>&nbsp;</td>
              </tr>
              <%set ms=server.createobject("adodb.recordset")
    sql="select * from Aclass"
    ms.open sql,conn,1,1
	do while not ms.eof %>
              <tr align="center" bgcolor="#CCCCCC"> 
                <td width="34%" align="center" valign="top"> <font color="#000000"><%=ms("classid")%>.<a href=""><%=ms("class")%></a></font></td>
                <td> 
                  <% set ts=server.createobject("adodb.recordset")
                   sql="select * from ANclass where classid="&ms("classid")
                   ts.open sql,conn,1,1
				   %>
                  <table width="252" border="0" cellspacing="1" cellpadding="2" bgcolor="#999999">
                    <tr> 
                      <%if ts.eof then %>
                      <td bgcolor="#CCCCCC" >本分类还没有开设专题</td>
                      <%else %>
                      <td width="40" bgcolor="#CCCCCC" align="center"> 
                        <div align="center"><font color="#990033">专题号</font></div>
                      </td>
                      <td width="150" bgcolor="#CCCCCC"><font color="#990033">专题名称</font></td>
                      <%end if %>
                    </tr>
                    <% do while not ts.eof %>
                    <tr> 
                      <td  bgcolor="#CCCCCC" align="center"><%=ts("Nclassid")%></td>
                      <td  bgcolor="#CCCCCC" ><%=ts("Nclass")%></td>
                    </tr>
                    <% ts.movenext
                    loop
                    ts.close 
                   %>
                  </table>
                </td>
              </tr>
              <% ms.movenext
   loop
   ms.close 
   %>
              <tr align="left" valign="top" bgcolor="#CCCCCC"> 
                <td colspan="2"><font color="#990033">说明:</font> 请管理员在操作前，一定要注意上面对应的分类和专题,以免出错!</td>
              </tr>
            </table>
			
			
			</td>
        </tr>
        <tr align="left" valign="top" bgcolor="#CCCCCC"> 
          <td><font color="#990033">说明:</font> 本程序由去看去看-7k7k.com制作!!</td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<!--#include file="copyright.asp"-->
<br>
<% 
     rs.close
     rs2.close
     set rs=nothing
     set rs2=nothing
     conn.close
     set conn=nothing
end if
%>
</body>
</html>