📄 admin_index.asp
字号:
<tr class="tdbg"><td height="20"> <a href="Admin_Template.asp?ProjectID=<%=Cl.ProjectID%>&ModuleID=<%=ModuleID%>" target="main"><font color="blue"><%=sChannelName%>模板管理</font></a></td></tr>
<tr class="tdbg"><td height="20"> <a href="Admin_Channel.asp?Action=Modify&ChannelID=<%=sID%>" target="main"><font color="#FF0033"><%=sChannelName%>基本配置</font></a></td>
</tr>
<tr class="tdbg"><td height="20"> <a href="Admin_Files.asp?FileType=upload&ChannelID=<%=sID%>" target="main"><font color="blue">上传文件管理</font></a></td></tr>
<%if IsCreateHtml then%>
<tr class="tdbg"><td height="20"> ==============</td></tr>
<tr class="tdbg"><td height="20"> <a href="Admin_Create_<%=sModuleName%>.asp?ChannelID=<%=sID%>&action=CreateInfoAll&CreateType=2&TopNew=50" target="main"><font color="#0000ff">生成最新50<%=sItemUnit&sItemName%></font></a></td></tr>
<tr class="tdbg"><td height="20"> <a href="Admin_Create_<%=sModuleName%>.asp?ChannelID=<%=sID%>&action=createclass" target="main">生成<%=sItemName%>栏目列表</a></td></tr>
<tr class="tdbg"><td height="20"> <a href="Admin_Create_<%=sModuleName%>.asp?ChannelID=<%=sID%>&action=CreateSpecial" target="main">生成<%=sItemName%>专题列表</a></td></tr>
<tr class="tdbg"><td height="20"> <a href="Admin_Create_<%=sModuleName%>.asp?ChannelID=<%=sID%>&action=CreateUpdate" target="main">生成<%=sItemName%>更新列表</a></td></tr>
<tr class="tdbg"><td height="20"> <a href="Admin_Create_<%=sModuleName%>.asp?ChannelID=<%=sID%>&action=CreateElite" target="main">生成<%=sItemName%>推荐列表</a></td></tr>
<tr class="tdbg"><td height="20"> <a href="Admin_Create_<%=sModuleName%>.asp?ChannelID=<%=sID%>&action=CreateHot" target="main">生成<%=sItemName%>热门列表</a></td></tr>
<tr class="tdbg"><td height="20"> <a href="Admin_Create_<%=sModuleName%>.asp?ChannelID=<%=sID%>&action=createindex" target="main"><font color="#0000ff">生成<%=sChannelName%>首页</font></a></td></tr>
<tr class="tdbg"><td height="20"> <a href="Admin_Create_<%=sModuleName%>.asp?ChannelID=<%=sID%>" target="main"><font color="#ff0033"><%=sChannelName%>生成管理</font></a></td></tr>
<%
end if
end if
%>
</table>
<table cellpadding="0" cellspacing="0" align="center" width="100%">
<tr><td height="15"></td></tr>
</table>
</td>
</tr>
</table>
<%
End if
Next
SQL=Empty
End if
%>
<%if Cl.Admin_PurView(0)="1" then%>
<table cellpadding="0" cellspacing="0" width="158" align="center">
<tr width="100%">
<td height="25" class="menu_title" onmouseover="this.className='menu_title2';" onmouseout="this.className='menu_title';" background="Images/admin_left.gif" onclick="showsubmenu(16)" style="cursor:hand;"><span><img src="Images/open.gif" style="float:left;margin:2 5 0px;" id="imgMenu16" align="absmiddle" alt="" />ＪＳ调用管理</span></td>
</tr>
<tr>
<td style="width:100%;display:none" id="submenu16">
<table class="sec_menu" cellpadding="0" cellspacing="1" align="center" width="100%">
<tr class='tdbg'><td height='20'> <a href="Admin_Js.asp?Action=AddJs&JsType=0" target="main">添加JS[<font color="#0000ff">代码</font>]</a></td></tr>
<tr class='tdbg'><td height='20'> <a href="Admin_Js.asp?Action=AddJs&JsType=1" target="main">添加JS[<font color="#ff0033">配置</font>]</a></td></tr>
<tr class='tdbg'><td height='20'> <a href="Admin_Js.asp" target="main">JS调用管理</a></td></tr>
<tr class='tdbg'><td height='20'> <a href="Admin_Js.asp?Action=AddJsSort" target="main">添加JS分类</a> | <a href="Admin_Js.asp?Action=JsSort" target="main">管理</a></td></tr>
</table>
<table cellpadding="0" cellspacing="0" align="center" width="100%">
<tr><td height="15"></td></tr>
</table>
</td>
</tr>
</table>
<table cellpadding="0" cellspacing="0" width="158" align="center">
<tr width="100%">
<td height="25" class="menu_title" onmouseover="this.className='menu_title2';" onmouseout="this.className='menu_title';" background="Images/admin_left.gif" onclick="showsubmenu(15)" style="cursor:hand;"><span><img src="Images/open.gif" style="float:left;margin:2 5 0px;" id="imgMenu15" align="absmiddle" alt="" />采集系统管理</span></td>
</tr>
<tr>
<td style="width:100%;display:none" id="submenu15">
<table class="sec_menu" cellpadding="0" cellspacing="1" align="center" width="100%">
<tr class='tdbg'><td height='20'> <a href="Admin_GetArticle.asp" target="main">文章采集</a> | <a href="Admin_Getsoft.asp" target="main">软件采集</a></td></tr><tr class='tdbg'><td height='20'> <a href="Admin_GetPhoto.asp" target="main">图片采集</a><%If SysTemVersion>1 then%> | <a href="Admin_GetMovie.asp" target="main">影视采集</a><%End if%></td></tr><tr class='tdbg'><td height='20'> <a href="Admin_ItemHistroly.asp" target="main">历史记录</a> | <a href="Admin_ItemFilters.asp" target="main">过滤管理</a></td></tr><tr class='tdbg'><td height='20'> <a href="Admin_Timing.asp" target="main">定时采集</a> | <a href="Admin_ItemDatabase.asp" target="main">数据库管理</a></td></tr>
</table>
<table cellpadding="0" cellspacing="0" align="center" width="100%">
<tr><td height="15"></td></tr>
</table>
</td>
</tr>
</table>
<%End if%>
<table cellpadding="0" cellspacing="0" width="158" align="center">
<tr width="100%">
<td height="25" class="menu_title" onmouseover="this.className='menu_title2';" onmouseout="this.className='menu_title';" background="Images/admin_left.gif" onclick="showsubmenu(1)" style="cursor:hand;"><span><img src="Images/open.gif" style="float:left;margin:2 5 0px;" id="imgMenu1" align="absmiddle" alt="" />系统信息管理</span></td>
</tr>
<tr>
<td style="width:100%;display:none" id="submenu1">
<table class="sec_menu" cellpadding="0" cellspacing="1" align="center" width="100%">
<%if TrueSetup then%>
<tr class="tdbg"><td height="20"> <a href="Admin_Setup.asp" target="main">基本信息配置</a></td></tr>
<%end if%>
<%if TrueAnnounce then%>
<tr class="tdbg"><td height="20"> <a href="Admin_Announce.asp" target="main">网站公告管理</a></td></tr>
<%end if%>
<%if TrueAds then%>
<tr class="tdbg"><td height="20"> <a href="Admin_Ads.asp" target="main">网站广告管理</a></td></tr>
<%end if%>
<%if TrueVote then%>
<tr class="tdbg"><td height="20"> <a href="Admin_Vote.asp" target="main">网站调查管理</a></td></tr>
<%end if%>
<%if TrueSpecial then%>
<tr class="tdbg"><td height="20"> <a href="Admin_Special.asp" target="main">网站专题管理</a></td></tr>
<%end if%>
<%if TrueLabel then%>
<tr class="tdbg"><td height="20"> <a href="Admin_Label.asp" target="main">自定义标签管理</a></td></tr>
<%end if%>
<%if TrueKeyword then%>
<tr class="tdbg"><td height="20"> <a href="Admin_Keyword.asp" target="main">网站关键字管理</a></td></tr>
<%end if%>
<%if TrueChannel then%>
<tr class="tdbg"><td height="20"> <a href="Admin_Channel.asp?action=Add" target="main">网站频道添加</a> | <a href="Admin_Channel.asp" target="main">管理</a></td></tr>
<%end if%>
<%if TrueCount then%>
<tr class="tdbg"><td height="20"> <a href="Admin_Count.asp?action=addstyle" target="main">统计调用添加</a> | <a href="Admin_Count.asp" target="main">管理</a></td></tr>
<%end if%>
<%
if Cl.Admin_PurView(0)="1" then
%>
<tr class="tdbg"><td> <a href="Admin_Server.asp" target="main"><font color="blue">下载服务器管理</font></a></td></tr>
<%
End if
Cl.Load_ChannelSetting(0)
if Clng(Cl.Channel.selectSingleNode("@iscreatehtml").text)=1 then%>
<tr class="tdbg"><td height="20"> <a href="Admin_Create_Index.asp" target="main"><font color="red">生成网站首页</font></a></td></tr>
<%end if%>
</table>
<table cellpadding="0" cellspacing="0" align="center" width="100%">
<tr><td height="15"></td></tr>
</table>
</td>
</tr>
</table>
<%if TrueTemplate then%>
<table cellpadding="0" cellspacing="0" width="158" align="center">
<tr width="100%">
<td height="25" class="menu_title" onmouseover="this.className='menu_title2';" onmouseout="this.className='menu_title';" background="Images/admin_left.gif" onclick="showsubmenu(2)" style="cursor:hand;"><span><img src="Images/open.gif" style="float:left;margin:2 5 0px;" id="imgMenu2" align="absmiddle" alt="" />模板风格管理</span></td>
</tr>
<tr>
<td style="width:100%;display:none" id="submenu2">
<table class="sec_menu" cellpadding="0" cellspacing="1" align="center" width="100%">
<tr class="tdbg"><td height="20"> <a href="admin_Template.asp" target="main">网站模板管理</a></td></tr>
<tr class="tdbg"><td height="20"> <a href="Admin_LoadSkin.asp" target="main">模板导出</a>
| <a href="Admin_LoadSkin.asp?Action=Load" target="main">导入</a></td></tr>
</table>
<table cellpadding="0" cellspacing="0" align="center" width="100%">
<tr><td height="15"></td></tr>
</table>
</td>
</tr>
</table>
<%end if%>
<%if TruePage then%>
<table cellpadding="0" cellspacing="0" width="158" align="center">
<tr width="100%">
<td height="25" class="menu_title" onmouseover="this.className='menu_title2';" onmouseout="this.className='menu_title';" background="Images/admin_left.gif" onclick="showsubmenu(50)" style="cursor:hand;"><span><img src="Images/open.gif" style="float:left;margin:2 5 0px;" id="imgMenu50" align="absmiddle" alt="" />自定义页管理</td>
</tr>
<tr>
<td style="width:100%;display:none" id="submenu50">
<table class="sec_menu" cellpadding="0" cellspacing="1" align="center" width="100%">
<tr height="20" class="tdbg">
<td> <a href="Admin_Page.asp?Action=AddItem" target="main">添加自定义项目</a> | <a href="Admin_Page.asp" target="main">管理</a></td></tr><%
Set rsLeft=Cl.Execute("Select ItemID,ItemName From Cl_PageItem Order By ItemID Desc")
if Not rsLeft.Eof then
SQL = rsLeft.GetRows(-1)
for i=0 to ubound(sql,2)%>
<tr height="20" class="tdbg">
<td> <a href="Admin_Page.asp?Action=AddPage&ItemID=<%=Sql(0,i)%>" target="main">添加<%=sql(1,i)%>页</a> | <a href="Admin_Page.asp?Action=PageMain&ItemID=<%=Sql(0,i)%>" target="main">管理</a></td></tr><%
next
SQL=Empty
end if
%>
</table>
<table cellpadding="0" cellspacing="0" align="center" width="100%">
<tr><td height="15"></td></tr>
</table>
</td>
</tr>
</table>
<%end if%>
<%if TruePlus then%>
<table cellpadding="0" cellspacing="0" width="158" align="center">
<tr width="100%">
<td height="25" class="menu_title" onmouseover="this.className='menu_title2';" onmouseout="this.className='menu_title';" background="Images/admin_left.gif" onclick="showsubmenu(57)" style="cursor:hand;"><span><img src="Images/open.gif" style="float:left;margin:2 5 0px;" id="imgMenu57" align="absmiddle" alt="" />插件管理中心</td>
</tr>
<tr>
<td style="width:100%;display:none" id="submenu57">
<table class="sec_menu" cellpadding="0" cellspacing="1" align="center" width="100%">
<tr class="tdbg"><td height="20"> <a href="Admin_Plus.asp" target="main">插件设置管理</a></td></tr>
<%
Set rsLeft=Cl.Execute("Select ID,PlusName,PlusLink From Cl_Plus Where IsUse=0 And PlusType=0 Order By OrderID Desc")
if Not rsLeft.Eof then
SQL = rsLeft.GetRows(-1)
for i=0 to ubound(sql,2)
If sql(2,i)<>"" Then%>
<tr height="20" class="tdbg">
<td> <a href="<%=sql(2,i)%>" target="main"><%=sql(1,i)%>管理</a></td></tr><% End if
next
SQL=Empty
end if
Set rsLeft=Nothing
%></table>
<table cellpadding="0" cellspacing="0" align="center" width="100%">
<tr><td height="15"></td></tr>
</table>
</td>
</tr>
</table>
<% Dim ArrItem,Item,MenuItem
Set rsLeft=Cl.Execute("Select ID,PlusName,PlusMenu From Cl_Plus Where IsUse=0 And PlusType=1 Order By OrderID Desc")
if Not rsLeft.Eof then
SQL = rsLeft.GetRows(-1)
for i=0 to ubound(sql,2)
%>
<table cellpadding="0" cellspacing="0" width="158" align="center">
<tr width="100%">
<td height="25" class="menu_title" onmouseover="this.className='menu_title2';" onmouseout="this.className='menu_title';" background="Images/admin_left.gif" onclick="showsubmenu(11<%=sql(0,i)%>)" style="cursor:hand;"><span><img src="Images/open.gif" style="float:left;margin:2 5 0px;" id="imgMenu11<%=sql(0,i)%>" align="absmiddle" alt="" /><%=sql(1,i)%>管理</span></td>
</tr>
<tr>
<td style="width:100%;display:none" id="submenu11<%=sql(0,i)%>">
<table class="sec_menu" cellpadding="0" cellspacing="1" align="center" width="100%">
<%ArrItem=Split(sql(2,i),VbCrlf)
For Each Item In ArrItem
Response.Write "<tr class='tdbg'><td height='20'> "&Item&"</td></tr>"
Next%>
</table>
<table cellpadding="0" cellspacing="0" align="center" width="100%">
<tr><td height="15"></td></tr>
</table>
</td>
</tr>
</table>
<%
next
SQL=Empty
end if
Set rsLeft=Nothing
end if
if TrueEmail or TrueMessage or TrueUser or TrueCz then
%>
<table cellpadding="0" cellspacing="0" width="158" align="center">
<tr width="100%">
<td height="25" class="menu_title" onmouseover="this.className='menu_title2';" onmouseout="this.className='menu_title';" background="Images/admin_left.gif" onclick="showsubmenu(9)" style="cursor:hand;"><span><img src="Images/open.gif" style="float:left;margin:2 5 0px;" id="imgMenu9" align="absmiddle" alt="" />注册用户管理</span></td>
</tr>
<tr>
<td style="width:100%;display:none" id="submenu9">
<table class="sec_menu" cellpadding="0" cellspacing="1" align="center" width="100%">
<%if TrueEmail then%>
<tr class="tdbg"><td height="20"> <a href="Admin_Email.asp" target="main">邮件群发管理</a></td></tr>
<%end if%>
<%if TrueMessage then%>
<tr class="tdbg"><td height="20"> <a href="Admin_Message.asp" target="main">用户短信管理</a></td></tr>
<%end if%>
<%if TrueUser then%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -