📄 ad_class_photo.asp
字号:
<tr class="title">
<td height="22" colspan="2" align="center"><strong>修 改 图 片 栏 目</strong></td>
</tr>
<tr class="tdbg">
<td width="350"><strong>所属栏目：</strong><br>
如果你想改变所属栏目，请<a href='ad_Class_Photo.asp?Action=Move&ClassID=<%=ClassID%>'>点此移动栏目</a></td>
<td> <%
if rsClass("ParentID")<=0 then
response.write "无（作为一级栏目）"
else
dim rsParentClass,sqlParentClass
sqlParentClass="Select * From PhotoClass where ClassID in (" & rsClass("ParentPath") & ") order by Depth"
set rsParentClass=server.CreateObject("adodb.recordset")
rsParentClass.open sqlParentClass,conn,1,1
do while not rsParentClass.eof
for i=1 to rsParentClass("Depth")
response.write " "
next
if rsParentClass("Depth")>0 then
response.write "└"
end if
response.write " " & rsParentClass("ClassName") & "<br>"
rsParentClass.movenext
loop
rsParentClass.close
set rsParentClass=nothing
end if
%> </select></td>
</tr>
<tr class="tdbg">
<td width="350"><strong>栏目名称：</strong></td>
<td><input name="ClassName" type="text" value="<%=rsClass("ClassName")%>" size="37" maxlength="20">
<input name="ClassID" type="hidden" id="ClassID" value="<%=rsClass("ClassID")%>"></td>
</tr>
<tr class="tdbg">
<td width="350"><strong>栏目说明：<br>
</strong> 鼠标移至栏目名称上时将显示设定的说明文字（不支持HTML）</td>
<td><textarea name="Readme" cols="30" rows="4" id="Readme"><%=rsClass("ReadMe")%></textarea></td>
</tr>
<tr class="tdbg">
<td><strong>是否是推荐栏目：</strong><br>
推荐栏目将在首页及此栏目的父栏目上显示图片列表</td>
<td> <input name="IsElite" type="radio" value="Yes" <%if rsClass("IsElite")=True then response.write " checked"%>>
是 <input type="radio" name="IsElite" value="No" <%if rsClass("IsElite")=False then response.write " checked"%>>
否 </td>
</tr>
<tr class="tdbg">
<td><strong>是否在顶部导航栏显示：</strong><br>
只选项只对一级栏目有效。</td>
<td><input name="ShowOnTop" type="radio" value="Yes" <%if rsClass("ShowOnTop")=True then response.write " checked"%>>
是 <input type="radio" name="ShowOnTop" value="No" <%if rsClass("ShowOnTop")=False then response.write " checked"%>>
否 </td>
</tr>
<tr class="tdbg">
<td width="350"><strong>栏目配色模板：</strong><br>
相关模板中包含CSS、颜色、图片等信息</td>
<td><%call Admin_ShowSkin_Option(rsClass("SkinID"))%></td>
</tr>
<tr class="tdbg">
<td width="350"><strong>版面设计模板：</strong><br>
相关模板中包含了栏目设计的版式等信息，如果是自行添加的设计模板，可能会导致“栏目配色模板”失效。 </td>
<td><%call Admin_ShowLayout_Option(6,rsClass("LayoutID"))%></td>
</tr>
<tr class="tdbg">
<td width="350"><strong>栏目图片地址：</strong><br>
图片会显示在栏目前面。注意图片大小。</td>
<td><input name="ClassPicUrl" type="text" id="ClassPicUrl" value="<%=rsClass("ClassPicUrl")%>" size="37" maxlength="255">
（预留功能）</td>
</tr>
<tr class="tdbg">
<td width="350"><strong>栏目编辑：</strong><br>
多个编辑请用“|”分隔，如：ark|dilys|sws2000<br>
无需添加“图片总编”以上级别的管理员<br>
管理员权限采用权限继承制度</td>
<td><input name="ClassMaster" type="text" id="ClassMaster" value="<%=rsClass("ClassMaster")%>" size="37" maxlength="100" disabled>
</td>
</tr>
<tr class="tdbg">
<td width="350"><strong>栏目链接地址：</strong><br>
如果想将栏目链接到外部地址，请输入完整的URL地址，否则请保持为空。</td>
<td><input name="LinkUrl" type="text" id="LinkUrl" value="<%=rsClass("LinkUrl")%>" size="37" maxlength="255"></td>
</tr>
<tr class="tdbg">
<td width="350"><strong>栏目浏览权限：</strong><br>
只有具有相应权限的人才能浏览此栏目中的图片。</td>
<td><select name="BrowsePurview" id="BrowsePurview">
<option value="9999" <%if rsClass("BrowsePurview")=9999 then response.write " selected"%>>游客</option>
<option value="999" <%if rsClass("BrowsePurview")=999 then response.write " selected"%>>注册用户</option>
<option value="99" <%if rsClass("BrowsePurview")=99 then response.write " selected"%>>收费用户</option>
<option value="9" <%if rsClass("BrowsePurview")=9 then response.write " selected"%>>VIP用户</option>
<option value="5" <%if rsClass("BrowsePurview")=5 then response.write " selected"%>>管理员</option>
</select></td>
</tr>
<tr class="tdbg">
<td width="350"><strong>栏目发表图片权限：</strong><br>
只有具有相应权限的人才能在此栏目中发表图片。</td>
<td><select name="AddPurview" id="AddPurview">
<option value="999" <%if rsClass("AddPurview")=999 then response.write " selected"%>>注册用户</option>
<option value="99" <%if rsClass("AddPurview")=99 then response.write " selected"%>>收费用户</option>
<option value="9" <%if rsClass("AddPurview")=9 then response.write " selected"%>>VIP用户</option>
<option value="5" <%if rsClass("AddPurview")=5 then response.write " selected"%>>管理员</option>
</select></td>
</tr>
<tr class="tdbg">
<td height="40" colspan="2" align="center"><input name="Action" type="hidden" id="Action" value="SaveModify">
<input name="Submit" type="submit" value=" 保存修改结果 " <%if SkinCount=0 or LayoutCount=0 then response.write " disabled"%> style="cursor:hand;">
<input name="Cancel" type="button" id="Cancel" value=" 取 消 " onClick="window.location.href='ad_Class_Photo.asp'" style="cursor:hand;">
<%if SkinCount=0 then response.write "<li><font color=red>请先添加栏目配色模板</font></li>"
if SkinCount=0 then response.write "<li><font color=red>请先添加栏目栏目设计模板</font></li>" %></td>
</tr>
</table>
</form>
<script language="JavaScript" type="text/JavaScript">
function check()
{
if (document.form1.ClassName.value=="")
{
alert("栏目名称不能为空！");
document.form1.ClassName.focus();
return false;
}
}
</script>
<%
end if
rsClass.close
set rsClass=nothing
end sub
sub MoveClass()
dim ClassID,sql,rsClass,i
dim SkinID,LayoutID,BrowsePurview,AddPurview
ClassID=trim(request("ClassID"))
if ClassID="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>参数不足！</li>"
exit sub
else
ClassID=CLng(ClassID)
end if
sql="select * From PhotoClass where ClassID=" & ClassID
set rsClass=server.CreateObject ("Adodb.recordset")
rsClass.open sql,conn,1,3
if rsClass.bof and rsClass.eof then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>找不到指定的栏目！</li>"
else
%>
<form name="form1" method="post" action="ad_Class_Photo.asp">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="title">
<td height="22" colspan="2" align="center"><strong>移 动 图 片 栏 目</strong></td>
</tr>
<tr class="tdbg">
<td width="200"><strong>栏目名称：</strong></td>
<td><%=rsClass("ClassName")%> <input name="ClassID" type="hidden" id="ClassID" value="<%=rsClass("ClassID")%>"></td>
</tr>
<tr class="tdbg">
<td width="200"><strong>当前所属栏目：</strong></td>
<td>
<%
if rsClass("ParentID")<=0 then
response.write "无（作为一级栏目）"
else
dim rsParent,sqlParent
sqlParent="Select * From PhotoClass where ClassID in (" & rsClass("ParentPath") & ") order by Depth"
set rsParent=server.CreateObject("adodb.recordset")
rsParent.open sqlParent,conn,1,1
do while not rsParent.eof
for i=1 to rsParent("Depth")
response.write " "
next
if rsParent("Depth")>0 then
response.write "└"
end if
response.write " " & rsParent("ClassName") & "<br>"
rsParent.movenext
loop
rsParent.close
set rsParent=nothing
end if
%>
</td>
</tr>
<tr class="tdbg">
<td width="200"><strong>移动到：</strong><br>
不能指定为当前栏目的下属子栏目<br>
不能指定为外部栏目</td>
<td><select name="ParentID" size="2" style="height:300px;width:500px;"><%call Admin_ShowClass_Option(0,rsClass("ParentID"))%></select></td>
</tr>
<tr class="tdbg">
<td height="40" colspan="2" align="center"><input name="Action" type="hidden" id="Action" value="SaveMove">
<input name="Submit" type="submit" value=" 保存移动结果 " style="cursor:hand;">
<input name="Cancel" type="button" id="Cancel" value=" 取 消 " onClick="window.location.href='ad_Class_Photo.asp'" style="cursor:hand;"></td></tr>
</table>
</form>
<%
end if
rsClass.close
set rsClass=nothing
end sub
sub Order()
dim sqlClass,rsClass,i,iCount,j
sqlClass="select * From PhotoClass where ParentID=0 order by RootID"
set rsClass=server.CreateObject("adodb.recordset")
rsClass.open sqlClass,conn,1,1
iCount=rsClass.recordcount
%>
<br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr class="title">
<td height="22" colspan="4" align="center"><strong>一 级 栏 目 排 序</strong></td>
</tr>
<%
j=1
do while not rsClass.eof
%>
<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td width="200"> <%=rsClass("ClassName")%></td>
<%
if j>1 then
response.write "<form action='ad_Class_Photo.asp?Action=UpOrder' method='post'><td width='150'>"
response.write "<select name=MoveNum size=1><option value=0>向上移动</option>"
for i=1 to j-1
response.write "<option value="&i&">"&i&"</option>"
next
response.write "</select>"
response.write "<input type=hidden name=ClassID value="&rsClass("ClassID")&">"
response.write "<input type=hidden name=cRootID value="&rsClass("RootID")&"> <input type=submit name=Submit value=修改>"
response.write "</td></form>"
else
response.write "<td width='150'> </td>"
end if
if iCount>j then
response.write "<form action='ad_Class_Photo.asp?Action=DownOrder' method='post'><td width='150'>"
response.write "<select name=MoveNum size=1><option value=0>向下移动</option>"
for i=1 to iCount-j
response.write "<option value="&i&">"&i&"</option>"
next
response.write "</select>"
response.write "<input type=hidden name=ClassID value="&rsClass("ClassID")&">"
response.write "<input type=hidden name=cRootID value="&rsClass("RootID")&"> <input type=submit name=Submit value=修改>"
response.write "</td></form>"
else
response.write "<td width='150'> </td>"
end if
%>
<td> </td>
</tr>
<%
j=j+1
rsClass.movenext
loop
%>
</table>
<%
rsClass.close
set rsClass=nothing
end sub
sub OrderN()
dim sqlClass,rsClass,i,iCount,trs,UpMoveNum,DownMoveNum
sqlClass="select * From PhotoClass order by RootID,OrderID"
set rsClass=server.CreateObject("adodb.recordset")
rsClass.open sqlClass,conn,1,1
%>
<br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr class="title">
<td height="22" colspan="4" align="center"><strong>N 级 栏 目 排 序</strong></td>
</tr>
<%
do while not rsClass.eof
%>
<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td width="300">
<%
for i=1 to rsClass("Depth")
response.write " "
next
if rsClass("Child")>0 then
response.write "<img src='Images/tree_folder4.gif' width='15' height='15' valign='abvmiddle'>"
else
response.write "<img src='Images/tree_folder3.gif' width='15' height='15' valign='abvmiddle'>"
end if
if rsClass("ParentID")=0 then
response.write "<b>"
end if
response.write rsClass("ClassName")
if rsClass("Child")>0 then
response.write "(" & rsClass("Child") & ")"
end if
%></td>
<%
if rsClass("ParentID")>0 then '如果不是一级栏目，则算出相同深度的栏目数目，得到该栏目在相同深度的栏目中所处位置（之上或者之下的栏目数）
'所能提升最大幅度应为For i=1 to 该版之上的版面数
set trs=conn.execute("select count(ClassID) From PhotoClass where ParentID="&rsClass("ParentID")&" and OrderID<"&rsClass("OrderID")&"")
UpMoveNum=trs(0)
if isnull(UpMoveNum) then UpMoveNum=0
if UpMoveNum>0 then
response.write "<form action='ad_Class_Photo.asp?Action=UpOrderN' method='post'><td width='150'>"
response.write "<select name=MoveNum size=1><option value=0>向上移动</option>"
for i=1 to UpMoveNum
response.write "<option value="&i&">"&i&"</option>"
next
response.write "</select>"
response.write "<input type=hidden name=ClassID value="&rsClass("ClassID")&"> <input type=submit name=Submit value=修改>"
response.write "</td></form>"
else
response.write "<td width='150'> </td>"
end if
trs.close
'所能降低最大幅度应为For i=1 to 该版之下的版面数
set trs=conn.execute("select count(ClassID) From PhotoClass where ParentID="&rsClass("ParentID")&" and orderID>"&rsClass("orderID")&"")
DownMoveNum=trs(0)
if isnull(DownMoveNum) then DownMoveNum=0
if DownMoveNum>0 then
response.write "<form action='ad_Class_Photo.asp?Action=DownOrderN' method='post'><td width='150'>"
response.write "<select name=MoveNum size=1><option value=0>向下移动</option>"
for i=1 to DownMoveNum
response.write "<option value="&i&">"&i&"</option>"
next
response.write "</select>"
response.write "<input type=hidden name=ClassID value="&rsClass("ClassID")&"> <input type=submit name=Submit value=修改>"
response.write "</td></form>"
else
response.write "<td width='150'> </td>"
end if
trs.close
else
response.write "<td colspan=2> </td>"
end if
%>
<td> </td>
</tr>
<%
UpMoveNum=0
DownMoveNum=0
rsClass.movenext
loop
%>
</table>
<%
rsClass.close
set rsClass=nothing
end sub
sub Reset()
%>
<br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr class="title">
<td height="22" colspan="3" align="center"><strong>复 位 所 有 图 片 栏 目</strong></td>
</tr>
<tr class="tdbg">
<td align="center">
<form name="form1" method="post" action="ad_Class_Photo.asp?Action=SaveReset">
<table width="80%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="150"><font color="#FF0000"><strong>注意：</strong></font><br>
如果选择复位所有栏目，则所有栏目都将作为一级栏目，这时您需要重新对各个栏目进行归属的基本设置。不要轻易使用该功能，仅在做出了错误的设置而无法复原栏目之间的关系和排序的时候使用。
</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -