<%
if session("admin")<>"on" then
Response.Redirect"login.asp"
end if
%>
<!--#include file="config.asp" -->
<!--#include file="mdb/conn.asp" -->
<html>
<head>
<title>管理中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
a {  font-family: "宋体"; font-size: 9pt; font-style: normal; line-height: 13pt; font-weight: normal; font-variant: normal; text-transform: none; color: <%=fontcolor%>; text-decoration: none}
a:hover {  font-family: "宋体"; font-size: 9pt; font-style: normal; line-height: 13pt; font-weight: normal; font-variant: normal; text-transform: none; color: <%=fontcolor%>; text-decoration: underline}
td {  font-family: "宋体"; font-size: 9pt; font-style: normal; line-height: 13pt; font-weight: normal; font-variant: normal; text-transform: none; color: <%=fontcolor%>}
br {  font-family: "宋体"; font-size: 9pt; font-style: normal; line-height: 13pt; font-weight: normal; font-variant: normal; text-transform: none; color: <%=fontcolor%>}
.bk { font-size: 9pt; border: 1px <%=xcolor%> solid}
body {  font-family: "宋体"; font-size: 9pt; font-style: normal; line-height: 13pt; font-weight: normal; font-variant: normal; text-transform: none}
.an {  font-family: "宋体"; font-size: 9pt; background-color: <%=bgcolor%>; border: 1px <%=xcolor%> solid; color: <%=fontcolor%>}
.xzy {  border: <%=xcolor%> solid; border-width: 0px 1px 1px}
.zx {  border: <%=xcolor%> solid; border-width: 0px 0px 1px 1px}
.sxz {  border: <%=xcolor%> solid; border-width: 1px 0px 1px 1px}
.s {  border: <%=xcolor%>; border-style: solid; border-top-width: 1px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px}
.y {  border: <%=xcolor%>; border-style: solid; border-top-width: 0px; border-right-width: 1px; border-bottom-width: 0px; border-left-width: 0px}
.font {  font-family: "Arial Black"; font-size: 14pt; color: <%=fontcolor%>}
.x {  border: <%=xcolor%>; border-style: solid; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 1px; border-left-width: 0px}
.z {  border: <%=xcolor%>; border-style: solid; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 1px}
.sx {  border: <%=xcolor%>; border-style: solid; border-top-width: 1px; border-right-width: 0px; border-bottom-width: 1px; border-left-width: 0px}
-->
</style>
</head>

<body bgcolor="<%=bgcolor%>" text="#000000">
<!--#include file="top.asp" -->
<table width="774" border="0" cellspacing="0" cellpadding="5" class="xzy" align="center">
  <tr> 
  <td bgcolor="<%=titlecolor%>">管理选项：<a href="admin.asp">管理首页</a> | <a href="adminfile.asp">管理文件</a> 
   | <a href="loginout.asp">退出管理</a></td>
 </tr>
</table>
<table width="774" border="0" cellspacing="0" cellpadding="5" align="center" bgcolor="#FFFFFF">
  <tr> 
  <td height="5"></td>
 </tr>
 <form name="form1" method="post" action="saveadmintype.asp?cz=addclass">
  <tr> 
      <td class="bk">添加分类： 
        <input type="text" name="classname" class="an" size="15" maxlength="50">
    <input type="submit" name="Submit" value="添加" class="an">
   </td>
  </tr>
 </form>
   <form name="form2" method="post" action="saveadmintype.asp">
 <tr> 
      <td class="xzy">管理分类： 
        <select name="classid">
<%
sql = "SELECT * FROM type" 
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,Conn,1,1
if rs.eof and rs.bof then
Response.Write"<option>还没有任何分类</option>"
else
do while not rs.eof
Response.Write"<option value='"&rs("id")&"'>"&rs("name")&"</option>"
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
    </select>
    <select name="cz">
     <option value="delclass">删除</option>
     <option value="editclass" selected>修改</option>
    </select>
    <input type="submit" name="Submit2" value="确定" class="an">
    新名称：
    <input type="text" name="classname" class="an" maxlength="50" size="15">
    *选择删除分类不用填写</td>
 </tr>
   </form>
</table>
<table width="774" border="0" cellspacing="0" cellpadding="5" align="center">
  <tr> 
  <td height="5"></td>
 </tr>
 <form name="form1" method="get" action="addfile.asp">
  <tr> 
   <td class="bk" bgcolor="<%=titlecolor%>">添加文件在： 
    <select name="classid">
     <%
sql = "SELECT * FROM type" 
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,Conn,1,1
if rs.eof and rs.bof then
Response.Write"<option>还没有任何分类</option>"
else
do while not rs.eof
Response.Write"<option value='"&rs("id")&"'>"&rs("name")&"</option>"
rs.movenext
loop
end if
rs.close
set rs=nothing
conn.close
Set conn=Nothing
%>
    </select>
    <input type="submit" name="Submit4" value="添加" class="an">
   </td>
  </tr>
 </form>
</table>
</body>
</html>
