📄 admin_class.asp
字号:
<!--#include file="Inc/Const.asp"-->
<%
dim Action,ParentID,ParentPath,PrevID
dim BrowsePurview
Dim strTitleName
Action=Trim(Request("Action"))
ParentID=Cl.GetClng(Trim(request("ParentID")))
if ChannelID=0 then Cl.ShowErr("<br /><li>请正确指定频道或者模块ID！</li>")
if Not Cl.TrueChannelPurview(1,ChannelID) then Cl.ShowErr("<br /><li>您无此操作权限！</li>")
Cl.Load_ChannelSetting(ChannelID)
FileName="Admin_Class.asp?ChannelID=" & ChannelID
Header
With Response
.write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""1"" class=""border"">"
.write "<tr class=""title"">"
.write " <td height=""22"" colspan=""2"" align=""center""><strong>" & Cl.Channel.selectSingleNode("@channelitemname").text & "栏目管理</strong></td>"
.write "</tr>"
.write "<tr class=""tdbg"">"
.write " <td width=""70"" height=""30""><strong>管理导航：</strong></td>"
.write " <td height=""30"">"
.write " <a href=""" & FileName & """>" & Cl.Channel.selectSingleNode("@channelitemname").text & "栏目首页</a> | "
.write " <a href=""" & FileName & "&Action=Order"">一级栏目排序</a> | "
.write " <a href=""" & FileName & "&Action=OrderN"">N级栏目排序</a> | "
.write " <a href=""" & FileName & "&Action=Reset"">复位所有" & Cl.Channel.selectSingleNode("@channelitemname").text & "栏目</a> | "
.write " <a href=""" & FileName & "&Action=Unite"">" & Cl.Channel.selectSingleNode("@channelitemname").text & "栏目合并</a>"
.write " <br />"
.write " <a href=""" & FileName & "&Action=Add"">添加" & Cl.Channel.selectSingleNode("@channelitemname").text & "栏目</a> | "
.write " <a href=""" & FileName & "&Action=Add2""><font color=""#0000ff"">添加" & Cl.Channel.selectSingleNode("@channelitemname").text & "栏目(批量)</font></a> | "
.write " <a href=""" & FileName & "&Action=UpDateClassData"">更新" & Cl.Channel.selectSingleNode("@channelitemname").text & "栏目数据</a> | "
.write " <a href=""" & FileName & "&Action=Batch""><font color=""#0000ff"">批量设置栏目属性</font></a> </td>"
.write " </tr>"
.write "</table><br />"
End With
Select Case Action
Case "Add"
call ClassInfo()
Case "SaveAdd"
call SaveAdd()
Case "Add2"
call Add2()
Case "SaveAdd2"
call SaveAdd2()
Case "Modify"
call ClassInfo()
Case "SaveModify"
call SaveModify()
Case "Move"
call MoveClass()
Case "SaveMove"
call SaveMove()
Case "Del"
call DeleteClass()
Case "Clear"
call ClearClass()
Case "UpOrder"
call UpOrder()
Case "DownOrder"
call DownOrder()
Case "Order"
call Order()
Case "UpOrderN"
call UpOrderN()
Case "DownOrderN"
call DownOrderN()
Case "OrderN"
call OrderN()
Case "Reset"
call Reset()
Case "SaveReset"
call SaveReset()
Case "Unite"
call Unite()
Case "SaveUnite"
call SaveUnite()
Case "UpDateClassData"
call UpDateClassData()
Call Cl.ShowSuc("恭喜你，更新成功！返回 <a href='"&FileName&"'>栏目管理首页</a> 。")
Case "RefreshClassJs"
Call RefreshClassJs()
Case "Batch"
call Batch()
Case "SaveBatch"
call SaveBatch()
Case else
call main()
End Select
Footer
Sub main()
dim arrID,arrShowLine(10)
dim sqlClass,rsClass,iDepth,TempName
arrID=Trim(Request("arrID"))
arrID=Replace(arrID," ","")
if Not IsNumeric(Replace(arrID,",","")) then arrID=0
for i=0 to ubound(arrShowLine)
arrShowLine(i)=False
next
sqlClass="Select * From Cl_Class where (ParentID In ("&arrID&") or Depth=0) and ChannelID=" & ChannelID & " order by RootID,OrderID"
Rem ACCESS sqlClass="select * From Cl_Class where ChannelID="&ChannelID&" order by RootID,OrderID"
set rsClass=server.CreateObject("adodb.recordset")
OpenConn : rsClass.open sqlClass,Conn,1,1
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr class="title">
<td width="30" align="center"><strong>ID</strong></td>
<td height="22" align="center"><strong>栏目名称/[目录]</strong></td>
<td width="40" align="center"><strong>属性</strong></td>
<td width="300" height="22" align="center"><strong>操作选项</strong></td>
</tr>
<%
do while not rsClass.eof
%>
<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
<td width="30" align="center"><font color='#0000ff'><%=rsClass("ClassID")%></font></td>
<td> <%
iDepth=rsClass("Depth")
if rsClass("NextID")>0 then
arrShowLine(iDepth)=True
else
arrShowLine(iDepth)=False
end if
if iDepth>0 then
for i=1 to iDepth
if i=iDepth then
if rsClass("NextID")>0 then
response.write "<img src='"&Cl.Webdir&"images/Tree/line1.gif' width='17' height='16' valign='abvmiddle'>"
else
response.write "<img src='"&Cl.Webdir&"images/Tree/line2.gif' width='17' height='16' valign='abvmiddle'>"
end if
else
if arrShowLine(i)=True then
response.write "<img src='"&Cl.Webdir&"images/Tree/line3.gif' width='17' height='16' valign='abvmiddle'>"
else
response.write "<img src='"&Cl.Webdir&"images/Tree/line4.gif' width='17' height='16' valign='abvmiddle'>"
end if
end if
next
end if
Rem ACCESS Begin========================================================================
'TempName="<a href='"&FileName&"&Action=Modify&ClassID=" & rsClass("ClassID") & "' title='" & rsClass("ReadMe") & "'>" & rsClass("ClassName") & "</a>"
'if rsClass("Child")>0 then
' response.write "<img src='"&Cl.Webdir&"images/Tree/folder4.gif' width='15' height='15' valign='abvmiddle'>"
' TempName = TempName & "(" & rsClass("Child") & ")"
'else
' response.write "<img src='"&Cl.Webdir&"images/Tree/folder3.gif' width='15' height='15' valign='abvmiddle'>"
'end if
'if rsClass("Depth")=0 then
' response.write "<b>" & TempName & "</b>"
'else
' response.write TempName
'end if
Rem ACCESS End========================================================================
Rem SQL Begin========================================================================
if rsClass("Child")>0 then
if Instr(","&arrID&",",","&rsClass("ParentPath") & "," & rsClass("ClassID")&",")>0 then
response.write "<a href='"&FileName&"&arrID=" & rsClass("ParentPath") & "' title='点击收起栏目'><img src='"&Cl.Webdir&"images/Tree/folder3.gif' width='15' height='15' valign='abvmiddle' border=0><b>" & rsClass("ClassName") & "</b> (<font color='#ff0033'>" & rsClass("Child") & "</font>)</a>"
else
response.write "<a href='"&FileName&"&arrID=" & rsClass("ParentPath") & "," & rsClass("ClassID") & "' title='有子栏目，点击展开栏目'><img src='"&Cl.Webdir&"images/Tree/folder4.gif' width='15' height='15' valign='abvmiddle' border=0><b>" & rsClass("ClassName") & "</b> (<font color='#ff0033'>" & rsClass("Child") & "</font>)</a>"
end if
else
response.write "<a href='"&FileName&"&Action=Modify&ClassID="&rsClass("ClassID")&"' title='点击修改栏目'><img src='"&Cl.Webdir&"images/Tree/folder3.gif' width='15' height='15' valign='abvmiddle' border=0>" & rsClass("ClassName") & "</a>"
end if
Rem SQL End========================================================================
response.write " <font color='#0066ff'>[" & rsClass("ClassDir") & "]</font>"
%> </td>
<td width="40" align="center"> <%
if rsClass("IsOuter")=1 then
response.write "<font color=red>外</font> "
else
response.write "<font color=green>内</font> "
end if
if rsClass("IsElite")=True then
response.write "<font color=blue>荐</font>"
else
response.write "普"
end if
%> </td>
<td align="center"><a href="<%=FileName%>&Action=Add&ParentID=<%=rsClass("ClassID")%>">添加子栏目</a>
| <a href="<%=FileName%>&Action=Modify&ClassID=<%=rsClass("ClassID")%>">修改设置</a>
| <a href="<%=FileName%>&Action=Move&ClassID=<%=rsClass("ClassID")%>">移动栏目</a>
| <a href="<%=FileName%>&Action=Clear&ClassID=<%=rsClass("ClassID")%>" onClick="return ConfirmDel3();">清空</a>
| <a href="<%=FileName%>&Action=Del&ClassID=<%=rsClass("ClassID")%>" onClick="<%if rsClass("Child")>0 then%>return ConfirmDel1();<%else%>return ConfirmDel2();<%end if%>">删除</a></td>
</tr>
<%
rsClass.movenext
loop
%>
<form name="form1" method="Post" action="<%=FileName%>">
<tr class="tdbg">
<td height="40" colspan="7" align="center">
<input name="Action" type="hidden" id="Action" value="RefreshClassJs">
<input name="Submit" type="submit" value=" 刷新<%=Cl.Channel.selectSingleNode("@channelitemname").text%>栏目JS "></td>
</tr>
</form>
</table>
<script language="JavaScript" type="text/JavaScript">
function ConfirmDel1()
{
alert("此栏目下还有子栏目，必须先删除下属子栏目后才能删除此栏目！");
return false;
}
function ConfirmDel2()
{
if(confirm("删除栏目将同时删除此栏目中的所有数据，并且不能恢复！确定要删除此栏目吗？"))
return true;
else
return false;
}
function ConfirmDel3()
{
if(confirm("清空栏目将把栏目（包括子栏目）的所有数据放入回收站中！确定要清空此栏目吗？"))
return true;
else
return false;
}
</script>
<br /><br />
<b>说明：</b><br />
属性中的各项含义：<font color="red">外</font>---外部栏目，<font color="green">内</font>---内部栏目，<font color="blue">荐</font>---推荐栏目，普---普通栏目
<br /><br />
<%
end sub
Sub ClassInfo()
Dim Prs,ClassID,sAction,SubmitValue,sParentName
Dim sClassName,sClassDir,sReadme,sIsElite,sShowOnTop,sClassMaster,sClassPicUrl,sIsOuter,sLinkUrl
Dim sCommentIsChk,sAddIsChk,sCommentGroup,sAddPoint,sMaxLimit,sProjectID,sTemplateID,sCssID
Dim sDisabledAdd,sVipUser
if Action="Add" then
if ParentID>0 then
Set Prs=Cl.Execute("Select ClassID,ClassName,BrowsePurview,DisabledAdd,AddIsChk,AddPoint,MaxLimit,CommentGroup,CommentIsChk,IsOuter,VipUser,ProjectID,TemplateID,CssID From Cl_Class Where ClassID="&ParentID&"")
if Prs.bof and Prs.eof then
Prs.Close : Set Prs=Nothing
Cl.ShowErr("<br /><li>找不到指定的栏目！</li>")
End if
sParentName = Prs(1) : BrowsePurview = Prs(2)
sDisabledAdd = Prs(3)
sAddIsChk = Prs(4) : sAddPoint = Prs(5)
sMaxLimit = Prs(6) : sCommentGroup = Prs(7)
sCommentIsChk = Prs(8) : sIsOuter = Prs(9)
sVipUser = Prs(10) : sProjectID = Prs(11)
sTemplateID = Prs(12) : sCssID = Prs(13)
Prs.Close : Set Prs=Nothing
else
BrowsePurview = 0 : sDisabledAdd=0
sCommentGroup = Cl.Web_Setting(34): sCommentIsChk = True
sAddIsChk = True : sAddPoint = 0
sMaxLimit = 0 : sIsOuter = 0
sVipUser = "" : sProjectID = 0
sTemplateID = 0 : sCssID = 0
end if
sClassName = "" : sClassDir = ""
sReadme = "" : sIsElite = True
sShowOnTop = True : sClassPicUrl = ""
sClassMaster = "" : sLinkUrl = ""
sAction = "SaveAdd" : SubmitValue = "添 加"
elseif Action="Modify" then
ClassID=Cl.GetClng(request("ClassID"))
if ClassID=0 then Cl.ShowErr("<br /><li>参数不足！</li>")
set Prs=Cl.Execute("select * From Cl_Class where ClassID=" & ClassID & "")
if Prs.bof and Prs.eof then
Prs.Close : Set Prs=Nothing
Cl.ShowErr("<br /><li>找不到指定的栏目！</li>")
End if
ParentID = Prs("ParentID") : ParentPath = Prs("ParentPath")
sClassName = Prs("ClassName") : sClassDir = Prs("ClassDir")
sReadme = Prs("Readme") : sIsElite = Prs("IsElite")
sShowOnTop = Prs("ShowOnTop") : sClassMaster = Prs("ClassMaster")
sLinkUrl = Prs("LinkUrl") : BrowsePurview = Prs("BrowsePurview")
sDisabledAdd = Prs("DisabledAdd"): sCommentGroup = Prs("CommentGroup")
sCommentIsChk = Prs("CommentIsChk"):sAddIsChk = Prs("AddIsChk")
sAddPoint = Prs("AddPoint") : sMaxLimit = Prs("MaxLimit")
sIsOuter = Prs("IsOuter") : sVipUser = Prs("VipUser")
sProjectID = Prs("ProjectID") : sTemplateID = Prs("TemplateID")
sCssID = Prs("CssID")
sAction="SaveModify":SubmitValue="修 改"
Prs.Close : Set Prs=Nothing
end if
if Not IsNumeric(sAddPoint) then sAddPoint=0
%>
<form name="form1" method="post" action="<%=FileName%>" onsubmit="return check()">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="title">
<td height="22" colspan="2" align="center"><strong><%=SubmitValue%> 栏 目</strong></td>
</tr>
<%if Action="Modify" then%>
<tr class="tdbg">
<td width="150" align="right"><strong>所属栏目：</strong></td>
<td> <%
if ParentID<=0 then
response.write "无（作为一级栏目）"
else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -