admin_down.asp

本系统(共享国际学校管理系统)具有的主要功能: 1、导航内容：学校概况、校内新闻、学校内务、德育工作、 教育科研、教师之窗、学生园地、学校党建、 校园相册、校内论坛(导航内容后台生成,可随

<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/FORMAT.asp"-->
<!--#include file="inc/UBBshow.asp"-->
<%
if session("adminlogin")<>sessionvar then
  Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.top.location.href='admin.asp';</script>")
  response.end
else
if request.form("MM_insert") then
if request.form("action")="newcat" then
sql="select * from d_cat"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
dim cat_name
cat_name=trim(replace(request.form("cat_name"),"'",""))

if cat_name="" then
   founderr=true
Response.Write("<script language=javascript>alert('你必须填写分类名称！');history.back(1);</script>")
else
   rs("cat_name")=cat_name
end if
if founderr then
  call diserror()
  response.end
else
  rs.update
  rs.close
  set rs=nothing
  response.redirect "admin_down.asp"
end if
elseif request.form("action")="newclass" then
sql="select * from d_class"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
dim class_name,cat_id
cat_id=cint(request.form("cat_id"))
class_name=trim(replace(request.form("class_name"),"'",""))

if cat_id<1 then
   founderr=true
Response.Write("<script language=javascript>alert('你必须选择所属分类名称！');history.back(1);</script>")
else
   rs("cat_id")=cat_id
end if
if class_name="" then
   founderr=true
Response.Write("<script language=javascript>alert('你必须填写子分类名称！');history.back(1);</script>")
else
   rs("class_name")=class_name
end if
if founderr then
  call diserror()
  response.end
else
  rs.update
  rs.close
  set rs=nothing
  response.redirect "admin_down.asp"
end if
elseif request.form("action")="editcat" then
if cint(request.form("id"))<1 then
   founderr=true
Response.Write("<script language=javascript>alert('非法的分类参数！');history.back(1);</script>")
   response.end
end if
sql="select * from d_cat where cat_id="&request.form("id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
cat_name=trim(replace(request.form("cat_name"),"'",""))

if cat_name="" then
   founderr=true
Response.Write("<script language=javascript>alert('你必须填写分类名称！');history.back(1);</script>")
else
   rs("cat_name")=cat_name
end if
if founderr then
  call diserror()
  response.end
else
  rs.update
  rs.close
  set rs=nothing
  response.redirect "admin_down.asp"
end if
elseif request.form("action")="editclass" then
if cint(request.form("id"))<1 then
   founderr=true
Response.Write("<script language=javascript>alert('非法的分类参数！');history.back(1);</script>")
   response.end
end if
sql="select * from d_class where class_id="&request.form("id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
cat_id=cint(request.form("cat_id"))
class_name=trim(replace(request.form("class_name"),"'",""))

if cat_id<1 then
   founderr=true
Response.Write("<script language=javascript>alert('你必须选择所属分类名称！');history.back(1);</script>")
else
   rs("cat_id")=cat_id
end if
if class_name="" then
   founderr=true
Response.Write("<script language=javascript>alert('你必须填写子分类名称！');history.back(1);</script>")
else
   rs("class_name")=class_name
end if
if founderr then
  call diserror()
  response.end
else
  rs.update
  rs.close
  set rs=nothing
  response.redirect "admin_down.asp"
end if
elseif request.form("action")="delcat" then
if cint(request.form("id"))<1 then
   founderr=true
Response.Write("<script language=javascript>alert('非法的分类参数！');history.back(1);</script>")
   response.end
end if
sql="select * from d_cat where cat_id="&request.form("id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
  rs.delete
  rs.close
  set rs=nothing
  response.redirect "admin_down.asp"
elseif request.form("action")="delclass" then
if cint(request.form("id"))<1 then
   founderr=true
Response.Write("<script language=javascript>alert('非法的分类参数！');history.back(1);</script>")
   response.end
end if
sql="select * from d_class where class_id="&request.form("id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
  rs.delete
  rs.close
  set rs=nothing
  response.redirect "admin_down.asp"
end if
end if
sql="select * from d_cat"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<HTML><HEAD><TITLE>管理中心</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="inc/admin.css" type=text/css rel=StyleSheet>
<META content="MSHTML 6.00.2800.1126" name=GENERATOR>
</HEAD>
<body onkeydown=return(!(event.keyCode==78&&event.ctrlKey)) >
<%if request.querystring("action")="" then%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<tr> 
          <td colspan="2" class=lanyuss>下载分类管理</font></td>
        </tr>
<%do while not rs.eof%><tr class=lanyuqs><td width="70%"><%=rs("cat_name")%>&nbsp;[<a href="admin_down.asp?action=newclass">新建子分类</a>]</td><td width="30%">[<a href="admin_down.asp?action=editcat&id=<%=rs("cat_id")%>&name=<%=rs("cat_name")%>">修改</a>]&nbsp;[<a href="admin_down.asp?action=delcat&id=<%=rs("cat_id")%>&name=<%=rs("cat_name")%>">删除</a>]</td></tr>
<%sql="select * from d_class where cat_id="&rs("cat_id")
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof%>
<tr class=lanyuds><td width="70%">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%=rs2("class_name")%></td><td width="30%">[<a href="admin_down.asp?action=editclass&id=<%=rs2("class_id")%>&cid=<%=rs("cat_id")%>&name=<%=rs2("class_name")%>">修改</a>]&nbsp;[<a href="admin_down.asp?action=delclass&id=<%=rs2("class_id")%>&cid=<%=rs("cat_id")%>&name=<%=rs2("class_name")%>">删除</a>]</td></tr>
<%
rs2.movenext
loop
response.write "<tr class=lanyuqs><td>"
if rs2.bof and rs2.eof then
response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;当前没有子分类！"
end if
rs2.close
set rs2=nothing
rs.movenext
loop
if rs.bof and rs.eof then
response.write "<tr class=lanyuqs><td>当前没有分类！"
end if
%>
</td></tr></table>  
<%
end if
if request.querystring("action")="newcat" then%>
      <table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
        <form name="form1" method="post" action="admin_down.asp">
		<tr> 
          <td class=lanyuss>新建分类</td>
        </tr>
        <tr> 
          <td class=lanyuds>分类名称-
            <input type="text" name="cat_name" size="40" class="textarea">
          </td>
        </tr>
        <tr> 
          <td class=lanyuqs align="center">
              <input type="submit" name="Submit" value="确定新增" class="button">
              <input type="reset" name="Reset" value="取消重填" class="button">
<input type="button" value="返回"  onClick="location.href='admin_down.asp'" class="button"></td>
        </tr>
		<input type="hidden" name="action" value="newcat">
		<input type="hidden" name="MM_insert" value="true">
		</form>
      </table>
<%end if
if request.querystring("action")="newclass" then%>
      <table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
	    <form name="form2" method="post" action="admin_down.asp">
        <tr> 
          <td class=lanyuss>新建子分类</td>
        </tr>
        <tr> 
          <td class=lanyuds>子分类名称-
              <input type="text" name="class_name" size="50" class="textarea">
              <br>
              所属分类-
              <select name="cat_id">
                <%sql="select * from d_cat"
set rs=conn.execute(sql)
do while not rs.eof
%><option value="<%=rs("cat_id")%>"><%=rs("cat_name")%></option>
<%rs.movenext
loop
if rs.eof and rs.bof then%><option value="0">暂无分类</option>
<%end if%>
              </select>
            </td>
        </tr>
        <tr> 
            <td class=lanyuqs align="center"> 
              <input type="submit" name="Submit2" value="确定新增" class="button">
              <input type="reset" name="Reset2" value="取消重填" class="button">
<input type="button" value="返回"  onClick="location.href='admin_down.asp'" class="button"></td>
        </tr>
		<input type="hidden" name="action" value="newclass">
		<input type="hidden" name="MM_insert" value="true">
		</form>
      </table>
<%end if
if request.querystring("action")="editcat" then%>
      <table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
	    <form name="form1" method="post" action="admin_down.asp">
        <tr> 
          <td class=lanyuss>修改分类</td>
        </tr>
        <tr> 
            <td class=lanyuds>分类名称- 
              <input type="text" name="cat_name" size="40" class="textarea" value="<%=request.querystring("name")%>">
          </td>
        </tr>
        <tr> 
            <td class=lanyuqs align="center">
              <input type="submit" name="Submit3" value="确定修改" class="button">
<input type="button" value="返回"  onClick="location.href='admin_down.asp'" class="button"></td>
        </tr>
		<input type="hidden" name="action" value="editcat">
		<input type="hidden" name="id" value="<%=request.querystring("id")%>">
		<input type="hidden" name="MM_insert" value="true">
		</form>
      </table>
<%end if
if request.querystring("action")="editclass" then%>
      <table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
        <form name="form2" method="post" action="admin_down.asp">
          <tr> 
            <td class=lanyuss>修改子分类</td>
          </tr>
          <tr> 
            <td class=lanyuds>子分类名称- 
              <input type="text" name="class_name" size="50" class="textarea" value="<%=request.querystring("name")%>">
              <br>
              所属分类- 
              <select name="cat_id">
                <%sql="select * from d_cat"
set rs=conn.execute(sql)
do while not rs.eof
%>
                <option value="<%=rs("cat_id")%>" <%if rs("cat_id")=cint(request.querystring("cid")) then response.write "selected" end if%>><%=rs("cat_name")%></option>
                <%rs.movenext
loop
if rs.eof and rs.bof then%>
                <option value="0">暂无分类</option>
                <%end if%>
              </select>
            </td>
          </tr>
          <tr> 
            <td class=lanyuqs align="center"> 
              <input type="submit" name="Submit" value="确定修改" class="button">
<input type="button" value="返回"  onClick="location.href='admin_down.asp'" class="button"></td>
          </tr>
          <input type="hidden" name="action" value="editclass">
		  <input type="hidden" name="id" value="<%=request.querystring("id")%>">
          <input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
	  <%end if
	  if request.querystring("action")="delcat" then%>