<!-- #include file="../conn.asp" -->
<!-- #include file="../cls_main.asp" -->
<% MyDbPath = "../"
dim obj
set obj = New admin_index_Left
	obj.AspInit()
set obj = nothing


Class admin_index_Left
	Private Mesky
	Private Sub Class_Initialize()
		Set Mesky = New Cls_Main
		Founderr = False
	End Sub
	Private Sub Class_Terminate()
		Set Mesky = Nothing
	End Sub
	Public Sub AspInit()
		Response.Write "<HTML>" & vbCrLf
		Response.Write "<HEAD>" & vbCrLf
		Response.Write "<TITLE>后台管理</TITLE>" & vbCrLf
		Response.Write "<META http-equiv=Content-Type content=""text/html; charset=gb2312"">" & vbCrLf
		Response.Write "<LINK href=""admin.css"" type=text/css rel=stylesheet>" & vbCrLf
		Response.Write "<style type=""text/css"">" & vbCrLf
		Response.Write "<!--" & vbCrLf
		Response.Write ".style3 {color: #FF0000}" & vbCrLf
		Response.Write "-->" & vbCrLf
		Response.Write "</style>" & vbCrLf
		Response.Write "</HEAD>" & vbCrLf
		Response.Write "<BODY>" & vbCrLf
		
		If Mesky.adminName = "" Then
			Response.Write ("<li>没有登录系统，<a href=""../admin_login.asp"" target=_top>点此进入管理员登录界面</a>。")
		Else
			Call Main
		End If
		
		Response.Write "</BODY></HTML>" & vbCrLf
	End Sub
	Private Sub Main()
	
		Response.Write "<base target=""main"">" & vbCrLf
		Response.Write "<SCRIPT language=javascript1.2>" & vbCrLf
		Response.Write "function showsubadmin_menu(sid)" & vbCrLf
		Response.Write "{" & vbCrLf
		Response.Write "whichEl = eval(""subadmin_menu"" + sid);" & vbCrLf
		Response.Write "if (whichEl.style.display == ""none"")" & vbCrLf
		Response.Write "{" & vbCrLf
		Response.Write "eval(""subadmin_menu"" + sid + "".style.display=\""\"";"");" & vbCrLf
		Response.Write "}" & vbCrLf
		Response.Write "else" & vbCrLf
		Response.Write "{" & vbCrLf
		Response.Write "eval(""subadmin_menu"" + sid + "".style.display=\""none\"";"");" & vbCrLf
		Response.Write "}" & vbCrLf
		Response.Write "}" & vbCrLf
		Response.Write "</SCRIPT>" & vbCrLf
		Response.Write "<table cellpadding=0 cellspacing=1 width=""100%"" align=center border=""0"" bgcolor=""#cccccc"">" & vbCrLf
		Response.Write "  <tr> " & vbCrLf
		Response.Write "    <td height=""25"" bgcolor=""#FFFFFF""> " & vbCrLf
		Response.Write "      <table width=""135"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"">" & vbCrLf
		Response.Write "        <tr>" & vbCrLf
		Response.Write "          <td><img src=""../images/admin_home.gif"" align=""absmiddle""> <a href=""admin_index.asp"" target=_top>管理首页</a> ┊ <a href=""../admin_login.asp?action=logout""  target=_top>退出</a> " & vbCrLf
		Response.Write "          </td>" & vbCrLf
		Response.Write "        </tr>" & vbCrLf
		Response.Write "    </table></td>" & vbCrLf
		Response.Write "  </tr>" & vbCrLf
		Response.Write "</table>" & vbCrLf
		
		Rem 管理栏目设置
		Dim admin_menu(4, 9)
		admin_menu(0, 0) = "◎ 下载管理"
		admin_menu(0, 1) = "<a href=admin_down_reslist.asp>下载管理</a> ┊ <a href=admin_down_resource.asp><font color=red>添加下载</font></a>"
		admin_menu(0, 2) = "<a href=admin_down_catalog.asp>分类管理</a> ┊ <a href=admin_down_catalog.asp?action=add>添加分类</a>"
		admin_menu(0, 3) = "<a href=admin_setting.asp#8>下载资源管理相关设置</a>"
		admin_menu(0, 4) = "<a href=admin_down_comment.asp>下载评论管理</a>"
		admin_menu(0, 5) = "<a href=admin_batch_replace.asp>下载地址批量替换</a>"
		
		admin_menu(1, 0) = "◎ 文章管理"
		admin_menu(1, 1) = "<a href=admin_cms_reslist.asp>文章管理</a> ┊ <a href=Admin_cms_resource.asp><font color=red>添加文章</font></a>"
		admin_menu(1, 2) = "<a href=admin_cms_catalog.asp>分类管理</a> ┊ <a href=admin_cms_catalog.asp?action=add>添加分类</a>"
		admin_menu(1, 3) = "<a href=admin_cms_special.asp>专题管理</a> ┊ <a href=admin_cms_special.asp?action=add>添加专题</a>"
		admin_menu(1, 4) = "<a href=admin_setting.asp#9>CMS 文章管理相关设置</a>"
		admin_menu(1, 5) = "<a href=admin_cms_comment.asp>文章评论管理</a>"
		
		admin_menu(2, 0) = "◎ 用户管理"
		admin_menu(2, 1) = "<a href=admin_user.asp>注册会员管理</a>"
		admin_menu(2, 2) = "<a href=admin_user_ftp.asp>Serv-U FTP 用户管理</a> "
		admin_menu(2, 3) = "<a href=admin_admin.asp>管理员管理</a> ┊ <a href=admin_admin.asp?action=add>添加</a>"
		
		admin_menu(3, 0) = "◎ 业务管理"
		admin_menu(3, 1) = "<a href=admin_products.asp>产品管理</a> ┊ <a href=admin_operation.asp>业务管理</a> "
		
		admin_menu(4, 0) = "◎ 系统管理"
		admin_menu(4, 1) = "<a href=admin_setting.asp>系统设置</a> ┊ <a href=admin_Reg.asp>注册</a>"
		admin_menu(4, 2) = "<a href=admin_template.asp>系统模板管理</a>"
		admin_menu(4, 3) = "<a href=admin_News.asp>网站公告</a> ┊ <a href=admin_News.asp?action=add>添加</a> "
		admin_menu(4, 4) = "<a href=admin_HtmlPage.asp>自定义静态页</a> ┊ <a href=admin_HtmlPage.asp?action=add>添加</a> "
		admin_menu(4, 5) = "<a href=admin_down_site.asp>站点预定义</a> ┊ <a href=admin_down_site.asp?action=add>添加</a> "
		admin_menu(4, 6) = "<a href=admin_lockIP.asp>IP 限制</a> ┊ <a href=admin_lockIP.asp?action=add>添加</a>"
		admin_menu(4, 7) = "<a href=admin_SiteLink.asp>友情链接</a> ┊ <a href=admin_SiteLink.asp?action=add>添加</a>"
		admin_menu(4, 8) = "<a href=admin_Database.asp>数据库管理</a>"
		
		Dim j
		Dim tmpadmin_menu
		Dim admin_menuname
		Dim admin_menurl
		For i = 0 To UBound(admin_menu, 1)
			If IsEmpty(admin_menu(i, 0)) Then Exit For
		
			Response.Write "<table width=""100%"" height=""2"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
			Response.Write "  <tr>" & vbCrLf
			Response.Write "    <td></td>" & vbCrLf
			Response.Write "  </tr>" & vbCrLf
			Response.Write "</table>" & vbCrLf
			Response.Write "<table cellpadding=0 cellspacing=1 width=""100%"" align=center border=""0"" bgcolor=""#cccccc"">" & vbCrLf
			Response.Write "  <tr>" & vbCrLf
			Response.Write "    <td height=20 class=admin_menu_title onmouseover=this.className='admin_menu_title2'; onmouseout=this.className='admin_menu_title'; id=admin_menuTitle1 onclick=""showsubadmin_menu(" & i & ")"" bgcolor=""#efefef"" style=""cursor: crosshair;""> " & vbCrLf
			Response.Write "      <span><font color=#0066CC><b>" & admin_menu(i, 0) & "</b></font></span> </td>" & vbCrLf
			Response.Write "  </tr>" & vbCrLf
			Response.Write "  <tr>" & vbCrLf
			Response.Write "    <td style=""display:"" id='subadmin_menu" & i & "' bgcolor=""#FFFFFF""> " & vbCrLf
			Response.Write "      <div class=sec_admin_menu>" & vbCrLf
			Response.Write "        <table cellpadding=0 cellspacing=0 align=center width=135>" & vbCrLf
			
			For j = 1 To UBound(admin_menu, 2)
				If IsEmpty(admin_menu(i, j)) Then Exit For
				Response.Write "<tr><td height=20>" & admin_menu(i, j) & "</td></tr>" & vbCrLf
			Next
			Response.Write "</table>" & vbCrLf
			Response.Write "      </div>" & vbCrLf
			Response.Write "    </td>" & vbCrLf
			Response.Write "  </tr>" & vbCrLf
			Response.Write "</table>" & vbCrLf
		Next
	End Sub
End Class
%>