<!--#include file="ACT.Function.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>ActCMS内容管理系统</title>
<link href="Images/css1/left_css.css" rel="stylesheet" type="text/css">
</head>
<SCRIPT language=JavaScript>
function showsubmenu(sid)
{
whichEl = eval("submenu" + sid);
if (whichEl.style.display == "none")
{
eval("submenu" + sid + ".style.display=\"\";");
}
else
{
eval("submenu" + sid + ".style.display=\"none\";");
}
}
</SCRIPT>
<body >
<% 	 Dim ModeID,ModeName,Rs,LeftID,diymenu,Rs1
	 LeftID = ACTCMS.ChkNumeric(Request("ID"))
	


	
 %>

<table width="98%" border="0" cellpadding="0" cellspacing="0" background="Images/tablemde.jpg">
  <tr>
    <td height="8" background="Images/tabletop.jpg"></td>
  </tr>
<%Set diymenu = actcms.actexe("select * from DiyMenu_ACT where AdminID="&Cint(Request.Cookies(AcTCMSN)("AdminID"))&"")

	If  Not diymenu.eof Then 
%>
 
  <tr>
    <td><TABLE width="95%" border=0 align=right cellPadding=0 cellSpacing=0 class=leftframetable>
      <TBODY>
        <TR>
          <TD width="2%"><IMG height=17 src="Images/main.gif" width=15></TD>
          <TD class=STYLE1 style="CURSOR: hand" onclick=showsubmenu(41); width="98%" height=25>快捷菜单</TD>
        </TR>
        <TR>
          <TD colSpan=2><TABLE id=submenu41 cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
			  <%Do While Not  diymenu.eof %>
                <TR>
                  <TD width="2%"><IMG src="Images/closed.gif"></TD>
                  <TD height="23">
				  <A href="<%=diymenu("MenuUrl")%>" target=<%=diymenu("OpenWay")%>><%=diymenu("MenuName")%></A></TD>
                </TR>       
				<%
				 diymenu.movenext
				 loop
			   response.write " <TR>"& vbCrLf
			   response.write"		<TD width=""2%""><IMG src=""Images/closed.gif""></TD>"& vbCrLf
			   response.write"		<TD height=""23"">"& vbCrLf
			   response.write"		<A href=""include/ACT.DiyMenu.ASP"" target=main><font color=blue>快捷菜单</font></A></TD>"& vbCrLf
			   response.write" </TR>"& vbCrLf

				%>
              </TBODY>
          </TABLE></TD>
        </TR>
      </TBODY>
    </TABLE></td>
  </tr>
  <tr>
    <td bgcolor="#9BC2ED" height="5"></td>
  </tr>
 
 
 <% 
 End If 
  Select Case LeftID
		Case "1"
			response.write  Mxlist()
		Case "2"
			response.write labellist()
		Case "3"
			response.write  Mxlist()
		Case "4"
			response.write pluslist()
		Case "5"
			response.write  userlist()
		Case Else
			response.write  xtsz()
			response.write  Mxlist()

			response.write  userlist()
  
			response.write labellist()
			response.write pluslist()
  End Select 
	
 Function  xtsz()
 If Not  ACTCMS.ChkAdmin() Then  Exit Function '超级管理员检测
   xtsz=xtsz&"<tr>"& vbCrLf
   xtsz=xtsz&"<td colSpan=2><TABLE width=""95%"" border=0 align=right cellPadding=0 cellSpacing=0 class=leftframetable>"& vbCrLf
   xtsz=xtsz&"<TBODY>"& vbCrLf
   xtsz=xtsz&"<TR>"& vbCrLf
   xtsz=xtsz&"<TD width=""2%""><IMG height=17 src=""Images/main.gif"" width=15></TD>"& vbCrLf
   xtsz=xtsz&"<TD class=STYLE1 style=""CURSOR: hand"" onclick=showsubmenu(1); width=""98%"" height=25>系统设置</TD>"& vbCrLf
   xtsz=xtsz&"</TR>"& vbCrLf
   xtsz=xtsz&"<TR>"& vbCrLf
   xtsz=xtsz&" <TD colSpan=2><TABLE id=submenu1 cellSpacing=0 cellPadding=0 width=""100%"" border=0>"& vbCrLf
   xtsz=xtsz&" <TBODY>"& vbCrLf
 
   
   xtsz=xtsz&" <TR>"& vbCrLf
   xtsz=xtsz&"		<TD width=""2%""><IMG src=""Images/closed.gif""></TD>"& vbCrLf
   xtsz=xtsz&"		<TD height=""23"">"& vbCrLf
   xtsz=xtsz&"		<A href=""ACT.Sys.asp"" target=main><font color=""blue"">基本信息</font></A></TD>"& vbCrLf
   xtsz=xtsz&" </TR>"& vbCrLf
   
   
   xtsz=xtsz&" <TR>"& vbCrLf
   xtsz=xtsz&"		<TD width=""2%""><IMG src=""Images/closed.gif""></TD>"& vbCrLf
   xtsz=xtsz&"		<TD height=""23"">"& vbCrLf
   xtsz=xtsz&"		<A href=""ACT.Log.asp"" target=main>日志管理</A></TD>"& vbCrLf
   xtsz=xtsz&" </TR>"& vbCrLf

   xtsz=xtsz&" <TR>"& vbCrLf
   xtsz=xtsz&"		<TD width=""2%""><IMG src=""Images/closed.gif""></TD>"& vbCrLf
   xtsz=xtsz&"		<TD height=""23"">"& vbCrLf
   xtsz=xtsz&"		<A href=""ACT.Admin.asp"" target=main>管理员管理</A></TD>"& vbCrLf
   xtsz=xtsz&" </TR>"& vbCrLf

   
   xtsz=xtsz&" <TR>"& vbCrLf
   xtsz=xtsz&"		<TD width=""2%""><IMG src=""Images/closed.gif""></TD>"& vbCrLf
   xtsz=xtsz&"		<TD height=""23"">"& vbCrLf
   xtsz=xtsz&"		<A href=""include/ACT.Plus.asp"" target=main>插件管理</A></TD>"& vbCrLf
   xtsz=xtsz&" </TR>"& vbCrLf

   
   xtsz=xtsz&" <TR>"& vbCrLf
   xtsz=xtsz&"		<TD width=""2%""><IMG src=""Images/closed.gif""></TD>"& vbCrLf
   xtsz=xtsz&"		<TD height=""23"">"& vbCrLf
   xtsz=xtsz&"		<A href=""ACT.Data.asp"" target=main>数据库维护</A></TD>"& vbCrLf
   xtsz=xtsz&" </TR>"& vbCrLf

   
   xtsz=xtsz&" <TR>"& vbCrLf
   xtsz=xtsz&"		<TD width=""2%""><IMG src=""Images/closed.gif""></TD>"& vbCrLf
   xtsz=xtsz&"		<TD height=""23"">"& vbCrLf
   xtsz=xtsz&"		<A href=""mode/ACT.MX.asp"" target=main><font color=""green"">模型管理</font></A></TD>"& vbCrLf
   xtsz=xtsz&" </TR>"& vbCrLf

   
   xtsz=xtsz&" <TR>"& vbCrLf
   xtsz=xtsz&"		<TD width=""2%""><IMG src=""Images/closed.gif""></TD>"& vbCrLf
   xtsz=xtsz&"		<TD height=""23"">"& vbCrLf
   xtsz=xtsz&"		<A href=""include/ACT.DiyArticle.ASP"" target=main>资源管理</A></TD>"& vbCrLf
   xtsz=xtsz&" </TR>"& vbCrLf

   
   xtsz=xtsz&" <TR>"& vbCrLf
   xtsz=xtsz&"		<TD width=""2%""><IMG src=""Images/closed.gif""></TD>"& vbCrLf
   xtsz=xtsz&"		<TD height=""23"">"& vbCrLf
   xtsz=xtsz&"		<A href=""include/ACT.Upfile.asp"" target=main>上传文件管理</A></TD>"& vbCrLf
   xtsz=xtsz&" </TR>"& vbCrLf

   
   
   xtsz=xtsz&"           </TBODY>"& vbCrLf
   xtsz=xtsz&"       </TABLE></TD>"& vbCrLf
   xtsz=xtsz&"     </TR>"& vbCrLf
   xtsz=xtsz&"   </TBODY>"& vbCrLf
   xtsz=xtsz&" </TABLE></td>"& vbCrLf
   xtsz=xtsz&"</tr>"& vbCrLf
   xtsz=xtsz&" <tr>"& vbCrLf
   xtsz=xtsz&"  <td bgcolor=""#9BC2ED"" height=""5""></td>"& vbCrLf
   xtsz=xtsz&" </tr>"& vbCrLf
  End Function 

	Function Mxlist()
	    Dim MX_Sys,ii
		MX_Sys=ACTCMS.Act_MX_Sys_Arr()
		If IsArray(MX_Sys) Then
			For iI=0 To Ubound(MX_Sys,2)
				ModeName=MX_Sys(1,Ii)
				ModeID=MX_Sys(0,Ii)
				If Instr(Request.Cookies(AcTCMSN)("Purview"),"TCJ"&ModeID&"-TCJ") >0 OR Instr(Request.Cookies(AcTCMSN)("Purview"),"DXR"&ModeID&"-DXR") or ACTCMS.ChkAdmin() Then 
					Mxlist=Mxlist&"<tr>"& vbCrLf
					Mxlist=Mxlist&"<td ><table  cellspacing=""0"" cellpadding=""0"" width=""95%"" align=""right"" border=""0"">"& vbCrLf
					Mxlist=Mxlist&"<tbody>"& vbCrLf
					Mxlist=Mxlist&"<tr>"& vbCrLf
					Mxlist=Mxlist&" <td width=""2%""><img height=""17"" src=""Images/main.gif"" width=""15"" /></td>"& vbCrLf
					Mxlist=Mxlist&"     <td   width=""98%"" height=""25"" style=""CURSOR: hand"" onClick=""showsubmenu("&ModeID&"12);"">"& vbCrLf
					Mxlist=Mxlist&"<span class=""STYLE1"">"&ModeName&"系统</span></td>"& vbCrLf
					Mxlist=Mxlist&"</tr>"& vbCrLf
					Mxlist=Mxlist&"<tr>"& vbCrLf
					Mxlist=Mxlist&"     <td colspan=""2""><table id=""submenu"&ModeID&"12"" cellspacing=""0"" cellpadding=""0"" width=""95%""  align=""right"" border=""0"">"& vbCrLf
					Mxlist=Mxlist&"         <tbody>"& vbCrLf
					Mxlist=Mxlist&"           <tr>"& vbCrLf
					Mxlist=Mxlist&"             <td width=""2%""><img src=""Images/closed.gif"" /></td>"& vbCrLf
					Mxlist=Mxlist&"             <td height=""23"">"& vbCrLf
					Mxlist=Mxlist&"			  <a href=""Article/ACT.Add.asp?ModeID="&ModeID&""" target=""main""><font color=red>添加"&ModeName&"</font></a>"& vbCrLf
					Mxlist=Mxlist&"			  </td>"& vbCrLf
					Mxlist=Mxlist&"           </tr>"& vbCrLf
					  
					Mxlist=Mxlist&"		<tr>"& vbCrLf
					Mxlist=Mxlist&"			<td><img src=""Images/closed.gif"" /></td>"& vbCrLf
					Mxlist=Mxlist&"			<td height=""23"">"& vbCrLf
					Mxlist=Mxlist&"				<a href=""Article/ACT.Manage.asp?ModeID="&ModeID&""" target=""main"">"&ModeName&"管理</a>┆"& vbCrLf
					Mxlist=Mxlist&"				<a href=""Article/ACT.Manage.asp?action=sh&ModeID="&ModeID&""" target=""main"">"&ModeName&"审核</a></td>"& vbCrLf
					Mxlist=Mxlist&"		</tr>"& vbCrLf
								
					If  ACTCMS.ACTCMS_QXYZ(ModeID,"","") then  
					 
					Mxlist=Mxlist&"		<tr>"& vbCrLf
					Mxlist=Mxlist&"			<td><img src=""Images/closed.gif"" /></td>"& vbCrLf
					Mxlist=Mxlist&"			<td height=""23"">"& vbCrLf
					Mxlist=Mxlist&"				<a href=""Article/ACT.Class.asp?ModeID="&ModeID&""" target=""main"">栏目管理</a>┆"& vbCrLf
					Mxlist=Mxlist&"				<a href=""Article/ACT.ClassAdd.asp?ClassID=&amp;Action=add&ModeID="&ModeID&""" target=""main"">栏目添加</a></td>"& vbCrLf
					Mxlist=Mxlist&"		</tr>"& vbCrLf
					 
					 
					
					Mxlist=Mxlist&"		<tr>"& vbCrLf
					Mxlist=Mxlist&"			<td><img src=""Images/closed.gif"" /></td>"& vbCrLf
					Mxlist=Mxlist&"			<td height=""23"">"& vbCrLf
					Mxlist=Mxlist&"				<a href=""Article/ACT.Book.asp?ModeID="&ModeID&""" target=""main"">评论管理</a>┆"& vbCrLf
					Mxlist=Mxlist&"				<a href=""Article/ACT.SetArticle.asp?ModeID="&ModeID&""" target=""main"">批量设置</a></td>"& vbCrLf
					Mxlist=Mxlist&"		</tr>"& vbCrLf
					 

					Mxlist=Mxlist&"		<tr>"& vbCrLf
					Mxlist=Mxlist&"			<td><img src=""Images/closed.gif"" /></td>"& vbCrLf
					Mxlist=Mxlist&"			<td height=""23"">"& vbCrLf
					Mxlist=Mxlist&"				<a href=""Article/ACT.Tags.asp?ModeID="&ModeID&""" target=""main"">Tags管理</a>┆"& vbCrLf
					Mxlist=Mxlist&"				<a href=""Mode/ACT.ListM.ASP?A=L&ModeID="&ModeID&""" target=""main""><font color=green>字段管理</font></a></td>"& vbCrLf
					Mxlist=Mxlist&"		</tr>"& vbCrLf
					 
					
					Mxlist=Mxlist&"		<tr>"& vbCrLf
					Mxlist=Mxlist&"			<td><img src=""Images/closed.gif"" /></td>"& vbCrLf
					Mxlist=Mxlist&"			<td height=""23"">"& vbCrLf
					Mxlist=Mxlist&"				<a href=""Article/ACT.Manage.asp?action=MyArticle&ModeID="&ModeID&""" target=""main"">我添加的"&ModeName&"</td>"& vbCrLf
					Mxlist=Mxlist&"		</tr>"& vbCrLf
					 

					Mxlist=Mxlist&"		<tr>"& vbCrLf
					Mxlist=Mxlist&"			<td><img src=""Images/closed.gif"" /></td>"& vbCrLf
					Mxlist=Mxlist&"			<td height=""23"">"& vbCrLf
					Mxlist=Mxlist&"				<a href=""Article/ACT.Recyle.asp?Type=New&ModeID="&ModeID&""" target=""main"">回收站管理</td>"& vbCrLf
					Mxlist=Mxlist&"		</tr>"& vbCrLf
					 
					Mxlist=Mxlist&"		<tr>"& vbCrLf
					Mxlist=Mxlist&"			<td><img src=""Images/closed.gif"" /></td>"& vbCrLf
					Mxlist=Mxlist&"			<td height=""23"">"& vbCrLf
					Mxlist=Mxlist&"				<a href=""Mode/ACT.MX.asp?A=E&ModeID="&ModeID&""" target=""main"">系统参数设置</td>"& vbCrLf
					Mxlist=Mxlist&"		</tr>"& vbCrLf
					 

					Mxlist=Mxlist&"		<tr>"& vbCrLf
					Mxlist=Mxlist&"			<td><img src=""Images/closed.gif"" /></td>"& vbCrLf
					Mxlist=Mxlist&"			<td height=""23"">"& vbCrLf
					Mxlist=Mxlist&"				<a href=""include/ACT.Make.asp?ModeID="&ModeID&""" target=""main""><font color=blue>生成"&ModeName&"操作</font></td>"& vbCrLf
					Mxlist=Mxlist&"		</tr>"& vbCrLf
					 
					Mxlist=Mxlist&"		<tr>"& vbCrLf
					Mxlist=Mxlist&"			<td><img src=""Images/closed.gif"" /></td>"& vbCrLf
					Mxlist=Mxlist&"			<td height=""23"">"& vbCrLf
					Mxlist=Mxlist&"				<a href=""include/ACT.C.asp?RefreshFlag=New&ModeID="&ModeID&"&TotalNum=50"" target=""main"">生成最新50篇"&ModeName&"</td>"& vbCrLf
					Mxlist=Mxlist&"		</tr>"& vbCrLf
				End If 

					 
					Mxlist=Mxlist&"	         </tbody>"& vbCrLf
					Mxlist=Mxlist&"	       </table></td>"& vbCrLf
					Mxlist=Mxlist&"	     </tr>"& vbCrLf
				End if 
			Next
				If Instr(Request.Cookies(AcTCMSN)("Purview"),"TCJ"&ModeID&"-TCJ") >0 OR Instr(Request.Cookies(AcTCMSN)("Purview"),"DXR"&ModeID&"-DXR") or ACTCMS.ChkAdmin() Then 
					Mxlist=Mxlist&"	   </tbody>"& vbCrLf
					Mxlist=Mxlist&"	  </table></td>"& vbCrLf
					Mxlist=Mxlist&"	 </tr>	"& vbCrLf
				End if 	
					
					Mxlist=Mxlist&"		  <tr>"& vbCrLf
					Mxlist=Mxlist&"	  <td bgcolor=""#9BC2ED""></td>"& vbCrLf
					Mxlist=Mxlist&"	 </tr>"& vbCrLf
					Mxlist=Mxlist&"	 <tr>"& vbCrLf
					Mxlist=Mxlist&"	    <td bgcolor=""#9BC2ED""  height=""5""></td>"& vbCrLf
					Mxlist=Mxlist&"	  </tr>"& vbCrLf
		End If
	End Function

	Function userlist()
	 If Not  ACTCMS.ChkAdmin() Then  Exit Function '超级管理员检测
	   userlist=userlist&"<tr>"& vbCrLf
	   userlist=userlist&"<td  colSpan=2><TABLE width=""95%"" border=0 align=right cellPadding=0 cellSpacing=0 class=leftframetable>"& vbCrLf
	   userlist=userlist&"<TBODY>"& vbCrLf
	   userlist=userlist&"<TR>"& vbCrLf
	   userlist=userlist&"<TD width=""2%""><IMG height=17 src=""Images/main.gif"" width=15></TD>"& vbCrLf
	   userlist=userlist&"<TD class=STYLE1 style=""CURSOR: hand"" onclick=showsubmenu(4); width=""98%"" height=25>会员系统</TD>"& vbCrLf
	   userlist=userlist&"</TR>"& vbCrLf
	   userlist=userlist&"<TR>"& vbCrLf
	   userlist=userlist&" <TD colSpan=2><TABLE id=submenu4 cellSpacing=0 cellPadding=0 width=""100%"" border=0>"& vbCrLf
	   userlist=userlist&" <TBODY>"& vbCrLf



	   userlist=userlist&"<TR>"& vbCrLf
	   userlist=userlist&"    <TD width=""2%""><IMG src=""Images/closed.gif""></TD>"& vbCrLf
	   userlist=userlist&"    <TD height=23><A href=""User/Reg.MX.asp""  target=main>用户注册模型</A> </TD>"& vbCrLf
	   userlist=userlist&" </TR>"& vbCrLf


	   userlist=userlist&"<TR>"& vbCrLf
       userlist=userlist&"    <TD width=""2%""><IMG src=""Images/closed.gif""></TD>"& vbCrLf
       userlist=userlist&"    <TD height=23><A href=""User/Card_Act.asp?action=Add""  target=main>充值卡添加</A> </TD>"& vbCrLf
       userlist=userlist&" </TR>"& vbCrLf

	   userlist=userlist&"<TR>"& vbCrLf
       userlist=userlist&"    <TD width=""2%""><IMG src=""Images/closed.gif""></TD>"& vbCrLf
       userlist=userlist&"    <TD height=23><A href=""User/Card_Act.asp""  target=main>充值卡管理</A> </TD>"& vbCrLf
       userlist=userlist&" </TR>"& vbCrLf

	   userlist=userlist&"<TR>"& vbCrLf
       userlist=userlist&"    <TD width=""2%""><IMG src=""Images/closed.gif""></TD>"& vbCrLf
       userlist=userlist&"    <TD height=23><A href=""User/Message_Admin.asp""  target=main>用户短信管理</A> </TD>"& vbCrLf
       userlist=userlist&" </TR>"& vbCrLf
	
	   userlist=userlist&"<TR>"& vbCrLf
       userlist=userlist&"    <TD width=""2%""><IMG src=""Images/closed.gif""></TD>"& vbCrLf
       userlist=userlist&"    <TD height=23><A href=""User/Group_Admin.asp""  target=main>用户组管理</A> </TD>"& vbCrLf
       userlist=userlist&" </TR>"& vbCrLf
	   Set Rs1 =ACTCMS.ACTEXE("SELECT ModeID,ModeName FROM ModeUser_Act  order by ModeID asc")
	   If Rs1.EOF  Then
	  	 Response.Write	"没有记录"
	   Else
			Do While Not Rs1.EOF	
				userlist=userlist&"<TR>"& vbCrLf
				userlist=userlist&" <TD><IMG src=""Images/closed.gif""></TD>"& vbCrLf
				userlist=userlist&"<TD height=23><A href=""User/User_Admin.asp?ModeID="&Rs1("ModeID")&""" target=main>"&Rs1("ModeName")&"管理</A> </TD>"& vbCrLf
				userlist=userlist&"  </TR>"& vbCrLf
			Rs1.movenext
			Loop
	   End  if 
	   Set Rs1 = Nothing
	   userlist=userlist&"	         </tbody>"& vbCrLf
	   userlist=userlist&"	       </table></td>"& vbCrLf
	   userlist=userlist&"	     </tr>"& vbCrLf
	   userlist=userlist&"	   </tbody>"& vbCrLf
	   userlist=userlist&"	  </table></td>"& vbCrLf
	   userlist=userlist&"	 </tr>	"& vbCrLf
	   userlist=userlist&"		  <tr>"& vbCrLf
	   userlist=userlist&"	  <td bgcolor=""#9BC2ED""></td>"& vbCrLf
	   userlist=userlist&"	 </tr>"& vbCrLf
	   userlist=userlist&"	 <tr>"& vbCrLf
	   userlist=userlist&"	    <td bgcolor=""#9BC2ED""  height=""5""></td>"& vbCrLf
	   userlist=userlist&"	  </tr>"& vbCrLf
  End Function 
  Function labellist()
  If Not  ACTCMS.ACTCMS_QXYZ(0,"bqxt","") Then  Exit Function 

	   labellist=labellist&"<tr>"& vbCrLf
	   labellist=labellist&"<td colSpan=2><TABLE width=""95%"" border=0 align=right cellPadding=0 cellSpacing=0 class=leftframetable>"& vbCrLf
	   labellist=labellist&"<TBODY>"& vbCrLf
	   labellist=labellist&"<TR>"& vbCrLf
	   labellist=labellist&"<TD width=""2%""><IMG height=17 src=""Images/main.gif"" width=15></TD>"& vbCrLf
	   labellist=labellist&"<TD class=STYLE1 style=""CURSOR: hand"" onclick=showsubmenu(5); width=""98%"" height=25>标签系统</TD>"& vbCrLf
	   labellist=labellist&"</TR>"& vbCrLf
	   labellist=labellist&"<TR>"& vbCrLf
	   labellist=labellist&" <TD colSpan=2><TABLE id=submenu5 cellSpacing=0 cellPadding=0 width=""100%"" border=0>"& vbCrLf
	   labellist=labellist&" <TBODY>"& vbCrLf



	   labellist=labellist&"<TR>"& vbCrLf
       labellist=labellist&"    <TD width=""2%""><IMG src=""Images/closed.gif""></TD>"& vbCrLf
       labellist=labellist&"    <TD height=23><A href=""Label_Admin.asp?Type=1""  target=main>系统函数标签</A> </TD>"& vbCrLf
       labellist=labellist&" </TR>"& vbCrLf
 
 
	   labellist=labellist&"<TR>"& vbCrLf
       labellist=labellist&"    <TD width=""2%""><IMG src=""Images/closed.gif""></TD>"& vbCrLf
       labellist=labellist&"    <TD height=23><A href=""Label_Admin.asp?Type=2""  target=main>自定义静态标签</A> </TD>"& vbCrLf
       labellist=labellist&" </TR>"& vbCrLf
 
	   labellist=labellist&"<TR>"& vbCrLf
       labellist=labellist&"    <TD width=""2%""><IMG src=""Images/closed.gif""></TD>"& vbCrLf
       labellist=labellist&"    <TD height=23><A href=""Label_Admin.asp?Type=3""  target=main>自由标签</A> </TD>"& vbCrLf
       labellist=labellist&" </TR>"& vbCrLf
 
	   labellist=labellist&"<TR>"& vbCrLf
       labellist=labellist&"    <TD width=""2%""><IMG src=""Images/closed.gif""></TD>"& vbCrLf
       labellist=labellist&"    <TD height=23><A href=""include/Label/ACT.LabelFolder.asp""  target=main>标签目录</A> </TD>"& vbCrLf
       labellist=labellist&" </TR>"& vbCrLf
 
	   labellist=labellist&"	         </tbody>"& vbCrLf
	   labellist=labellist&"	       </table></td>"& vbCrLf
	   labellist=labellist&"	     </tr>"& vbCrLf
	   labellist=labellist&"	   </tbody>"& vbCrLf
	   labellist=labellist&"	  </table></td>"& vbCrLf
	   labellist=labellist&"	 </tr>	"& vbCrLf
	   labellist=labellist&"		  <tr>"& vbCrLf
	   labellist=labellist&"	  <td bgcolor=""#9BC2ED""></td>"& vbCrLf
	   labellist=labellist&"	 </tr>"& vbCrLf
	   labellist=labellist&"	 <tr>"& vbCrLf
	   labellist=labellist&"	    <td bgcolor=""#9BC2ED""  height=""5""></td>"& vbCrLf
	   labellist=labellist&"	  </tr>"& vbCrLf
  End Function 
  


  Function pluslist()
  
	   pluslist=pluslist&"<tr>"& vbCrLf
	   pluslist=pluslist&"<td colSpan=2><TABLE width=""95%"" border=0 align=right cellPadding=0 cellSpacing=0 class=leftframetable>"& vbCrLf
	   pluslist=pluslist&"<TBODY>"& vbCrLf
	   pluslist=pluslist&"<TR>"& vbCrLf
	   pluslist=pluslist&"<TD width=""2%""><IMG height=17 src=""Images/main.gif"" width=15></TD>"& vbCrLf
	   pluslist=pluslist&"<TD class=STYLE1 style=""CURSOR: hand"" onclick=showsubmenu(9); width=""98%"" height=25>插件系统</TD>"& vbCrLf
	   pluslist=pluslist&"</TR>"& vbCrLf
	   pluslist=pluslist&"<TR>"& vbCrLf
	   pluslist=pluslist&" <TD colSpan=2><TABLE id=submenu9 cellSpacing=0 cellPadding=0 width=""100%"" border=0>"& vbCrLf
	   pluslist=pluslist&" <TBODY>"& vbCrLf
 
	  Set Rs1 =ACTCMS.ACTEXE("SELECT PlusName,PlusID,PlusUrl  FROM Plus_ACT where IsUse=0  Order by OrderID asc,ID asc")
	  If Not Rs1.EOF  Then
		Do While Not Rs1.EOF	
			If ACTCMS.ACTCMS_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 response.write Rs1("PlusName")&"插件管理地址错误":Exit For 
			 
			pluslist=pluslist&"<TR>"& vbCrLf
            pluslist=pluslist&" <TD width=""2%""><IMG src=""Images/closed.gif""></TD>"& vbCrLf
            pluslist=pluslist&"  <TD height=""23""><A href=""Sys_Act/"&PlusUrl(i)&""" target=main>"&PlusMenu(i)&"</A></TD>"& vbCrLf
            pluslist=pluslist&" </TR>"& vbCrLf
				
			 Next
			 End If 
		Rs1.movenext
		Loop
	end if 
	Set Rs1 = Nothing	          
	pluslist=pluslist&"</tbody></TABLE></TD>"
	pluslist=pluslist&"</TR>"
    pluslist=pluslist&" </TBODY>"& vbCrLf
    pluslist=pluslist&"</TABLE></td>"& vbCrLf
    pluslist=pluslist&"</tr>"& vbCrLf
    pluslist=pluslist&"<tr>"& vbCrLf
    pluslist=pluslist&"  <td height=""5"" bgcolor=""#9BC2ED""></td>"& vbCrLf
    pluslist=pluslist&"</tr>"& vbCrLf

End Function 



response.write " <tr>"& vbCrLf
response.write " <td height=""8"" colSpan=2>"& vbCrLf
response.write " <TABLE class=leftframetable cellSpacing=1 cellPadding=1 width=""95%"" align=right border=0>"& vbCrLf
response.write " <TBODY><TR><TD width=""2%""><IMG height=17 src=""Images/main.gif"" width=15></TD><TD class=STYLE1 width=""98%"" height=25>系统信息</TD>"& vbCrLf
response.write " </TR><TR><TD colSpan=2 height=50><span class=""STYLE2""><IMG src=""Images/closed.gif"">版权所有：安川网络<br>"& vbCrLf
response.write " <IMG src=""Images/closed.gif"">技术支持：<a href=""http://www.actcms.com"" target=""_blank"">ACTCMS</a><br>"& vbCrLf
response.write " <IMG src=""Images/closed.gif"">帮助中心：<a href=""http://www.actcms.com/help"" target=""_blank"">ACTCMS</a><br>"& vbCrLf
response.write " <IMG src=""Images/closed.gif"">系统版本：2.0正式版</span></TD>"& vbCrLf
response.write " </TR></TBODY></TABLE></td></tr></table></body></html>"& vbCrLf
%>
 
           
            
        
    
  


