left.asp

PDA,若你死昂师傅你说的附件是打开附件上课的附件四度空间就大方快速减肥

					
					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 
		
				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
			
			Next
		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
%>