www.gusucode.com > 艺术签名文章资讯网源代码 > 艺术签名文章资讯网源代码/624/adminhtry/admin_left.asp
<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html;charset=gb2312" />
<title><%= Newasp.SiteName %> - 管理中心 - 左边管理菜单</title>
<link rel="stylesheet" href="images/css/admin_left_<%=AdminSkin%>.css" type="text/css" media="all" />
<script language="JavaScript">
function logout(){
if (confirm("系统提示：您确定要退出控制面板吗？"))
top.location = "admin_logout.asp";
return false;
}
</script>
<script language="JavaScript">
function showsubmenu(sid) {
var whichEl = eval("submenu" + sid);
var menuTitle = eval("menuTitle" + sid);
if (whichEl.style.display == "none"){
eval("submenu" + sid + ".style.display='';");
eval("menuTitle" + sid + ".className='menu_title';");
}else{
eval("submenu" + sid + ".style.display='none';");
eval("menuTitle" + sid + ".className='menu_title2';");
}
}
</script>
</head>
<body>
<%
If Request("action") ="menu" Then
Admin_ChannelMenu()
Else
Admin_LeftMenu()
End If
Sub Admin_LeftMenu()
%>
<div id="pageMain"><div id="mainBody">
<dl id="adminInfo">
<dt class="menu_title" id="menuTitle9999" onclick="showsubmenu(9999)">后台管理信息</dt>
<dd id="submenu9999">
<ul>
<li>用户名：<font color="red"><%=session("AdminName")%></font></li>
<li>身 份：<font color="red"><%=Session("AdminStatus")%></font></li>
<li>【<a href="#" onclick="logout();">注销退出</a>】</li>
</ul>
</dd>
</dl>
<dl>
<dt class="menu_title" id="menuTitle0" onclick="showsubmenu(0)">常规设置 </dt>
<dd id="submenu0">
<ul>
<li><a target="main" href="admin_config.asp">基本设置</a> | <a target="main" href="admin_setting.asp">后台设置</a></li>
<li><a target="main" href="admin_channel.asp?action=add">添加频道</a> | <a target="main" href="admin_channel.asp">频道管理</a></li>
<li><a target="main" href="admin_template.asp">模板管理</a> | <a target="main" href="admin_custom.asp">标签管理</a></li>
<li><a target="main" href="admin_loadskin.asp">模板导出</a> | <a target="main" href="admin_loadskin.asp?action=load">模板导入</a></li>
<li><a target="main" href="admin_announce.asp?action=add">发布公告</a> | <a target="main" href="admin_announce.asp">公告管理</a></li>
<li><a target="main" href="admin_log.asp">日志管理</a> | <a target="main" href="admin_message.asp">发送短信</a></li>
<li><a target="main" href="admin_createindex.asp">生成首页</a> | <a target="main" href="admin_conform.asp">系统整合</a></li>
<li><a target="main" href="admin_card.asp">会员充值卡管理</a></li>
<li><a target="main" href="admin_admanage.asp?action=add">添加广告</a> | <a target="main" href="admin_admanage.asp">广告管理</a></li>
<li><a target="main" href="admin_wss.asp">WSS 设置</a>
<%
If NewAsp.Wss_IsUsed=1 And Len(NewAsp.Wss_Domain)>3 And Len(NewAsp.Wss_SiteID)>3 And Len(NewAsp.Wss_PassWord)>3 Then
Response.Write " | "
Response.Write "<a target=""_blank"" href=""http://intf.cnzz.com/user/companion/newasp_login.php?site_id=" & NewAsp.Wss_SiteID & "&password=" & NewAsp.Wss_PassWord & """>查看统计</a>"
End If
%>
</li>
</ul>
</dd>
</dl>
<%
Dim ChannelName,ChannelDir,ModuleName,strModules
Set Rs = Newasp.Execute("SELECT ChannelID,ChannelName,ChannelDir,modules,ModuleName FROM NC_Channel WHERE StopChannel=0 And ChannelID<>4 And ChannelID<>3 And ChannelType < 2 ORDER BY orders ASC")
Do While Not Rs.EOF
ChannelID = Rs("ChannelID")
ChannelName = Rs("ChannelName")
ChannelDir = Replace(Rs("ChannelDir"), "/", "")
ModuleName = Rs("ModuleName")
Select Case Rs("modules")
Case 1:strModules = "Article"
Case 2:strModules = "Soft"
Case 3:strModules = "Shop"
Case 5:strModules = "Flash"
Case Else
strModules = "Article"
End Select
%>
<dl>
<dt class="menu_title" id="menuTitle<%=ChannelID%>" onclick="showsubmenu(<%=ChannelID%>)"><%=ChannelName%>管理 </dt>
<dd id="submenu<%=ChannelID%>">
<ul>
<li><a target="main" href="admin_<%=strModules%>.asp?ChannelID=<%=ChannelID%>&action=add">添加<%=ModuleName%></a> | <a target="main" href="admin_<%=strModules%>.asp?ChannelID=<%=ChannelID%>"><%=ModuleName%>管理</a></li>
<li><a target="main" href="admin_classify.asp?ChannelID=<%=ChannelID%>&action=add">添加分类</a> | <a target="main" href="admin_classify.asp?ChannelID=<%=ChannelID%>">分类管理</a></li>
<%
If Rs("modules") <> 3 Then
%>
<li><a target="main" href="admin_special.asp?ChannelID=<%=ChannelID%>">专题管理</a> | <a target="main" href="admin_<%=strModules%>.asp?ChannelID=<%=ChannelID%>&isAccept=0">审核管理</a></li>
<%
End If
%>
<li><a target="main" href="admin_<%=strModules%>.asp?action=setting&ChannelID=<%=ChannelID%>">批量设置</a> | <a target="main" href="admin_<%=strModules%>.asp?action=move&ChannelID=<%=ChannelID%>">批量移动</a></li>
<%
If Rs("modules") = 2 Then
%>
<li><a target="main" href="admin_server.asp?ChannelID=<%=ChannelID%>">下载服务器管理</a></li>
<li><a target="main" href="admin_softset.asp?ChannelID=<%=ChannelID%>">数据库/XML转换操作</a></li>
<li><a target="main" href="admin_downlog.asp?ChannelID=<%=ChannelID%>">用户下载日志管理</a></li>
<li><a target="main" href="admin_softerr.asp?ChannelID=<%=ChannelID%>">错误报告</a> | <a target="main" href="Admin_SoftGather.asp?ChannelID=<%=ChannelID%>"><%=ModuleName%>采集</a></li>
<%
ElseIf Rs("modules") = 1 Then
%>
<li><a target="main" href="admin_articleset.asp?ChannelID=<%=ChannelID%>">数据库/XML转换操作</a></li>
<li><a target="main" href="Admin_ArticleGather.asp?ChannelID=<%=ChannelID%>"><%=ModuleName%>采集管理</a></li>
<%
ElseIf Rs("modules") = 5 Then
%>
<li><a target="main" href="admin_server.asp?ChannelID=<%=ChannelID%>">下载服务器管理</a></li>
<%
End If
%>
<li><a target="main" href="admin_channel.asp?action=edit&ChannelID=<%=ChannelID%>"><%=ModuleName%>频道基本设置</a></li>
<li><a target="main" href="admin_create<%=strModules%>.asp?ChannelID=<%=ChannelID%>">生成<%=ModuleName%>HTML管理</a></li>
<li><a target="main" href="admin_template.asp?action=manage&ChannelID=<%=ChannelID%>"><%=ModuleName%>频道模板管理</a></li>
<li><a target="main" href="admin_comment.asp?ChannelID=<%=ChannelID%>">评论管理</a> | <a target="main" href="admin_jsfile.asp?ChannelID=<%=ChannelID%>">JS 管理</a></li>
<li><a target="main" href="Admin_UploadFile.Asp?ChannelID=<%=ChannelID%>&UploadDir=UploadPic">上传图片管理</a> | <a target="main" href="admin_UploadFile.asp?action=clear&ChannelID=<%=ChannelID%>&UploadDir=UploadPic">清理</a></li>
<li><a target="main" href="Admin_UploadFile.Asp?ChannelID=<%=ChannelID%>&UploadDir=UploadFile">上传文件管理</a> | <a target="main" href="admin_UploadFile.asp?action=clear&ChannelID=<%=ChannelID%>&UploadDir=UploadFile">清理</a></li>
</ul>
</dd>
</dl>
<%
Rs.movenext
Loop
Set Rs = Nothing
%>
<dl>
<dt class="menu_title" id="menuTitle1001" onclick="showsubmenu(1001)">用户管理 </dt>
<dd id="submenu1001">
<ul>
<li><a target="main" href="admin_user.asp?action=add">添加会员</a> | <a target="main" href="admin_user.asp">会员管理</a></li>
<li><a target="main" href="admin_userorder.asp">会员充值定单管理</a></li>
<li><a target="main" href="admin_password.asp">管理员密码修改</a></li>
<li><a target="main" href="admin_master.asp?action=add">管理员添加</a> | <a target="main" href="admin_master.asp">管理</a></li>
<li><a target="main" href="admin_group.asp?action=addgroup">用户组添加</a> | <a target="main" href="admin_group.asp">管理</a></li>
<li><a target="main" href="admin_mailist.asp">邮件列表</a> | <a target="main" href="admin_mailout.asp">列表导出</a></li>
<li><a target="main" href="admin_mailist.asp?action=mail">发送邮件</a> | <a target="main" href="admin_confirm.asp">交费确认</a></li>
<li><a target="main" href="admin_account.asp">交易明细查询管理</a></li>
<li><a target="main" href="admin_paymode.asp">付款方式管理</a></li>
</ul>
</dd>
</dl>
<dl>
<dt class="menu_title" id="menuTitle1002" onclick="showsubmenu(1002)">其它管理 </dt>
<dd id="submenu1002">
<ul>
<li><a target="main" href="admin_online.asp">在线人数统计管理</a></li>
<li><a target="main" href="admin_vote.asp?action=add">增加投票</a> | <a target="main" href="admin_vote.asp">投票管理</a></li>
<li><a target="main" href="admin_link.asp">友情连接</a> | <a target="main" href="admin_book.asp">留言管理</a></li>
<li><a target="main" href="admin_other.asp?action=help">网站帮助</a> | <a target="main" href="admin_other.asp?action=about">关于我们</a></li>
<li><a target="main" href="admin_other.asp?action=ad">广告合作</a> | <a target="main" href="admin_other.asp?action=declare">网站声明</a></li>
</ul>
</dd>
</dl>
<%
Call Admin_CommonMenu()
Response.Write "</div></div>"
End Sub
Sub Admin_ChannelMenu()
%>
<div id="pageMain"><div id="mainBody">
<dl id="adminInfo">
<dt class="menu_title" id="menuTitle9999" onclick="showsubmenu(9999)">后台管理信息</dt>
<dd id="submenu9999">
<ul>
<li>用户名：<font color="red"><%=session("AdminName")%></font></li>
<li>身 份：<font color="red"><%=Session("AdminStatus")%></font></li>
<li>【<a href="#" onclick="logout();">注销退出</a>】</li>
</ul>
</dd>
</dl>
<%
Dim ChannelName,ChannelDir,ModuleName,strModules,intModules
intModules = Newasp.ChkNumeric(Request("m"))
Set Rs = Newasp.Execute("SELECT ChannelID,ChannelName,ChannelDir,modules,ModuleName FROM NC_Channel WHERE StopChannel=0 And ChannelID<>4 And ChannelType<2 And modules="&intModules&" ORDER BY orders ASC")
Do While Not Rs.EOF
ChannelID = Rs("ChannelID")
ChannelName = Rs("ChannelName")
ChannelDir = Replace(Rs("ChannelDir"), "/", "")
ModuleName = Rs("ModuleName")
Select Case Rs("modules")
Case 1:strModules = "Article"
Case 2:strModules = "Soft"
Case 3:strModules = "Shop"
Case 5:strModules = "Flash"
Case Else
strModules = "Article"
End Select
%>
<dl>
<dt class="menu_title" id="menuTitle<%=ChannelID%>" onclick="showsubmenu(<%=ChannelID%>)"><%=ChannelName%>管理 </dt>
<dd id="submenu<%=ChannelID%>">
<ul>
<li><a target="main" href="admin_<%=strModules%>.asp?ChannelID=<%=ChannelID%>&action=add">添加<%=ModuleName%></a> | <a target="main" href="admin_<%=strModules%>.asp?ChannelID=<%=ChannelID%>"><%=ModuleName%>管理</a></li>
<li><a target="main" href="admin_classify.asp?ChannelID=<%=ChannelID%>&action=add">添加分类</a> | <a target="main" href="admin_classify.asp?ChannelID=<%=ChannelID%>">分类管理</a></li>
<%
If Rs("modules") <> 3 Then
%>
<li><a target="main" href="admin_special.asp?ChannelID=<%=ChannelID%>">专题管理</a> | <a target="main" href="admin_<%=strModules%>.asp?ChannelID=<%=ChannelID%>&isAccept=0">审核管理</a></li>
<%
End If
%>
<li><a target="main" href="admin_<%=strModules%>.asp?action=setting&ChannelID=<%=ChannelID%>">批量设置</a> | <a target="main" href="admin_<%=strModules%>.asp?action=move&ChannelID=<%=ChannelID%>">批量移动</a></li>
<%
If Rs("modules") = 2 Then
%>
<li><a target="main" href="admin_server.asp?ChannelID=<%=ChannelID%>">下载服务器管理</a></li>
<li><a target="main" href="admin_softset.asp?ChannelID=<%=ChannelID%>">数据库/XML转换操作</a></li>
<li><a target="main" href="admin_downlog.asp?ChannelID=<%=ChannelID%>">用户下载日志管理</a></li>
<li><a target="main" href="admin_softerr.asp?ChannelID=<%=ChannelID%>">错误报告</a> | <a target="main" href="Admin_SoftGather.asp?ChannelID=<%=ChannelID%>"><%=ModuleName%>采集</a></li>
<%
ElseIf Rs("modules") = 1 Then
%>
<li><a target="main" href="admin_articleset.asp?ChannelID=<%=ChannelID%>">数据库/XML转换操作</a></li>
<li><a target="main" href="Admin_ArticleGather.asp?ChannelID=<%=ChannelID%>"><%=ModuleName%>采集管理</a></li>
<%
ElseIf Rs("modules") = 5 Then
%>
<li><a target="main" href="admin_server.asp?ChannelID=<%=ChannelID%>">下载服务器管理</a></li>
<%
End If
%>
<li><a target="main" href="admin_channel.asp?action=edit&ChannelID=<%=ChannelID%>"><%=ModuleName%>频道基本设置</a></li>
<li><a target="main" href="admin_create<%=strModules%>.asp?ChannelID=<%=ChannelID%>">生成<%=ModuleName%>HTML管理</a></li>
<li><a target="main" href="admin_template.asp?action=manage&ChannelID=<%=ChannelID%>"><%=ModuleName%>频道模板管理</a></li>
<li><a target="main" href="admin_comment.asp?ChannelID=<%=ChannelID%>">评论管理</a> | <a target="main" href="admin_jsfile.asp?ChannelID=<%=ChannelID%>">JS 管理</a></li>
<li><a target="main" href="Admin_UploadFile.Asp?ChannelID=<%=ChannelID%>&UploadDir=UploadPic">上传图片管理</a> | <a target="main" href="admin_UploadFile.asp?action=clear&ChannelID=<%=ChannelID%>&UploadDir=UploadPic">清理</a></li>
<li><a target="main" href="Admin_UploadFile.Asp?ChannelID=<%=ChannelID%>&UploadDir=UploadFile">上传文件管理</a> | <a target="main" href="admin_UploadFile.asp?action=clear&ChannelID=<%=ChannelID%>&UploadDir=UploadFile">清理</a></li>
</ul>
</dd>
</dl>
<%
Rs.movenext
Loop
Set Rs = Nothing
If intModules = 3 Or intModules = 0 Then
%>
<dl>
<dt class="menu_title" id="menuTitle1000" onclick="showsubmenu(1000)">订单管理 </dt>
<dd id="submenu1000">
<ul>
<li><a target="main" href="admin_account.asp">交易明细查询管理</a></li>
<li><a target="main" href="admin_confirm.asp">交费确认</a></li>
<li><a target="main" href="admin_paymode.asp">付款方式管理</a></li>
</ul>
</dd>
</dl>
<dl>
<dt class="menu_title" id="menuTitle1001" onclick="showsubmenu(1001)">用户管理 </dt>
<dd id="submenu1001">
<ul>
<li><a target="main" href="admin_user.asp?action=add">添加会员</a> | <a target="main" href="admin_user.asp">会员管理</a></li>
<li><a target="main" href="admin_userorder.asp">会员充值定单管理</a></li>
<li><a target="main" href="admin_password.asp">管理员密码修改</a></li>
<li><a target="main" href="admin_master.asp?action=add">管理员添加</a> | <a target="main" href="admin_master.asp">管理</a></li>
<li><a target="main" href="admin_group.asp?action=addgroup">用户组添加</a> | <a target="main" href="admin_group.asp">管理</a></li>
<li><a target="main" href="admin_mailist.asp">邮件列表</a> | <a target="main" href="admin_mailout.asp">列表导出</a></li>
<li><a target="main" href="admin_mailist.asp?action=mail">发送邮件</a></li>
</ul>
</dd>
</dl>
<%
End If
Call Admin_CommonMenu()
Response.Write "</div></div>"
End Sub
Sub Admin_LeftFrame()
Response.Write "<div id=""frameBody"">" & vbNewLine
Response.Write "<iframe id=""leftMenu"" src=""admin_left.asp?action=menu"" frameborder=""0"" name=""leftMenu"" marginheight=""0"" marginwidth=""0"" scrolling=""yes""></iframe>" & vbNewLine
Response.Write "</div>" & vbNewLine
End Sub
Sub Admin_CommonMenu()
%>
<dl>
<dt class="menu_title" id="menuTitle1003" onclick="showsubmenu(1003)">数据库处理 </dt>
<dd id="submenu1003">
<ul>
<li><a target="main" href="admin_database.asp?action=BackupData">数据库备份</a></li>
<li><a target="main" href="admin_database.asp?action=RestoreData">数据库恢复</a></li>
<li><a target="main" href="admin_database.asp?action=CompressData">数据库压缩</a></li>
<li><a target="main" href="admin_probe.asp">服务器信息</a></li>
<li><a target="main" href="admin_replace.asp">数据库批量替换</a></li>
<li><a target="main" href="admin_database.asp?action=Spacesize">系统空间占用</a></li>
</ul>
</dd>
</dl>
<dl id="systemInfo">
<dt class="menu_title">系统信息 </dt>
<dd>
<ul>
<li>版权所有：</li>
<li><a target="_blank" href="http://www.newasp.net/">新云网络(newasp.net)</a></li>
<li>程序开发：</li>
<li><a target="_blank" href="http://bbs.newasp.net/">WebEnvoy</a> QQ：94022511</li>
<li>【<a target="_top" href="admin_logout.asp">注销退出</a>】</li>
</ul>
</dd>
</dl>
<%
End Sub
CloseConn
%>
</body>
</html>