www.gusucode.com > 全球营销软件站整站源码4月最新数据 4.0源码程序 > 801wyxqf\adminadmin\admin_left.asp
<!--#include file="../conn.asp"-->
<!--#include file="setup.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/check.asp"--><%If AdminSkin=0 Then
%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta http-equiv="content-language" content="zh-cn" />
<meta http-equiv="cache-control" content="no-cache" />
<meta http-equiv="pragma" content="no-cache" />
<title>管理员控制面板 - www 801w cn</title>
<link rel="stylesheet" href="images/skin_0/style.css" type="text/css" />
<script language="JavaScript">
function showsubmenu(sid) {
var whichEl = document.getElementById("submenu" + sid);
var menuTitle = document.getElementById("menuTitle" + sid);
if (whichEl!=null) {
if (whichEl.style.display == "none"){
whichEl.style.display='';
if (menuTitle!=null)
menuTitle.className='menu_title';
}else{
whichEl.style.display='none';
if (menuTitle!=null)
menuTitle.className='menu_title2';
}
}
}
</script>
</head>
<body class="leftbody">
<div id="leftbox">
<div id="left-menubox">
<div id="left_menutop"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr align="center">
<td><a href="sys/admin_setting.asp" onclick="window.location='admin_left.asp';" target="mainFrame"><img src="images/skin_0/m_1_1.gif" width="40" height="40" border="0" onmouseover="this.src='images/skin_0/m_1_2.gif'" onmouseout="this.src='images/skin_0/m_1_1.gif'" /></a></td>
<td><a href="users/admin_index.asp" onclick="window.location='admin_left.asp?action=menu&m=0';" target="mainFrame"><img src="images/skin_0/m_2_1.gif" width="40" height="40" border="0" onmouseover="this.src='images/skin_0/m_2_2.gif'" onmouseout="this.src='images/skin_0/m_2_1.gif'" /></a></td>
<td><a href="sys/admin_template.asp" onclick="window.location='admin_left.asp';" target="mainFrame"><img src="images/skin_0/m_3_1.gif" width="40" height="40" border="0" onmouseover="this.src='images/skin_0/m_3_2.gif'" onmouseout="this.src='images/skin_0/m_3_1.gif'" /></a></td>
</tr>
<tr align="center" height="25">
<td>基本设置</td>
<td>用户管理</td>
<td>模板管理</td>
</tr>
</table>
</div>
<div id="left-menuTab">
<%
If Request("action") ="menu" Then
Admin_ChannelMenu()
Else
Admin_LeftMenu()
End If
%>
</div>
</div>
<div class="clear:both;"></div>
</div>
</body>
</html>
<%else%><html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>后台控制面板</title>
<link rel="stylesheet" type="text/css" href="images/skin_<%=AdminSkin%>/left.css" />
<script language="JavaScript">
function showsubmenu(sid) {
var whichEl = document.getElementById("submenu" + sid);
var menuTitle = document.getElementById("menuTitle" + sid);
if (whichEl!=null) {
if (whichEl.style.display == "none"){
whichEl.style.display='';
if (menuTitle!=null)
menuTitle.className='menu_title';
}else{
whichEl.style.display='none';
if (menuTitle!=null)
menuTitle.className='menu_title2';
}
}
}
</script>
</head>
<body>
<table class="listflow" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td height="107" class="topNavbar">
<ul class="navbar">
<li><img src="images/ico001.gif" border="0" align="absMiddle"/> <a href="sys/admin_setting.asp" target="mainFrame">基本设置</a></li>
<li><img src="images/ico002.gif" border="0" align="absMiddle"/> <a href="sys/admin_channel.asp" target="mainFrame">频道管理</a></li>
<li><img src="images/ico003.gif" border="0" align="absMiddle"/> <a href="sys/admin_template.asp" target="mainFrame">模板管理</a></li>
</ul>
</td>
</tr>
<tr>
<td valign="top" class="listbg">
<%
Dim ChannelName,ChannelDir,ModuleName,strModules,intModules,Rs
intModules = Newasp.ChkNumeric(Request("m"))
If intModules=0 Then
%>
<dl>
<dt class="menu_title" id="menuTitle0" onclick="showsubmenu(0)">常规设置 </dt>
<dd id="submenu0">
<ul>
<li><a target="mainFrame" href="sys/admin_setting.asp?action=upload">上传设置</a> | <a target="mainFrame" href="sys/admin_badword.asp">过滤设置</a></li>
<li><a target="mainFrame" href="sys/admin_lockip.asp">IP地址访问限制管理</a></li>
<li><a target="mainFrame" href="sys/admin_announce.asp?action=add">发布公告</a> | <a target="mainFrame" href="sys/admin_announce.asp">公告管理</a></li>
<li><a target="mainFrame" href="sys/admin_data.asp">系统信息</a> | <a target="mainFrame" href="sys/admin_log.asp">管理日志</a></li>
<li><a target="mainFrame" href="sys/admin_replace.asp">批量替换</a> | <a target="mainFrame" href="sys/admin_admanage.asp">广告管理</a></li>
<li><a target="mainFrame" href="sys/admin_makeindex.asp">生成首页</a> | <a target="mainFrame" href="sys/admin_makesitemap.asp">生成地图</a></li>
<li><a target="mainFrame" href="sys/admin_makelabel.asp">标签管理</a> | <a target="mainFrame" href="sys/admin_cmsreg.asp">程序注册</a></li>
</ul>
</dd>
</dl>
<%
End If
If intModules>0 Then
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 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="mainFrame" href="<%=strModules%>/admin_post.asp?ChannelID=<%=ChannelID%>&action=add">添加<%=ModuleName%></a> | <a target="mainFrame" href="<%=strModules%>/admin_list.asp?ChannelID=<%=ChannelID%>"><%=ModuleName%>管理</a></li>
<li><a target="mainFrame" href="sys/admin_class.asp?ChannelID=<%=ChannelID%>&action=add">添加分类</a> | <a target="mainFrame" href="sys/admin_class.asp?ChannelID=<%=ChannelID%>">分类管理</a></li>
<li><a target="mainFrame" href="sys/admin_special.asp?ChannelID=<%=ChannelID%>">专题管理</a> | <a target="mainFrame" href="<%=strModules%>/admin_list.asp?ChannelID=<%=ChannelID%>&isAccept=1">审核管理</a></li>
<li><a target="mainFrame" href="<%=strModules%>/admin_setting.asp?action=setting&ChannelID=<%=ChannelID%>">批量设置</a> | <a target="mainFrame" href="<%=strModules%>/admin_setting.asp?action=move&ChannelID=<%=ChannelID%>">批量移动</a></li>
<%If Rs("modules")=2 Or Rs("modules")=5 Then%>
<li><a target="mainFrame" href="<%=strModules%>/admin_server.asp?ChannelID=<%=ChannelID%>">下载服务器管理</a></li>
<%End If%>
<%If Rs("modules")=2 Then%>
<li><a target="mainFrame" href="soft/admin_downlog.asp?ChannelID=<%=ChannelID%>">下载日志</a> | <a target="mainFrame" href="soft/admin_error.asp?ChannelID=<%=ChannelID%>">错误报告</a></li>
<%End If%>
<li><a target="mainFrame" href="<%=strModules%>/admin_collection.asp?ChannelID=<%=ChannelID%>">采集管理</a> | <a target="mainFrame" href="sys/admin_channel.asp?action=edit&ChannelID=<%=ChannelID%>">频道设置</a></li>
<li><a target="mainFrame" href="<%=strModules%>/admin_makehtml.asp?ChannelID=<%=ChannelID%>">生成HTML</a> | <a target="mainFrame" href="sys/admin_taglist.asp?ChannelID=<%=ChannelID%>">Tag管理</a></li>
<li><a target="mainFrame" href="<%=strModules%>/admin_comment.asp?ChannelID=<%=ChannelID%>">评论管理</a> | <a target="mainFrame" href="<%=strModules%>/admin_jscript.asp?ChannelID=<%=ChannelID%>">JS 管理</a></li>
<li><a target="mainFrame" href="<%=strModules%>/admin_upload.asp?ChannelID=<%=ChannelID%>&action=img">图片管理</a> | <a target="mainFrame" href="<%=strModules%>/admin_upload.asp?ChannelID=<%=ChannelID%>&action=file">文件管理</a></li>
<li><a target="mainFrame" href="sys/admin_template.asp?action=browse&path=<%=NewAsp.MainSetting(0)%>\Channel_<%=ChannelID%>">模板风格管理</a> | <a target="mainFrame" href="<%=strModules%>/admin_search.asp?ChannelID=<%=ChannelID%>">搜索</a></li>
</ul>
</dd>
</dl>
<%
Rs.movenext
Loop
Set Rs = Nothing
End If
If intModules=4 Then
%>
<dl>
<dt class="menu_title" id="menuTitle4" onclick="showsubmenu(4)">问吧管理</dt>
<dd id="submenu4">
<ul>
<li><a target="mainFrame" href="asked/admin_setting.asp?ChannelID=4">问吧设置</a> | <a target="mainFrame" href="asked/admin_list.asp?ChannelID=4">问答列表</a></li>
<li><a target="mainFrame" href="asked/admin_class.asp?action=add&ChannelID=4">添加分类</a> | <a target="mainFrame" href="asked/admin_class.asp?ChannelID=4">分类管理</a></li>
<li><a target="mainFrame" href="asked/admin_users.asp?ChannelID=4">用户管理</a> | <a target="mainFrame" href="asked/admin_setting.asp?action=point&ChannelID=4">积分设置</a></li>
<li><a target="mainFrame" href="asked/admin_lockip.asp?ChannelID=4">IP访问限制</a> | <a target="mainFrame" href="asked/admin_badword.asp?ChannelID=4">过滤字符</a></li>
<li><a target="mainFrame" href="asked/admin_comment.asp?ChannelID=4">评论管理</a> | <a target="mainFrame" href="asked/admin_template.asp?ChannelID=4">模板管理</a></li>
<li><a target="mainFrame" href="asked/admin_collection.asp?ChannelID=4">问吧采集管理</a></li>
<li><a target="mainFrame" href="asked/admin_ranked.asp?ChannelID=4">用户积分&等级管理</a></li>
<li><a target="mainFrame" href="asked/admin_online.asp?ChannelID=4">问吧用户在线列表</a></li>
<li><a target="mainFrame" href="asked/admin_data.asp?action=CompressData">问吧数据库压缩</a></li>
<li><a target="mainFrame" href="asked/admin_data.asp?action=BackupData">问吧数据库备份</a></li>
<li><a target="mainFrame" href="asked/admin_data.asp?action=RestoreData">问吧数据库恢复</a></li>
</ul>
</dd>
</dl>
<%
End If
If intModules=999 Then
%>
<dl>
<dt class="menu_title" id="menuTitle997" onclick="showsubmenu(997)">用户管理</dt>
<dd id="submenu997">
<ul>
<li><a target="mainFrame" href="users/admin_user.asp?action=add">添加用户</a> | <a target="mainFrame" href="users/admin_list.asp">用户管理</a></li>
<li><a target="mainFrame" href="users/admin_group.asp">用户组管理</a> | <a target="mainFrame" href="users/admin_group.asp?action=add">添加</a></li>
<li><a target="mainFrame" href="users/admin_master.asp">管理员列表</a> | <a target="mainFrame" href="users/admin_master.asp?action=add">添加</a></li>
<li><a target="mainFrame" href="users/admin_password.asp">修改当前管理员密码</a></li>
<li><a target="mainFrame" href="users/admin_userorder.asp">定单管理</a> | <a target="mainFrame" href="users/admin_confirm.asp">交费确认</a></li>
<li><a target="mainFrame" href="users/admin_account.asp">交易查询</a> | <a target="mainFrame" href="users/admin_paymode.asp">付款方式</a></li>
<li><a target="mainFrame" href="users/admin_message.asp">发送短信</a> | <a target="mainFrame" href="users/admin_card.asp">充值管理</a></li>
<li><a target="mainFrame" href="users/admin_message.asp">短信管理</a> | <a target="mainFrame" href="users/admin_conform.asp">用户整合</a></li>
</ul>
</dd>
</dl>
<%
End If
If intModules=0 Then
%>
<dl>
<dt class="menu_title" id="menuTitle998" onclick="showsubmenu(998)">其它设置</dt>
<dd id="submenu998">
<ul>
<li><a target="mainFrame" href="sys/admin_vote.asp?action=add">增加投票</a> | <a target="mainFrame" href="sys/admin_vote.asp">投票管理</a></li>
<li><a target="mainFrame" href="sys/admin_link.asp?action=add">添加连接</a> | <a target="mainFrame" href="sys/admin_link.asp">友情连接</a></li>
<li><a target="mainFrame" href="sys/admin_other.asp?action=help">网站帮助</a> | <a target="mainFrame" href="sys/admin_other.asp?action=about">关于我们</a></li>
<li><a target="mainFrame" href="sys/admin_other.asp?action=ad">广告合作</a> | <a target="mainFrame" href="sys/admin_other.asp?action=declare">网站声明</a></li>
<li><a target="mainFrame" href="sys/admin_maillist.asp">邮件列表</a> | <a target="mainFrame" href="sys/admin_maillist.asp?action=mail">发送邮件</a></li>
<li><a target="mainFrame" href="sys/admin_data.asp?action=CompressData">数据压缩</a> | <a target="mainFrame" href="sys/admin_data.asp?action=BackupData">数据备份</a></li>
<li><a target="mainFrame" href="sys/admin_data.asp?action=RestoreData">数据恢复</a> | <a target="mainFrame" href="sys/admin_replace.asp">批量替换</a></li>
</ul>
</dd>
</dl>
<%
End If
%>
</td>
</tr>
<tr>
<td class="navbottom" style="background-repeat:no-repeat;"></td>
</tr>
</table>
</body>
</html>
<%
End If
Sub Admin_LeftMenu()
%>
<dl>
<dt class="menu_title" id="menuTitle0" onclick="showsubmenu(0)">常规设置 </dt>
<dd id="submenu0">
<ul>
<li><a target="mainFrame" href="sys/admin_setting.asp">基本设置</a> | <a target="mainFrame" href="sys/admin_channel.asp">频道管理</a></li>
<li><a target="mainFrame" href="sys/admin_setting.asp?action=upload">上传设置</a> | <a target="mainFrame" href="sys/admin_badword.asp">过滤设置</a></li>
<li><a target="mainFrame" href="sys/admin_lockip.asp">IP地址访问限制管理</a></li>
<li><a target="mainFrame" href="sys/admin_announce.asp?action=add">发布公告</a> | <a target="mainFrame" href="sys/admin_announce.asp">公告管理</a></li>
<li><a target="mainFrame" href="sys/admin_data.asp">系统信息</a> | <a target="mainFrame" href="sys/admin_log.asp">管理日志</a></li>
<li><a target="mainFrame" href="sys/admin_replace.asp">批量替换</a> | <a target="mainFrame" href="sys/admin_admanage.asp">广告管理</a></li>
<li><a target="mainFrame" href="sys/admin_makeindex.asp">生成首页</a> | <a target="mainFrame" href="sys/admin_makesitemap.asp">生成地图</a></li>
<li><a target="mainFrame" href="sys/admin_makelabel.asp">标签管理</a> | <a target="mainFrame" href="sys/admin_template.asp">模板管理</a></li>
</ul>
</dd>
</dl>
<%
Dim Rs,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%>)"><a target="mainFrame" href="<%=strModules%>/admin_index.asp"><%=ChannelName%>管理</a></dt>
<dd id="submenu<%=ChannelID%>">
<ul>
<li><a target="mainFrame" href="<%=strModules%>/admin_post.asp?ChannelID=<%=ChannelID%>&action=add">添加<%=ModuleName%></a> | <a target="mainFrame" href="<%=strModules%>/admin_list.asp?ChannelID=<%=ChannelID%>"><%=ModuleName%>管理</a></li>
<li><a target="mainFrame" href="sys/admin_class.asp?ChannelID=<%=ChannelID%>&action=add">添加分类</a> | <a target="mainFrame" href="sys/admin_class.asp?ChannelID=<%=ChannelID%>">分类管理</a></li>
<li><a target="mainFrame" href="sys/admin_special.asp?ChannelID=<%=ChannelID%>">专题管理</a> | <a target="mainFrame" href="<%=strModules%>/admin_list.asp?ChannelID=<%=ChannelID%>&isAccept=1">审核管理</a></li>
<li><a target="mainFrame" href="<%=strModules%>/admin_setting.asp?action=setting&ChannelID=<%=ChannelID%>">批量设置</a> | <a target="mainFrame" href="<%=strModules%>/admin_setting.asp?action=move&ChannelID=<%=ChannelID%>">批量移动</a></li>
<%If Rs("modules")=2 Or Rs("modules")=5 Then%>
<li><a target="mainFrame" href="<%=strModules%>/admin_server.asp?ChannelID=<%=ChannelID%>">下载服务器管理</a></li>
<%End If%>
<%If Rs("modules")=2 Then%>
<li><a target="mainFrame" href="soft/admin_downlog.asp?ChannelID=<%=ChannelID%>">下载日志</a> | <a target="mainFrame" href="soft/admin_error.asp?ChannelID=<%=ChannelID%>">错误报告</a></li>
<%End If%>
<li><a target="mainFrame" href="<%=strModules%>/admin_collection.asp?ChannelID=<%=ChannelID%>">采集管理</a> | <a target="mainFrame" href="sys/admin_channel.asp?action=edit&ChannelID=<%=ChannelID%>">频道设置</a></li>
<li><a target="mainFrame" href="<%=strModules%>/admin_makehtml.asp?ChannelID=<%=ChannelID%>">生成HTML</a> | <a target="mainFrame" href="sys/admin_taglist.asp?ChannelID=<%=ChannelID%>">Tag管理</a></li>
<li><a target="mainFrame" href="<%=strModules%>/admin_comment.asp?ChannelID=<%=ChannelID%>">评论管理</a> | <a target="mainFrame" href="<%=strModules%>/admin_jscript.asp?ChannelID=<%=ChannelID%>">JS 管理</a></li>
<li><a target="mainFrame" href="<%=strModules%>/admin_upload.asp?ChannelID=<%=ChannelID%>&action=img">图片管理</a> | <a target="mainFrame" href="<%=strModules%>/admin_upload.asp?ChannelID=<%=ChannelID%>&action=file">文件管理</a></li>
<li><a target="mainFrame" href="sys/admin_template.asp?action=browse&path=<%=NewAsp.MainSetting(0)%>\Channel_<%=ChannelID%>">模板风格管理</a> | <a target="mainFrame" href="<%=strModules%>/admin_search.asp?ChannelID=<%=ChannelID%>">搜索</a></li>
</ul>
</dd>
</dl>
<%
Rs.movenext
Loop
Set Rs = Nothing
%>
<dl>
<dt class="menu_title" id="menuTitle998" onclick="showsubmenu(998)"><a target="mainFrame" href="asked/admin_index.asp">问吧管理</a></dt>
<dd id="submenu998">
<ul>
<li><a target="mainFrame" href="asked/admin_setting.asp?ChannelID=4">问吧设置</a> | <a target="mainFrame" href="asked/admin_list.asp?ChannelID=4">问答列表</a></li>
<li><a target="mainFrame" href="asked/admin_class.asp?action=add&ChannelID=4">添加分类</a> | <a target="mainFrame" href="asked/admin_class.asp?ChannelID=4">分类管理</a></li>
<li><a target="mainFrame" href="asked/admin_users.asp?ChannelID=4">用户管理</a> | <a target="mainFrame" href="asked/admin_setting.asp?action=point&ChannelID=4">积分设置</a></li>
<li><a target="mainFrame" href="asked/admin_lockip.asp?ChannelID=4">IP访问限制</a> | <a target="mainFrame" href="asked/admin_badword.asp?ChannelID=4">过滤字符</a></li>
<li><a target="mainFrame" href="asked/admin_comment.asp?ChannelID=4">评论管理</a> | <a target="mainFrame" href="asked/admin_template.asp?ChannelID=4">模板管理</a></li>
<li><a target="mainFrame" href="asked/admin_collection.asp?ChannelID=4">问吧采集管理</a></li>
<li><a target="mainFrame" href="asked/admin_ranked.asp?ChannelID=4">用户积分&等级管理</a></li>
<li><a target="mainFrame" href="asked/admin_online.asp?ChannelID=4">问吧用户在线列表</a></li>
<li><a target="mainFrame" href="asked/admin_data.asp?action=CompressData">问吧数据库压缩</a></li>
<li><a target="mainFrame" href="asked/admin_data.asp?action=BackupData">问吧数据库备份</a></li>
<li><a target="mainFrame" href="asked/admin_data.asp?action=RestoreData">问吧数据库恢复</a></li>
</ul>
</dd>
</dl>
<dl>
<dt class="menu_title" id="menuTitle1001" onclick="showsubmenu(1001)">用户管理 </dt>
<dd id="submenu1001">
<ul>
<li><a target="mainFrame" href="users/admin_user.asp?action=add">添加用户</a> | <a target="mainFrame" href="users/admin_list.asp">用户管理</a></li>
<li><a target="mainFrame" href="users/admin_group.asp">用户组管理</a> | <a target="mainFrame" href="users/admin_group.asp?action=add">添加</a></li>
<li><a target="mainFrame" href="users/admin_master.asp">管理员列表</a> | <a target="mainFrame" href="users/admin_master.asp?action=add">添加</a></li>
<li><a target="mainFrame" href="users/admin_password.asp">修改当前管理员密码</a></li>
<li><a target="mainFrame" href="users/admin_userorder.asp">定单管理</a> | <a target="mainFrame" href="users/admin_confirm.asp">交费确认</a></li>
<li><a target="mainFrame" href="users/admin_account.asp">交易查询</a> | <a target="mainFrame" href="users/admin_paymode.asp">付款方式</a></li>
<li><a target="mainFrame" href="users/admin_message.asp">发送短信</a> | <a target="mainFrame" href="users/admin_card.asp">充值管理</a></li>
<li><a target="mainFrame" href="users/admin_message.asp">短信管理</a> | <a target="mainFrame" href="users/admin_conform.asp">用户整合</a></li>
</ul>
</dd>
</dl>
<dl>
<dt class="menu_title" id="menuTitle1002" onclick="showsubmenu(1002)">其它管理 </dt>
<dd id="submenu1002">
<ul>
<li><a target="mainFrame" href="sys/admin_vote.asp?action=add">增加投票</a> | <a target="mainFrame" href="sys/admin_vote.asp">投票管理</a></li>
<li><a target="mainFrame" href="sys/admin_link.asp?action=add">添加连接</a> | <a target="mainFrame" href="sys/admin_link.asp">友情连接</a></li>
<li><a target="mainFrame" href="sys/admin_other.asp?action=help">网站帮助</a> | <a target="mainFrame" href="sys/admin_other.asp?action=about">关于我们</a></li>
<li><a target="mainFrame" href="sys/admin_other.asp?action=ad">广告合作</a> | <a target="mainFrame" href="sys/admin_other.asp?action=declare">网站声明</a></li>
<li><a target="mainFrame" href="sys/admin_maillist.asp">邮件列表</a> | <a target="mainFrame" href="sys/admin_maillist.asp?action=mail">发送邮件</a></li>
<li><a target="mainFrame" href="sys/admin_data.asp?action=CompressData">数据压缩</a> | <a target="mainFrame" href="sys/admin_data.asp?action=BackupData">数据备份</a></li>
<li><a target="mainFrame" href="sys/admin_data.asp?action=RestoreData">数据恢复</a> | <a target="mainFrame" href="sys/admin_replace.asp">批量替换</a></li>
</ul>
</dd>
</dl>
<%
Call Admin_CommonMenu()
Response.Write "</div></div>"
End Sub
Sub Admin_ChannelMenu()
Dim Rs,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 ChannelID<>3 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="mainFrame" href="<%=strModules%>/admin_post.asp?ChannelID=<%=ChannelID%>&action=add">添加<%=ModuleName%></a> | <a target="mainFrame" href="<%=strModules%>/admin_list.asp?ChannelID=<%=ChannelID%>"><%=ModuleName%>管理</a></li>
<li><a target="mainFrame" href="sys/admin_class.asp?ChannelID=<%=ChannelID%>&action=add">添加分类</a> | <a target="mainFrame" href="sys/admin_class.asp?ChannelID=<%=ChannelID%>">分类管理</a></li>
<li><a target="mainFrame" href="sys/admin_special.asp?ChannelID=<%=ChannelID%>">专题管理</a> | <a target="mainFrame" href="<%=strModules%>/admin_list.asp?ChannelID=<%=ChannelID%>&isAccept=1">审核管理</a></li>
<li><a target="mainFrame" href="<%=strModules%>/admin_setting.asp?action=setting&ChannelID=<%=ChannelID%>">批量设置</a> | <a target="mainFrame" href="<%=strModules%>/admin_setting.asp?action=move&ChannelID=<%=ChannelID%>">批量移动</a></li>
<%If Rs("modules")=2 Or Rs("modules")=5 Then%>
<li><a target="mainFrame" href="<%=strModules%>/admin_server.asp?ChannelID=<%=ChannelID%>">下载服务器管理</a></li>
<%End If%>
<%If Rs("modules")=2 Then%>
<li><a target="mainFrame" href="soft/admin_downlog.asp?ChannelID=<%=ChannelID%>">下载日志</a> | <a target="mainFrame" href="soft/admin_error.asp?ChannelID=<%=ChannelID%>">错误报告</a></li>
<%End If%>
<li><a target="mainFrame" href="<%=strModules%>/admin_collection.asp?ChannelID=<%=ChannelID%>">采集管理</a> | <a target="mainFrame" href="sys/admin_channel.asp?action=edit&ChannelID=<%=ChannelID%>">频道设置</a></li>
<li><a target="mainFrame" href="<%=strModules%>/admin_makehtml.asp?ChannelID=<%=ChannelID%>">生成HTML</a> | <a target="mainFrame" href="sys/admin_taglist.asp?ChannelID=<%=ChannelID%>">Tag管理</a></li>
<li><a target="mainFrame" href="<%=strModules%>/admin_comment.asp?ChannelID=<%=ChannelID%>">评论管理</a> | <a target="mainFrame" href="<%=strModules%>/admin_jscript.asp?ChannelID=<%=ChannelID%>">JS 管理</a></li>
<li><a target="mainFrame" href="<%=strModules%>/admin_upload.asp?ChannelID=<%=ChannelID%>&action=img">图片管理</a> | <a target="mainFrame" href="<%=strModules%>/admin_upload.asp?ChannelID=<%=ChannelID%>&action=file">文件管理</a></li>
<li><a target="mainFrame" href="sys/admin_template.asp?action=browse&path=<%=NewAsp.MainSetting(0)%>\Channel_<%=ChannelID%>">模板风格管理</a> | <a target="mainFrame" href="<%=strModules%>/admin_search.asp?ChannelID=<%=ChannelID%>">搜索</a></li>
</ul>
</dd>
</dl>
<%
Rs.movenext
Loop
Set Rs = Nothing
If intModules = 4 Then
%>
<dl>
<dt class="menu_title" id="menuTitle998" onclick="showsubmenu(998)"><a target="mainFrame" href="asked/admin_index.asp">问吧管理</a></dt>
<dd id="submenu998">
<ul>
<li><a target="mainFrame" href="asked/admin_setting.asp?ChannelID=4">问吧设置</a> | <a target="mainFrame" href="asked/admin_list.asp?ChannelID=4">问答列表</a></li>
<li><a target="mainFrame" href="asked/admin_class.asp?action=add&ChannelID=4">添加分类</a> | <a target="mainFrame" href="asked/admin_class.asp?ChannelID=4">分类管理</a></li>
<li><a target="mainFrame" href="asked/admin_users.asp?ChannelID=4">用户管理</a> | <a target="mainFrame" href="asked/admin_setting.asp?action=point&ChannelID=4">积分设置</a></li>
<li><a target="mainFrame" href="asked/admin_lockip.asp?ChannelID=4">IP访问限制</a> | <a target="mainFrame" href="asked/admin_badword.asp?ChannelID=4">过滤字符</a></li>
<li><a target="mainFrame" href="asked/admin_comment.asp?ChannelID=4">评论管理</a> | <a target="mainFrame" href="asked/admin_template.asp?ChannelID=4">模板管理</a></li>
<li><a target="mainFrame" href="asked/admin_collection.asp?ChannelID=4">问吧采集管理</a></li>
<li><a target="mainFrame" href="asked/admin_ranked.asp?ChannelID=4">用户积分&等级管理</a></li>
<li><a target="mainFrame" href="asked/admin_online.asp?ChannelID=4">问吧用户在线列表</a></li>
<li><a target="mainFrame" href="asked/admin_data.asp?action=CompressData">问吧数据库压缩</a></li>
<li><a target="mainFrame" href="asked/admin_data.asp?action=BackupData">问吧数据库备份</a></li>
<li><a target="mainFrame" href="asked/admin_data.asp?action=RestoreData">问吧数据库恢复</a></li>
</ul>
</dd>
</dl>
<%
End If
If intModules = 3 Or intModules = 0 Then
%>
<dl>
<dt class="menu_title" id="menuTitle1001" onclick="showsubmenu(1001)">用户管理 </dt>
<dd id="submenu1001">
<ul>
<li><a target="mainFrame" href="users/admin_user.asp?action=add">添加用户</a> | <a target="mainFrame" href="users/admin_list.asp">用户管理</a></li>
<li><a target="mainFrame" href="users/admin_group.asp">用户组管理</a> | <a target="mainFrame" href="users/admin_group.asp?action=add">添加</a></li>
<li><a target="mainFrame" href="users/admin_master.asp">管理员列表</a> | <a target="mainFrame" href="users/admin_master.asp?action=add">添加</a></li>
<li><a target="mainFrame" href="users/admin_password.asp">修改当前管理员密码</a></li>
<li><a target="mainFrame" href="users/admin_userorder.asp">定单管理</a> | <a target="mainFrame" href="users/admin_confirm.asp">交费确认</a></li>
<li><a target="mainFrame" href="users/admin_account.asp">交易查询</a> | <a target="mainFrame" href="users/admin_paymode.asp">付款方式</a></li>
<li><a target="mainFrame" href="users/admin_message.asp">发送短信</a> | <a target="mainFrame" href="users/admin_card.asp">充值管理</a></li>
<li><a target="mainFrame" href="users/admin_message.asp">短信管理</a> | <a target="mainFrame" href="users/admin_conform.asp">用户整合</a></li>
</ul>
</dd>
</dl>
<%
End If
Response.Write "</div></div>"
End Sub
Sub Admin_LeftFrame()
Response.Write "<div id=""frameBody"">" & vbNewLine
Response.Write "<iframe id=""leftMenu"" src=""admin_left2.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="mainFrame" href="sys/admin_vote.asp?action=add">增加投票</a> | <a target="mainFrame" href="sys/admin_vote.asp">投票管理</a></li>
<li><a target="mainFrame" href="sys/admin_link.asp?action=add">添加连接</a> | <a target="mainFrame" href="sys/admin_link.asp">友情连接</a></li>
<li><a target="mainFrame" href="sys/admin_other.asp?action=help">网站帮助</a> | <a target="mainFrame" href="sys/admin_other.asp?action=about">关于我们</a></li>
<li><a target="mainFrame" href="sys/admin_other.asp?action=ad">广告合作</a> | <a target="mainFrame" href="sys/admin_other.asp?action=declare">网站声明</a></li>
<li><a target="mainFrame" href="sys/admin_maillist.asp">邮件列表</a> | <a target="mainFrame" href="sys/admin_maillist.asp?action=mail">发送邮件</a></li>
<li><a target="mainFrame" href="sys/admin_data.asp?action=CompressData">数据压缩</a> | <a target="mainFrame" href="sys/admin_data.asp?action=BackupData">数据备份</a></li>
<li><a target="mainFrame" href="sys/admin_data.asp?action=RestoreData">数据恢复</a> | <a target="mainFrame" href="sys/admin_replace.asp">批量替换</a></li>
</ul>
</dd>
</dl>
<dl id="systemInfo">
<dt class="menu_title">系统信息 </dt>
<dd>
<ul>
<li>版权所有：</li>
<li><a target="_blank" href="http://www.801w.cn/">801w软件代理系统</a></li>
<li>程序开发：</li>
<li><a target="_blank" href="http://www.801w.com/">801w.com</a></li>
<li>QQ：274667447</li>
<li>【<a target="_top" href="admin_logout.asp">注销退出</a>】</li>
</ul>
</dd>
</dl>
<%
End Sub
NewAsp.PageEnd
%>