admin_index_left.asp

程序为品牌程序,信誉、质量、服务有保证 主要功能有文章,留言,下载,论坛,博客,统计,调查 模块化的程序设计

                <td height=20><a href=a.asp target=main>发布网站公告</a> 
                  | <a href=a.asp target=main>管理</a></td>
              </tr>
<%
end if
if AdminPurview=1 or arrPurview(4)=True then
%>			  
              <tr> 
                <td height=20><a href=a.asp target=main>发布网站调查</a> 
                  | <a href=a.asp target=main>管理</a></td>
              </tr>
<%
end if
if AdminPurview=1 or arrPurview(5)=True then
%>			  
              <tr>
                <td height=20><a href="a.asp" target="main">网站统计系统</a> 
                  | <a href="a.asp" target="_blank">管理</a></td>
              </tr>
<%end if%>
            </table>
	  </div>
<div  style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=130>
<tr><td height=20></td></tr>
</table>
	  </div>
	</td>
  </tr>
</table>
<%
end if
PurviewPassed=False
arrPurview(0)=CheckPurview(AdminPurview_Guest,"Reply")
arrPurview(1)=CheckPurview(AdminPurview_Guest,"Modify")
arrPurview(2)=CheckPurview(AdminPurview_Guest,"Del")
arrPurview(3)=CheckPurview(AdminPurview_Guest,"Check")
for PurviewIndex=0 to 3
	if arrPurview(PurviewIndex)=True then
		PurviewPassed=True
		exit for
	end if
next
if AdminPurview=1 or PurviewPassed=True then
%>
<table cellpadding=0 cellspacing=0 width=158 align=center>
  <tr>
        <td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background="images/left.gif" id=menuTitle3 onClick="showsubmenu(3)" style="cursor:hand;"> 
          <span>留言板管理</span> </td>
  </tr>
  <tr>
    <td style="display:none" id='submenu3'>
<div class=sec_menu style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=130>
<%if AdminPurview=1 or arrPurview(3)=True then%>
              <tr>
                <td height=20><a href=a.asp target=main>网站留言审核</a></td>
              </tr>
<%end if%>
              <tr> 
                <td height=20><a href=a.asp target=main>网站留言管理</a></td>
              </tr>
</table>
	  </div>
<div  style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=130>
<tr><td height=20></td></tr>
</table>
	  </div>
	</td>
  </tr>
</table>
<%
end if

PurviewPassed=False
arrPurview(0)=CheckPurview(AdminPurview_Others,"User")
arrPurview(1)=CheckPurview(AdminPurview_Others,"MailList")
for PurviewIndex=0 to 1
	if arrPurview(PurviewIndex)=True then
		PurviewPassed=True
		exit for
	end if
next
if AdminPurview=1 or PurviewPassed=True then
%>
<table cellpadding=0 cellspacing=0 width=158 align=center>
  <tr>
        <td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background="images/left.gif" id=menuTitle4 onClick="showsubmenu(4)" style="cursor:hand;"> 
          <span>用户管理</span> </td>
  </tr>
  <tr>
    <td style="display:none" id='submenu4'>
<div class=sec_menu style="width:158">
            <table cellpadding=0 cellspacing=0 align=center width=130>
<%if AdminPurview=1 or arrPurview(0)=True then%>
              <tr>
                <td height=20><a href=a.asp target=main>注册用户管理</a></td>
              </tr>
              <tr>
                <td height=20><a href="a.asp" target="main">更新用户数据</a></td>
              </tr>
<%
end if
if AdminPurview=1 or arrPurview(2)=True then
%>
              <tr>
                <td height=20><a href="a.asp" target="main">邮件列表</a> | <a href="a.asp" target="main">列表导出</a></td>
              </tr>
<%
end if
if AdminPurview=1 then
%>
              <tr>
                <td height=20><a href=a.asp target=main>管理员添加</a> 
                  | <a href=a.asp target=main>管理</a></td>
              </tr>
<%end if%>
            </table>
	  </div>
<div  style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=130>
<tr><td height=20></td></tr>
</table>
	  </div>
	</td>
  </tr>
</table>
<%
end if
PurviewPassed=False
arrPurview(0)=CheckPurview(AdminPurview_Others,"Skin")
arrPurview(1)=CheckPurview(AdminPurview_Others,"Layout")
for PurviewIndex=0 to 1
	if arrPurview(PurviewIndex)=True then
		PurviewPassed=True
		exit for
	end if
next
if AdminPurview=1 or PurviewPassed=True then
%>

<%
end if
if AdminPurview=1 or CheckPurview(AdminPurview_Others,"JS")=True then
%>
<table cellpadding=0 cellspacing=0 width=158 align=center>
  <tr>
        <td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background="images/left.gif" id=menuTitle6 onClick="showsubmenu(6)" style="cursor:hand;"> 
          <span>JS代码管理</span> </td>
  </tr>
  <tr>
    <td style="display:none" id='submenu6'>
<div class=sec_menu style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=130>
<tr>
                <td height=20><a href="a.asp" target="main">普通文章的JS代码</a></td>
              </tr>
<tr>
                <td height=20><a href="a.asp" target="main">首页图文的JS代码</a></td>
              </tr>
</table>
	  </div>
<div  style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=130>
<tr><td height=20></td></tr>
</table>
	  </div>
	</td>
  </tr>
</table>
<%
end if
if AdminPurview=1 or CheckPurview(AdminPurview_Others,"Database")=True then
%>
<table cellpadding=0 cellspacing=0 width=158 align=center>
  <tr>
        <td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background="images/left.gif" id=menuTitle7 onClick="showsubmenu(7)" style="cursor:hand;"> 
          <span>数据库管理</span> </td>
  </tr>
  <tr>
    <td style="display:none" id='submenu7'>
<div class=sec_menu style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=130>
<tr><td height=20><a href=a.asp target=main>压缩数据库</a></td></tr>
<tr><td height=20><a href=a.asp target=main>备份数据库</a></td></tr>
<tr><td height=20><a href=a.asp target=main>恢复数据库</a></td></tr>

<tr><td height=20><a href=a.asp target=main>系统空间占用</a></td>
</tr>
</table>
	  </div>
<div  style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=130>
<tr><td height=20></td></tr>
</table>
	  </div>
	</td>
  </tr>
</table>
<%end if
if AdminPurview=1 or CheckPurview(AdminPurview_Others,"UpFile")=True then
%>
<table cellpadding=0 cellspacing=0 width=158 align=center>
  <tr>
        <td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background="images/left.gif" id=menuTitle8 onClick="showsubmenu(8)" style="cursor:hand;"> 
          <span>上传文件管理</span> </td>
  </tr>
  <tr>
    <td style="display:none" id='submenu8'>
<div class=sec_menu style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=130>
<tr><td height=20><a href=a.asp target=main>文章频道的上传文件</a></td></tr>

<tr><td height=20><a href=a.asp target=main>下载频道的软件图片</a></td></tr>
<tr><td height=20><a href=a.asp target=main>下载频道的上传软件</a></td></tr>
<tr><td height=20><a href=a.asp target=main>网站广告的上传图片</a></td></tr>
<tr><td height=20><a href=a.asp target=main>清除无用文件</a></td></tr>
<tr><td height=20><a href=a.asp target=main>查网站木马</a></td></tr>
</table>
	  </div>
<div  style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=130>
<tr><td height=20></td></tr>
</table>
	  </div>
	</td>
  </tr>
</table>
<p>&nbsp;    </p>
<p>
      <%end if%>
    </p>
    </body>
</html>
<%
call CloseConn()
%>