<!--#include file="fy.Function.asp"-->
<!doctype html>
<html>
<head>
<meta charset="gb2312">
<title>menu</title>
<link rel="stylesheet" type="text/css" href="css/base.css">
<link rel="stylesheet" type="text/css" href="css/menu.css">
</head>

<body>
<!--如果你要制造其他左边菜单页面 必须使用这个页面中的样式，js和结构-->

<div class="menu" id="menu">
<%	 Dim ModeID,ModeName,Rs,LeftID,diymenu,Rs1
	 LeftID = ChkNumeric(Request("ID"))
  Select Case LeftID
		Case "1"
			echo  Mxlist()
		Case "2"
 		Case "3"
			echo  Mxlist()
		Case "4"
			echo pluslist()
		Case "5"
			echo  userlist()
		Case Else
			echo  xtsz()
 
			 echo  userlist()
  
 		 	echo pluslist()
	 End Select 
 
	Function  xtsz()
		If    fycms.ChkAdmin() Then 
				xtsz=xtsz&"<dl>"
				xtsz=xtsz&"	<dt>系统设置</dt>"
				xtsz=xtsz&"    <dd>"
				xtsz=xtsz&"    	<ul class=""menulist"">"
				xtsz=xtsz&"            <li><a href=""fy.Sys.asp"" target=""ifrcontent"">控制面板</a></li>"
				xtsz=xtsz&"            <li><a href=""fy.Log.asp"" target=""ifrcontent"">日志管理</a></li>"
				xtsz=xtsz&"            <li><a href=""admin/index.asp"" target=""ifrcontent"">管理员管理</a></li>"
				xtsz=xtsz&"            <li><a href=""include/fy.Plus.asp"" target=""ifrcontent"">插件管理</a></li>"
				xtsz=xtsz&"            <li><a href=""fy.Data.asp"" target=""ifrcontent"">数据库维护</a></li>"
				xtsz=xtsz&"            <li><a href=""include/plus/dbquery.asp"" target=""ifrcontent"">数据源</a></li>"
				xtsz=xtsz&"            <li><a href=""fy_Mode/fy.Book.asp"" target=""ifrcontent"">评论管理</a></li>"
				xtsz=xtsz&"            <li><a href=""include/plus/fy.SiteLink.ASP"" target=""ifrcontent"">内部链接</a></li>"
				xtsz=xtsz&"           <li><a href=""include/plus/fy.DiyArticle.ASP"" target=""ifrcontent"">资源管理</a></li>"
				xtsz=xtsz&"            <li><a href=""include/fy.Upfile.asp"" target=""ifrcontent"">上传文件管理</a></li>"
				xtsz=xtsz&"            <li><a href=""fy_Mode/fy.Class.asp"" target=""ifrcontent"">栏目管理</a></li>"
				xtsz=xtsz&"        </ul>"
				xtsz=xtsz&"    </dd>"
				xtsz=xtsz&"</dl>"
		Else 
 
			Dim IF_NULL,i
			IF_NULL=fycms.Act_MXtab_Arr()
			If IsArray(IF_NULL) Then
				For I=0 To Ubound(IF_NULL,2)
				' MXArr=MXArr&IF_NULL(1,I)&","

				xtsz=xtsz&"<dl class=""dl2col"">"&vbcrlf
				xtsz=xtsz&"	<dt>"&IF_NULL(2,I)&"</dt>"&vbcrlf
				xtsz=xtsz&"    <dd>"&vbcrlf
				xtsz=xtsz&"    	<div class=""list_2col"">"&vbcrlf
				xtsz=xtsz&getclassarr(IF_NULL(0,I))
				'xtsz=xtsz&"<a href=""mode/fy.MX.asp"" target=""ifrcontent"">模型管理</a> ┆ <a href=""Mode/fy.ListM.ASP"" target=""ifrcontent"">字段管理</a>"
 				xtsz=xtsz&"        </div>"&vbcrlf
				xtsz=xtsz&"    </dd>"&vbcrlf
				xtsz=xtsz&"</dl>"&vbcrlf
				Next
			End If

		End If 
    End Function 
	Function getclassarr(modeid)
	

			Dim class_NULL,j
			class_NULL=fycms.class_Arr(" and modeid="&modeid)
			If IsArray(class_NULL) Then
				For j=0 To Ubound(class_NULL,2)
 				getclassarr=getclassarr&"<a href=""fy_Mode/fy.Manage.asp?Action=t&ModeID="&class_NULL(2,j)&"&ClassID="&class_NULL(0,j)&""" target=""ifrcontent"">"&class_NULL(1,j)&"</a> ┆ <a href=""fy_Mode/fy.Add.asp?ModeID="&class_NULL(2,j)&"&ClassID="&class_NULL(0,j)&""" target=""ifrcontent"">添加</a>"&vbcrlf
 				 
				Next
			End If





	End Function 

  	Function userlist()
	 If Not  fycms.ChkAdmin() Then  Exit Function '超级管理员检测
 
			userlist=userlist&"<dl>"
			userlist=userlist&"	<dt>会员设置</dt>"
			userlist=userlist&"    <dd>"
			userlist=userlist&"    	<ul class=""menulist"">"
 			userlist=userlist&"            <li><a href=""user/Reg.MX.asp"" target=""ifrcontent"">用户注册模型</a></li>"
 			userlist=userlist&"            <li><a href=""user/fy.temp.asp"" target=""ifrcontent"">模板文件夹管理</a></li>"
 			userlist=userlist&"            <li><a href=""user/fy.Space.asp"" target=""ifrcontent"">空间栏目管理</a></li>"
 			userlist=userlist&"            <li><a href=""user/Card.fy.asp"" target=""ifrcontent"">充值卡管理</a></li>"
 			userlist=userlist&"            <li><a href=""user/Point.fy.asp"" target=""ifrcontent"">会员点卷日志</a></li>"
 			userlist=userlist&"            <li><a href=""user/Edays.User.asp"" target=""ifrcontent"">会员有效期日志</a></li>"
 			userlist=userlist&"            <li><a href=""user/Money.User.asp"" target=""ifrcontent"">会员资金日志</a></li>"
 			userlist=userlist&"            <li><a href=""user/Message.fy.asp"" target=""ifrcontent"">用户短信管理</a></li>"
 			userlist=userlist&"            <li><a href=""user/Group.fy.asp"" target=""ifrcontent"">用户组管理</a></li>"
			Set Rs1 =fycms.ACTEXE("SELECT ModeID,ModeName FROM ModeUser_fy  order by ModeID asc")
			If Rs1.EOF  Then
			 echo	"没有记录"
			Else
				Do While Not Rs1.EOF	

 					userlist=userlist&"            <li><a href=""user/index.asp?ModeID="&Rs1("ModeID")&""" target=""ifrcontent"">"&Rs1("ModeName")&"管理</a></li>"
 					userlist=userlist&"            <li><a href=""User/fy.e.asp?UModeID="&Rs1("ModeID")&""" target=""ifrcontent"">添加"&Rs1("ModeName")&"</a></li>"

				Rs1.movenext
				Loop
			End  if 


	   Set Rs1 = Nothing
			userlist=userlist&"        </ul>"
			userlist=userlist&"    </dd>"
			userlist=userlist&"</dl>"
  	End Function






 Function  pluslist()
   	pluslist=pluslist&"<dl>"
    pluslist=pluslist&"	<dt>插件系统</dt>"
    pluslist=pluslist&"    <dd>"
    pluslist=pluslist&"    	<ul class=""menulist"">"

	  Set Rs1 =fycms.ACTEXE("SELECT PlusName,PlusID,PlusUrl  FROM Plus_fy where IsUse=0  Order by OrderID asc,ID asc")
	  If Not Rs1.EOF  Then
		Do While Not Rs1.EOF	
			If fycms.fycms_QXYZ(0,Rs1("PlusID"),"") Then
			Dim PlusMenu,I,PlusUrl
			PlusMenu=Split(Rs1("PlusName"),"-")
			PlusUrl=Split(Rs1("PlusUrl"),"-")
			For I=LBound(PlusMenu) To Ubound(PlusMenu)
			If UBound(PlusMenu)<>UBound(PlusUrl) Then echo Rs1("PlusName")&"插件管理地址错误":Exit For 
			 
		 
	
			pluslist=pluslist&"<li><a href=""Sys_fy/"&PlusUrl(i)&""" target=""ifrcontent"">"&PlusMenu(i)&"</a></li>"
			
			 
			 
			 Next
			 End If 
		Rs1.movenext
		Loop
	end if 









		pluslist=pluslist&"        </ul>"
		pluslist=pluslist&"    </dd>"
		pluslist=pluslist&"</dl>"

    End Function 

  	Function Mxlist()
  
			Mxlist=Mxlist&"<dl class=""dl2col"">"
			Mxlist=Mxlist&"	<dt>模型系统</dt>"
			Mxlist=Mxlist&"    <dd>"
			Mxlist=Mxlist&"    	<div class=""list_2col"">"
 			Mxlist=Mxlist&"<a href=""mode/fy.MX.asp"" target=""ifrcontent"">模型管理</a> ┆ <a href=""Mode/fy.ListM.ASP"" target=""ifrcontent"">字段管理</a>"
 			Mxlist=Mxlist&"<a href=""fy_Mode/fy.Class.asp?ModeID="&ModeID&""" target=""ifrcontent"">栏目管理</a> ┆ <a href=""fy_Mode/fy.ClassAdd.asp?ClassID=&amp;Action=add&ModeID="&ModeID&""" target=""ifrcontent"">栏目添加</a>"
 			Mxlist=Mxlist&"<a href=""fy_Mode/fy.Manage.asp?action=sh"" target=""ifrcontent"">文档审核</a> ┆ <a href=""fy_Mode/fy.SetArticle.asp"" target=""ifrcontent"">批量设置</a>"
 			Mxlist=Mxlist&"<a href=""fy_Mode/fy.Tags.asp"" target=""ifrcontent"">Tags管理</a> ┆ <a href=""fy_Mode/fy.Book.asp"" target=""ifrcontent"">评论管理</a>"
 			Mxlist=Mxlist&"<a href=""fy_Mode/fy.Recyle.asp?Type=New&ModeID="&ModeID&""" target=""ifrcontent"">回收站管理</a> ┆ <a href=""include/fy.C.asp?RefreshFlag=New&ModeID="&ModeID&"&TotalNum=50"" target=""ifrcontent"">生成最新50篇</a>"
 			Mxlist=Mxlist&"        </div>"
			Mxlist=Mxlist&"    </dd>"
			Mxlist=Mxlist&"</dl>"
  	End Function



 
%>


 
<dl class="lastdl">
    <dt>系统信息</dt>
    <dd>
        <ul class="menulist menulist0">
            <li>版权所有：安川网络</li>
            <li>版权所有：<a href="http://www.fycms.com/" target="_blank">fycms</a></li>
            <li>技术支持：<a href="http://help.fycms.com/" target="_blank">fycms</a></li>
		    <li>系统版本：<%=fycms.Version%></li>

        </ul>
    </dd>
</dl>

 
</div>
<script type="text/javascript" src="../fy_inc/js/jquery.js"></script>
<script src="js/base.js"></script>
</body>
</html>
