📄 admin_sort.asp
字号:
<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>后台管理 >> 分类管理</title>
<link href="../HXinclude/HX_Style.css" rel="stylesheet" type="text/css">
</head>
<body topmargin='20' leftmargin='0' bottommargin='0'>
<%
if WS_S.MemberPriv("WS_FrontSetadmin")<>1 then HX_GoBack "对不起,您的权限不够!",""
dim SqlSort,RsSort,sqlClass,rsClass,SqlSetInfo,RsSetInfo,SqlModify,RsModify
if Request("Action")="SetInfo" then
Id=Request("Id")
SqlSetInfo = "Select a125_names,Info,ID from a125_type where Id="&Id&" "
Set RsSetInfo = Conn.Execute(SqlSetInfo)
%>
<form name="form2" method="post" action="Admin_SortSave.asp?Action=SetInfo">
<table width='596' border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#115F8F'><tr><td colspan='2' bgcolor=ffffff>
<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td height='25' background='../hximages/titleline.gif'><font class='fontmenu'>设置页面内容</font></td></tr></table>
<form name="form2" method="post" action="Admin_SortSave.asp?Action=SetInfo">
<table width='100%' border='0' cellspacing='1' cellpadding='3' bgcolor='#f1f1f1'>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
<td width="35%" height="26">
<div align="right">设置的类别：<img src="../Images/a125_Guide.gif" width="11" height="11">
<input name="a125_names" type="text" id="a125_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("a125_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>
</table>
<table width='100%' border='0' cellspacing='1' cellpadding='3' bgcolor='#f1f1f1'>
<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>
<tr>
<td height="25" bgcolor="#EAEAEA">
<div align="center">
<input name="Submit22" type="submit" id="Submit223" value="设定">
<input type="reset" name="Submit4" value="重置">
</div></td>
</tr>
</table>
</form></td>
</tr>
</table>
<%
RsSetInfo.close
set RsSetInfo =nothing
conn.close
Set conn=nothing
response.end
end if %>
<table width='596' border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#115F8F'><tr><td colspan='2' bgcolor=ffffff>
<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td height='25' background='../hximages/titleline.gif'><font class='fontmenu'>分类管理</font></td></tr></table>
<table width='100%' border='0' cellspacing='1' cellpadding='3' bgcolor='#f1f1f1'>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
<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="a125_names" type="text" id="a125_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="a125_big_id" id="a125_big_id" >
<option value="0" >作为根分类</option>
<%
Sql = "Select ID,a125_names,a125_big_id,a125_setting,a125_order from a125_type where a125_big_id=0 and a125_setting<>3 and a125_setting<>5 order by a125_order "
Set Rs = Conn.Execute(Sql )
do while not Rs.eof
%>
<option value="<%=Rs("ID")%>"><%=Rs("a125_names")%></option>
<%
Rs.movenext
loop
Rs.close
set Rs=nothing
%>
</select>
<select name="a125_setting" style="display:none">
<option value="1">图文</option>
</select>
首页显示：<input name="Indexshow" type="checkbox" id="Indexshow" style="border:0px" value="True">
排列 <input name="a125_order" type="text" id="a125_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 a125_type 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="a125_names" type="text" id="a125_names" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; BORDER-BOTTOM: rgb(0,0,0) 1px solid" value="<%=RsModify("a125_names")%>" size="18" maxlength="30" >
<select name="a125_big_id" id="a125_big_id" >
<option value="0" >作为根分类</option>
<%
Sql2 = "Select ID,a125_names,a125_big_id,a125_setting,a125_order from a125_type where a125_big_id=0 and a125_setting<>3 and a125_setting<>5 and id<>"&Id&" order by a125_order "
Set Rs2= Conn.Execute(Sql2 )
do while not Rs2.eof
%>
<option value="<%=Rs2("ID")%>" <% if RsModify("a125_big_id")=Rs2("ID") then%>selected<%end if%>><%=Rs2("a125_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>
<div align="center">
<table width='100%' border='0' cellspacing='1' cellpadding='3' bgcolor='#f1f1f1'>
<tr bgcolor='#A1BBE0' class='td4'>
<td width="18%" height="21">分类信息</td>
<td width="60%" height="19">类别信息设置</td>
<td width="22%">操作</td>
</tr>
</table>
</div>
</td>
</tr>
<%
SqlSort = "Select ID,a125_names,a125_big_id,a125_setting,a125_order,Indexshow,Tuijian,blank from a125_type where a125_big_id=0 order by a125_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 bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
<td colspan="2" bordercolorlight="#C0C0C0"> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<form name="a125_setting" method="post" action="Admin_SortSave.asp?Action=a125_setting">
<tr>
<td width="14%"> <img src="../Images/a125_Guide.gif" width="11" height="11">
<input name="a125_names" type="text" value="<%=RsSort("a125_names")%>" size="9" 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" >
</td>
<td width="86%">
<div align="right">
<input name="ID" type="hidden" id="ID4" value="<%=RsSort("ID")%>" >
<input name="a125_setting" type="radio" value="1" <% if RsSort("a125_setting")=1 then%>checked<%end if%> style="BORDER: medium none; ">多级 <input type="radio" name="a125_setting" value="3" <% if RsSort("a125_setting")=3 then%>checked<%end if%> style="BORDER: medium none; ">一级
<% if RsSort("a125_setting")<>5 then %><input type="radio" name="a125_setting" value="5" <% if RsSort("a125_setting")=5 then%>checked<%end if%> style="BORDER: medium none; ">单页<%end if%>
<% if RsSort("a125_setting")=5 then%><a href="Admin_sort.asp?Id=<%=RsSort("ID")%>&Action=SetInfo" title="设置本页的内容"> <font color="#FF0000">设置信息</font></a> <% end if %>
<% if RsSort("a125_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="a125_order" type="text" id="a125_order" value="<%=RsSort("a125_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_sort.asp?action=Modify&id=<%=RsSort("ID")%>'" name=type>
<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("a125_setting")<>3 and RsSort("a125_setting")<>5 then%>
<%
SqlClass = "Select ID,a125_names,a125_big_id,a125_setting,a125_order,Indexshow,Tuijian,blank,Istopic from a125_type where a125_big_id= "& RsSort("ID") &" order by a125_order "
Set RsClass = Conn.Execute(SqlClass)
if RsClass.eof and RsClass.bof then
Response.write("")
else
do while not RsClass.eof
%>
<tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'>
<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=a125_setting">
<tr>
<td width="14%" height="22">
├ <input name="a125_names" type="text" id="a125_names" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; BORDER-BOTTOM: rgb(0,0,0) 1px solid" value="<%=RsClass("a125_names")%>" size="9" >
</td>
<td width="86%">
<div align="right">
<% if RsSort("a125_setting")<>4 then%>
<input type="radio" name="a125_setting" value="1" <% if RsClass("a125_setting")=1 then%>checked<%end if%> style="BORDER: medium none; ">多级
<% if RsClass("a125_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="a125_setting" value="3" <% if RsClass("a125_setting")=3 then%>checked<%end if%> style="BORDER: medium none; ">单页<% end if %>
<% if RsSort("a125_setting")=4 or RsClass("a125_setting")=3 then %>
<a href="Admin_sort.asp?Id=<%=RsClass("Id")%>&Action=SetInfo"><font color="#FF0000">设置本页的内容</font></a>
<% end if %>
<% if RsSort("a125_setting")=1 then%>
专题:<input name="Istopic" type="checkbox" id="Istopic" style="border:0px" value="True" <% if RsClass("Istopic")=True then%>checked<%end if%>>
<% end if %>
<input name="ID" type="hidden" id="ID" value="<%=RsClass("ID")%>" size="1" >
排列
<input name="a125_order" type="text" id="a125_order" value="<%=RsClass("a125_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="location.href='Admin_sort.asp?action=Modify&id=<%=RsSort("ID")%>'" name=type>
<input type="button" value="删除" onClick="location.href='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="#f1f1f1"> </td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -