📄 admin_class.asp
字号:
<%@language=vbscript codepage=936 %>
<%
'=========================================================
' 功能：讯网wap图片程序
' 版本：讯网wap图片程序 v 0.1
' 时间：2006-7-65
' 作者：随风
' QQ:10025324 22216
' 电子信箱：web@sun116.net
'=========================================================
if session("AdminName") = "" then
response.Redirect "Admin_Login.asp"
end if
%>
<!--#include file="conn.asp"-->
<!--#include file="Sql_Erro.asp"-->
<html>
<title>讯网wap图片后台管理中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="images/Admin_Style.css">
<head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<table cellpadding="2" cellspacing="1" border="0" width="100%" class="border" align=center>
<tr align="center">
<td height=23 colspan=2 class="topbg"><strong><span style="font-size: 9pt">图 片 管 理</span></strong></tr>
<tr>
<td width="100" class="tdbg" height=25><strong><span style="font-size: 9pt">管理快捷方式：</span></strong></td>
<td class="tdbg"><a href="Admin_All.asp"><span style="font-size: 9pt">管理首页</span></a><span style="font-size: 9pt">
| <a href="Admin_All.asp">图片管理</a>
| <a href="Admin_Class.asp">分类管理</a>
| <a href="Admin_PicAdd.asp">添加图片</a>
| <a href="Admin_Affiche.asp">公告管理</a> </span>
</td>
</tr>
</table>
<span style="font-size: 9pt">
<br>
</span>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=100% align=center class="border">
<TBODY>
<TR>
<TD vAlign=top width=49 bgcolor=#ffffff> </TD>
<TD align=middle vAlign=top width=100%>
<table width="100%" border="0" cellspacing="0" cellpadding="5" align="center">
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="5" align="center">
<tr>
<td height="2"></td>
</tr>
<form name="form1" method="post" action="Admin_Saveadmintype.asp?cz=addclass">
<tr>
<td class="bk"><span style="font-size: 9pt">添加一级分类：
<input type="text" name="classname" class="an" size="15" maxlength="50">排序：<input type="text" name="classn" class="an" size="8" maxlength="50" value="0">
<input type="submit" name="Submit" value="添加" class="an">
</span>
</td>
</tr>
</form>
<form name="form2" method="post" action="Admin_Saveadmintype.asp">
<tr>
<td class="xzy"><span style="font-size: 9pt">管理一级分类：
<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("Classid")&"'>"&rs("Classname")&"</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="classn" class="an" size="8" maxlength="50" value="0">
新名称：
<input type="text" name="classname" class="an" maxlength="50" size="15">
*选择删除分类不用填写</span></td>
</tr>
</form>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="5" align="center">
<tr>
<td height="2"></td>
</tr>
<form name="form1" method="post" action="Admin_Saveadmintype.asp?cz=addtype">
<tr>
<td class="bk"><span style="font-size: 9pt">添加二级分类：
<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("Classid")&"'>"&rs("Classname")&"</option>"
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
</select>
排序数值：<input type="text" name="classt" class="an" size="8" maxlength="50" value="0"><input type="submit" name="Submit3" value="添加" class="an">
</span>
</td>
</tr>
</form>
<form name="form2" method="post" action="Admin_Saveadmintype.asp">
<tr>
<td class="xzy"><span style="font-size: 9pt">管理二级分类：
<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("Typeid")&"'>"&rs("Typename")&"</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="classt" class="an" size="8" maxlength="50" value="0">
新缩略图：
<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("Classid")&"'>"&rs("Classname")&"</option>"
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
</select>
*选择删除分类不用填写</span></td>
</tr>
<tr>
<td class="tdbg"><font color="red"><span style="font-size: 9pt">注意：</span></font><span style="font-size: 9pt"></b>*"<font color="#0000FF">删除分类</font>"将删除大分类下所有
的小分类和小分类下的<font color="#0000FF">所有记录 *</font>(排序数越大越靠前)</span></td>
</tr>
<tr>
<td class="tdbg"><span style="font-size: 9pt">一级分类排序如下：</span></td>
</tr>
<tr>
<td class="tdbg"> <%
sql = "SELECT * FROM class ORDER BY Classn DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,Conn,0,1
if rs.eof and rs.bof then
Response.Write"还没有分类"
else
do while not rs.eof
Response.Write""&rs("ClassName")&"<br>"
rs.movenext
loop
end if
rs.close
Set rs=Nothing
%>
</td>
</tr>
</form>
</table>
</TD></TR></TBODY></TABLE>
<span style="font-size: 9pt">
<!--#include file="copyright.asp" -->
</span>
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -