📄 admin_linkclass.asp
字号:
<!--#include file="Inc/Const.asp"-->
<%
if Not Cl.TrueOtherPurview("LinkSite") then
Cl.ShowErr("<br /><li>您无此操作权限！</li>")
end if
const PageSize=20
dim Action,ParentID,ParentPath
Action=Trim(request("Action"))
ParentID=Trim(request("ParentID"))
if Not IsNumeric(ParentID) then
ParentID=0
else
ParentID=CLng(ParentID)
end if
FileName="Admin_LinkClass.asp"
Header
%>
<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="70" height="30"><strong>管理导航：</strong></td>
<td height="30"><a href="<%=FileName%>">管理首页</a> | <a href="<%=FileName%>?Action=Order">一级栏目排序</a> | <a href="<%=FileName%>?Action=OrderN">N级栏目排序</a> | <a href="<%=FileName%>?Action=Reset">复位所有栏目</a> | <a href="<%=FileName%>?Action=Unite">链接栏目合并</a>
<br />
<a href="<%=FileName%>?Action=Add">添加友情链接</a> | <a href="<%=FileName%>?Action=Add">添加链接栏目</a> | <a href="<%=FileName%>?Action=UpDateClassData">更新链接栏目数据</a>
</td>
</tr>
</table>
<br />
<%
OpenConn
Select Case Action
Case "Add"
call ClassInfo()
Case "SaveAdd"
call SaveAdd()
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 else
call Main()
End Select
if FoundErr=True then Cl.ShowErr(ErrMsg)
Footer
sub Main()
dim arrShowLine(10)
for i=0 to ubound(arrShowLine)
arrShowLine(i)=False
next
dim sqlClass,rsClass,iDepth,TempName
sqlClass="select * From Cl_LinkClass order by RootID,OrderID"
set rsClass=Cl.Execute(sqlClass)
%>
<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='../images/Tree/line1.gif' width='17' height='16' valign='abvmiddle'>"
else
response.write "<img src='../images/Tree/line2.gif' width='17' height='16' valign='abvmiddle'>"
end if
else
if arrShowLine(i)=True then
response.write "<img src='../images/Tree/line3.gif' width='17' height='16' valign='abvmiddle'>"
else
response.write "<img src='../images/Tree/line4.gif' width='17' height='16' valign='abvmiddle'>"
end if
end if
next
end if
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
TempName="<a href='"&FileName&"?Action=Modify&ClassID=" & rsClass("ClassID") & "' title='" & rsClass("ReadMe") & "'>" & rsClass("ClassName") & "</a>"
if rsClass("Child")>0 then
TempName = TempName & "(" & rsClass("Child") & ")"
end if
if rsClass("Depth")=0 then
response.write "<b>" & TempName & "</b>"
else
response.write TempName
end if
%> </td>
<td width="40" align="center"> <%
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
%>
</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>
<%
end sub
sub ClassInfo()
dim Prs,ClassID,sAction,SubmitValue
Dim sClassName,sClassDir,sReadme,sIsElite,sShowOnTop
Dim sCommentIsChk,sAddIsChk,sCommentGroup,sAddPoint
if Action="Add" then
sClassName="":sClassDir="":sReadme="":sIsElite=True:sShowOnTop=True
sAction="SaveAdd":SubmitValue="添 加"
elseif Action="Modify" then
ClassID=Trim(request("ClassID"))
if ClassID="" then
FoundErr=True
ErrMsg=ErrMsg & "<br /><li>参数不足！</li>"
exit sub
end if
ClassID=CLng(ClassID)
set Prs=Cl.Execute("select * From Cl_LinkClass where ClassID=" & ClassID & "")
if Prs.bof and Prs.eof then
FoundErr=True
ErrMsg=ErrMsg & "<br /><li>找不到指定的栏目！</li>"
exit sub
End if
ParentID=Prs("ParentID"):ParentPath=Prs("ParentPath")
sClassName=Prs("ClassName"):sClassDir=Prs("ClassDir"):sReadme=Prs("Readme"):sIsElite=Prs("IsElite")
sShowOnTop=Prs("ShowOnTop")
Set Prs=Nothing
sAction="SaveModify":SubmitValue="修 改"
end if
%>
<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
dim rsParentClass
set rsParentClass=Cl.Execute("Select * From Cl_LinkClass where ClassID in (" & ParentPath & ") order by Depth")
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
set rsParentClass=Nothing
end if
%> <br /> <font color="#0000ff">提示：如果你想改变所属栏目，请<a href='<%=FileName%>?Action=Move&ClassID=<%=ClassID%>'>点此移动栏目</a></font></td>
</tr>
<%else%>
<tr class="tdbg">
<td width="150" align="right"><strong>所属栏目：</strong></td>
<td> <select name="ParentID">
<%=ShowLinkClass_Option(0,ParentID)%>
</select></td>
</tr>
<%end if%>
<tr class="tdbg">
<td width="150" align="right"><strong>栏目名称：</strong></td>
<td><input name="ClassName" type="text" value="<%=sClassName%>" size="50" maxlength="20"> <font color=red>*</font>
<input name="ClassID" type="hidden" id="ClassID" value="<%=ClassID%>"></td>
</tr>
<!--==================================================================-->
<!-- <tr class="tdbg">
<td width="150" align="right"><strong>栏目目录（英文名）：</strong></td>
<td><input name="ClassDir" type="text" value="<%=sClassDir%>" size="50" maxlength="20"> <font color=red>*</font><br /><font color="#ff0033">注意：只能是英文，不能带空格或“\”、“/”等符号，此项更改后，请重新生成此栏目所有内容。</font></td>
</tr>-->
<tr class="tdbg">
<td width="150" align="right"><strong>栏目说明：</strong></td>
<td><textarea name="Readme" cols="42" rows="4" id="Readme"><%=sReadMe%></textarea><br /> <font color="#ff0033">注意：（不支持HTML，不能有回车，说明可为留空。）</font></td>
</tr>
<tr class="tdbg">
<td align="right"><strong>推荐栏目：</strong></td>
<td>
<input name="IsElite" type="radio" value="Yes" <%if sIsElite=True then response.write " checked"%>> 是
<input type="radio" name="IsElite" value="No" <%if sIsElite=False then response.write " checked"%>> 否</td>
</tr>
<tr class="tdbg">
<td align="right"><strong>固顶栏目：</strong></td>
<td>
<input name="ShowOnTop" type="radio" value="Yes" <%if sShowOnTop=True then response.write " checked"%>> 是
<input type="radio" name="ShowOnTop" value="No" <%if sShowOnTop=False then response.write " checked"%>> 否</td>
</tr>
<!--==================================================================-->
<tr class="tdbg">
<td height="40" colspan="2" align="center"><input name="Action" type="hidden" id="Action" value="<%=sAction%>">
<input name="Submit" type="submit" value=" <%=SubmitValue%> ">
<input name="Cancel" type="button" id="Cancel" value=" 取 消 " onClick="window.location.href='<%=FileName%>'"></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 sub
sub MoveClass()
dim ClassID,rsClass,i
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 Cl_LinkClass 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="<%=FileName%>">
<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 Cl_LinkClass 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;"><%=ShowLinkClass_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='<%=FileName%>'" style="cursor:hand;"></td></tr>
</table>
</form>
<%
end if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -