admin_class.asp

一个美化的论坛程序

<!--#include file="function.asp"-->
<%CheckAdmin%>
<script language="javascript">
<!--
   function test(n) {
      result=confirm("警告！\n将同时删除该分类下的论坛及所有帖子！是否继续？");
	  if (result){
	  window.open('admin_classsave.asp?classid='+n+'&action=del','_self');
	  }
    }
//-->
</script>
<!--#include file="top.asp"-->
<img src="" width="1" height="3"><table width="680" border="0" cellspacing="1" cellpadding="1" align="center" bgcolor="<%=tablebackcolor%>">
  <tr> 
    <td width="160" bgcolor="<%=tabletitlecolor%>" height="129" valign=top> 
      <!--#include file="admin_left.asp"-->
    </td>
    <td width="622" bgcolor="<%=tablebodycolor%>" valign="middle" height="129"> 
      <%
set rs1=server.CreateObject("ADODB.RecordSet")
sql="select * from class"
rs.open sql,conn,1,1
do while not rs.eof
%>
      <table width="98%" border="0" cellspacing="1" cellpadding="1" align="center" bgcolor="<%=tabletitlecolor%>">
        <form method="post" action="admin_classsave.asp?action=edit&classid=<%=rs("classid")%>">
          <tr align="center" bgcolor="<%=tabletitlecolor%>"> 
            <td colspan="4" height="20">编辑 <b><font color="#000000"><%=rs("classname")%></font></b> 
            </td>
          </tr>
          <tr bgcolor="<%=tablebodycolor%>"> 
            <td width="10%" align="right">分类序号:</td>
            <td width="30%"> 
              <input type="text" name="classid" size="4" maxlength="2" value="<%=rs("classid")%>">
              不能和别的分类序号相同</td>
            <td width="10%" align="right">分类名:</td>
            <td width="50%"> 
              <input type="text" name="classname" size="30" maxlength="50" value="<%=rs("classname")%>">
            </td>
          </tr>
          <tr align="center" bgcolor="<%=tablebodycolor%>"> 
            <td colspan="4"> 
              <input type="submit" value=" 提 交 ">
              <input type="reset" value=" 清 空 ">
              <input type="button" value=" 删除此分类 " onclick="return test(<%=rs("classid")%>);">
            </td>
          </tr>
        </form>
      </table>
      <br>
      <%
rs.movenext
loop
rs.close
set rs=nothing
%>
      <table width="98%" border="0" cellspacing="1" cellpadding="1" align="center" bgcolor="<%=tabletitlecolor%>">
        <form method="post" action="admin_classsave.asp?action=add">
          <tr align="center" bgcolor="<%=tabletitlecolor%>"> 
            <td colspan="4" height="20">新增分类</td>
          </tr>
          <tr bgcolor="<%=tablebodycolor%>"> 
            <td width="10%" align="right">分类序号:</td>
            <td width="30%"> 
              <input type="text" name="classid" size="4" maxlength="2">
              不能和别的分类序号相同</td>
            <td width="10%" align="right">分类名:</td>
            <td width="50%"> 
              <input type="text" name="classname" size="30" maxlength="50">
            </td>
          </tr>
          <tr align="center" bgcolor="<%=tablebodycolor%>"> 
            <td colspan="4"> 
              <input type="submit" value=" 提 交 ">
              <input type="reset" value=" 清 空 ">
            </td>
          </tr>
        </form>
      </table>
    </td>
  </tr>
</table>
<!--#include file="copyright.asp"-->
</body>
</html>