⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 left.asp

📁 PDA,若你死昂师傅你说的附件是打开附件上课的附件四度空间就大方快速减肥
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<!--#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
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -