📄 admin_sort.asp
字号:
<!--#include file="Conn.asp"-->
<!--#include file="include/char.asp" -->
<!--#include file="Include/check.asp"-->
<!--#include FILE="Include/Admin_Function.asp"-->
<%CheckAdmin3%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>后台管理 >> 分类管理</title>
<link href="other/Gaobei_Style.css" rel="stylesheet" type="text/css">
<!--#include file="Admin_all_article.asp"-->
</head>
<body leftmargin="2" topmargin="8">
<%
if Request("Action")="SetInfo" then
Id=Request("Id")
SqlSetInfo = "Select * from Sort where Id="&Id&" "
Set RsSetInfo = Conn.Execute(SqlSetInfo)
%>
<form name="form2" method="post" action="Admin_SortSave.asp?Action=SetInfo">
<table width="590" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td height="25" bgcolor="#EAEAEA"> <div align="center"><strong>设 置 面 页 内
容</strong></div></td>
</tr>
<tr>
<td height="66" bgcolor="#FFFFFF">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="35%" height="26">
<div align="right">设置的类别：<img src="Images/Gaobei_Guide.gif" width="11" height="11">
<input name="Names" type="text" id="Names" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(255,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid" value="<%=RsSetInfo("Names")%>" size="15" maxlength="25" readonly>
</div></td>
<td width="65%"> <div align="right">
<input name="ID" type="hidden" id="ID22" value="<%=RsSetInfo("ID")%>" >
</div></td>
</tr>
<tr>
<td colspan="2" align="right"> <textarea name="content" id="content" style="display:none"><%=RsSetInfo("Info")%></textarea>
<IFRAME ID="content" SRC="editor.asp?id=content" FRAMEBORDER="0" SCROLLING="no" WIDTH="590" HEIGHT="420"></IFRAME>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="25" bgcolor="#EAEAEA">
<div align="center">
<input name="Submit22" type="submit" id="Submit223" value="设定">
<input type="reset" name="Submit4" value="重置">
<input type="button" value="删除" onClick=window.open('Admin_SortSave.asp?action=B_Del&id=<%=RsSetInfo("ID")%>') name=del2>
</div></td>
</tr>
</table>
</form>
<%
RsSetInfo.close
set RsSetInfo =nothing
call closeconn()
%>
<% response.end %>
<% end if %>
<table width="600" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td width="749" height="25" bgcolor="#EAEAEA">
<div align="center"><strong>分 类 管 理</strong></div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="6%" align="center"> <div align="center"> </div></td>
<td width="94%" align="center"> <div align="center">
<% if Request("Action")<>"Modify" then %>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form name="form1" method="post" action="Admin_SortSave.asp?Action=Add">
<tr>
<td align="center"> 添加:
<input name="Names" type="text" id="Names" size="18" maxlength="30" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none;BORDER-BOTTOM: rgb(0,0,0) 1px solid" >
<select name="B_id" id="B_id" >
<option value="0" >作为根分类</option>
<%
Sql = "Select * from Sort where B_id=0 and Setting<>3 and Setting<>5 order by S_Order "
Set Rs = Conn.Execute(Sql )
do while not Rs.eof
%>
<option value="<%=Rs("ID")%>"><%=Rs("Names")%></option>
<%
Rs.movenext
loop
Rs.close
set Rs=nothing
%>
</select>
<select name="Setting" >
<option value="1">图文</option>
<option value="2">简明</option>
</select>
首页显示：<input name="Indexshow" type="checkbox" id="Indexshow" style="border:0px" value="True">
排列 <input name="Order" type="text" id="Order" size="2" maxlength="5" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(255,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid" >
<input type="submit" name="Submit" value="添 加">
</td>
</tr>
</form>
</table>
<%end if%>
<% if Request("Action")="Modify" then%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form name="Modify" method="post" action="Admin_SortSave.asp?Action=Modify">
<tr>
<td align="center">
<%
Id=Request("Id")
SqlModify = "Select * from Sort where Id="&Id&" "
Set RsModify = Conn.Execute(SqlModify)
do while not RsModify.eof
%>
<font color="#FF0000">
<input name="ID" type="hidden" id="ID3" value="<%=RsModify("ID")%>" size="1" >
</font> <font color="#FF0000">修改: </font>
<input name="Names" type="text" id="Names" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; BORDER-BOTTOM: rgb(0,0,0) 1px solid" value="<%=RsModify("Names")%>" size="18" maxlength="30" >
<select name="B_id" id="B_id" >
<option value="0" >作为根分类</option>
<%
Sql2 = "Select * from Sort where B_id=0 and Setting<>3 and Setting<>5 and id<>"&Id&" order by S_Order "
Set Rs2= Conn.Execute(Sql2 )
do while not Rs2.eof
%>
<option value="<%=Rs2("ID")%>" <% if RsModify("B_id")=Rs2("ID") then%>selected<%end if%>><%=Rs2("Names")%></option>
<%
Rs2.movenext
loop
Rs2.close
set Rs2=nothing
%>
</select>
<input type="submit" name="Submit" value="修 改">
<%
RsModify.movenext
loop
RsModify.close
set RsModify=nothing
%>
</td>
</tr>
</form>
</table>
<% end if %>
</div></td>
</tr>
</table></td>
</tr>
<tr>
<td height="56" bgcolor="#FFFFFF"> <table width="100%" border="0" align="right" cellpadding="1" cellspacing="0">
<tr>
<td height="7" colspan="2"></td>
</tr>
<tr>
<td width="29%" height="21">
<div align="center">分类信息</div></td>
<td width="71%">
<div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr align="center">
<td width="70%" height="19">类别信息设置</td>
<td width="30%">操作</td>
</tr>
</table>
</div></td>
</tr>
<%
SqlSort = "Select * from Sort where B_id=0 order by S_Order "
Set RsSort = Conn.Execute(SqlSort)
if RsSort.eof and RsSort.bof then
Response.write("<div align=center>还没有设置分类.......</div>")
response.end
else
do while not RsSort.eof
%>
<tr>
<td colspan="2"> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<form name="Setting" method="post" action="Admin_SortSave.asp?Action=Setting">
<tr>
<td width="25%"> <img src="Images/Gaobei_Guide.gif" width="11" height="11">
<input name="Names" type="text" value="<%=RsSort("Names")%>" size="12" maxlength="25" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(255,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid" >
<a href="Admin_sort.asp?action=Modify&id=<%=RsSort("ID")%>">修改</a> </td>
<td width="75%">
<div align="right">
<input name="ID" type="hidden" id="ID4" value="<%=RsSort("ID")%>" >
<input name="Setting" type="radio" value="1" <% if RsSort("Setting")=1 then%>checked<%end if%> style="BORDER: medium none; ">
图文
<input type="radio" name="Setting" value="3" <% if RsSort("Setting")=3 then%>checked<%end if%> style="BORDER: medium none; ">
一级
<% if RsSort("Setting")<>5 then %>
<input type="radio" name="Setting" value="5" <% if RsSort("Setting")=5 then%>checked<%end if%> style="BORDER: medium none; ">
单页
<%end if%>
<% if RsSort("Setting")=5 then%>
<a href="Admin_sort.asp?Id=<%=RsSort("ID")%>&Action=SetInfo" title="设置本页的内容"><font color="#FF0000">设置信息</font></a>
<% end if %>
<% if RsSort("Setting")<>5 then%>
首页显示：<input name="Indexshow" type="checkbox" id="Indexshow" style="border:0px" value="True" <% if RsSort("Indexshow")=True then%>checked<%end if%>>
<% end if %>
排列
<input name="Order" type="text" id="Order" value="<%=RsSort("S_Order")%>" size="2" maxlength="5" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(255,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid" >
<input name="Submit2" type="submit" id="Submit2" value="设定">
<input type="button" value="删除" onClick=location.href='Admin_SortSave.asp?action=B_Del&id=<%=RsSort("ID")%>' name=del>
</div></td>
</tr>
</form>
</table></td>
</tr>
<% if RsSort("Setting")<>3 and RsSort("Setting")<>5 then%>
<%
SqlClass = "Select * from Sort where B_ID= "& RsSort("ID") &" order by S_Order "
Set RsClass = Conn.Execute(SqlClass)
if RsClass.eof and RsClass.bof then
Response.write("")
else
do while not RsClass.eof
%>
<tr>
<td colspan="2"> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<form name="S_modify" method="post" action="Admin_SortSave.asp?action=Setting">
<tr>
<td width="27%" height="22">
<table width="151" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>├
<input name="Names" type="text" id="Names" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; BORDER-BOTTOM: rgb(0,0,0) 1px solid" value="<%=RsClass("Names")%>" size="12" >
<a href="Admin_sort.asp?action=Modify&id=<%=RsClass("ID")%>">修改</a></td>
</tr>
</table></td>
<td width="73%">
<div align="right">
<% if RsSort("Setting")<>4 then%>
<input type="radio" name="Setting" value="1" <% if RsClass("Setting")=1 then%>checked<%end if%> style="BORDER: medium none; ">
图文
<% if RsClass("Setting")=1 then%>
<font color="#FF0000"> 显示推荐图文：</font><input name="Tuijian" type="checkbox" id="Tuijian" style="border:0px" value="True" <% if RsClass("Tuijian")=True then%>checked<%end if%>>
<% end if %>
<input type="radio" name="Setting" value="3" <% if RsClass("Setting")=3 then%>checked<%end if%> style="BORDER: medium none; ">
单页
<% end if %>
<% if RsSort("Setting")=4 or RsClass("Setting")=3 then %>
<a href="Admin_sort.asp?Id=<%=RsClass("Id")%>&Action=SetInfo"><font color="#FF0000">设置本页的内容</font></a>
<% end if %>
<input name="ID" type="hidden" id="ID" value="<%=RsClass("ID")%>" size="1" >
排列
<input name="Order" type="text" id="Order" value="<%=RsClass("S_Order")%>" size="2" maxlength="5" style="OTTOM: rgb(0,0,0) 1px solid" >
<input name="Submit3" type="submit" id="Submit32" value="设定">
<input type="button" value="删除" onClick=window.open('Admin_SortSave.asp?action=Del&id=<%=RsClass("ID")%>') name=del>
</div></td>
</tr>
</form>
</table></td>
</tr>
<%
RsClass.movenext
loop
end if
RsClass.close
set RsClass=nothing
%>
<% end if %>
<%
RsSort.movenext
loop
end if
RsSort.close
set RsSort=nothing
conn.close
set conn=nothing
%>
</table></td>
</tr>
<tr>
<td height="23" bgcolor="#FFFFFF"> </td>
</tr>
<tr>
<td height="25" bgcolor="#EAEAEA"> </td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -