📄 admin.asp
字号:
<!--壹加壹在线--www.10000cn.com-->
<%
if session("admin")<>"on" then
Response.Redirect"login.asp"
end if
%>
<!--#include file="config.asp" -->
<!--#include file="mdb/conn.asp" -->
<html>
<head>
<title>壹加壹在线--管理中心</title>
<!--#include file="intop.asp" -->
<TABLE border=0 cellPadding=0 cellSpacing=0 width=750 align=center>
<TBODY>
<TR>
<TD vAlign=top width=49 bgcolor=#ffffff> </TD>
<TD align=middle bgColor=#f2f2f2 vAlign=top width=100%>
<table width="100%" border="0" cellspacing="0" cellpadding="5" class="xzy" align="center">
<tr>
<td>管理选项：<a href="admin.asp">管理首页</a> | <a href="adminfile.asp">管理文件</a>
| <a href="loginout.asp">退出管理</a></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="5" align="center">
<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 class"
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
%>
<!--壹加壹在线--www.10000cn.com-->
</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="100%" border="0" cellspacing="0" cellpadding="5" align="center">
<tr>
<td height="5"></td>
</tr>
<form name="form1" method="post" action="saveadmintype.asp?cz=addtype">
<tr>
<td class="bk">添加二级分类：
<input type="text" name="typename" class="an" maxlength="50" size="15">
缩略图：
<input type="text" name="minipic" class="an" size="15" maxlength="200">
所属：
<select name="classid">
<%
sql = "SELECT * FROM class"
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>
<input type="submit" name="Submit3" value="添加" class="an">
</td>
</tr>
</form>
<form name="form2" method="post" action="saveadmintype.asp">
<tr>
<td class="xzy">管理二级分类：
<select name="typeid">
<%
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="deltype">删除</option>
<option value="edittype" selected>修改</option>
</select>
<input type="submit" name="Submit22" value="确定" class="an">
<br>
新名称：
<input type="text" name="typename" class="an" size="15" maxlength="50">
新缩略图：
<input type="text" name="minipic" class="an" size="15" maxlength="200">
<select name="classid">
<%
sql = "SELECT * FROM class"
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>
*选择删除分类不用填写</td>
</tr>
</form>
</table>
<table width="100%" 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">添加文件在：
<select name="classid">
<%
sql = "SELECT * FROM class"
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></TD></TR></TBODY></TABLE>
</BODY></HTML>
<!--壹加壹在线--www.10000cn.com-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -