admin_index_left.asp

一套非常不错的天然气有限公司

                  | <a href=Admin_SiteConfig.asp target=main>选项</a></td>
              </tr>
<%
end if
if AdminPurview=1 or arrPurview(0)=True then
%>			  
              <tr> 
                <td height=20><a href=Admin_Channel.asp?Action=Add target=main>网站频道添加</a> 
                  | <a href=Admin_Channel.asp target=main>管理</a></td>
              </tr>
<%
end if
if AdminPurview=1 or arrPurview(1)=True then
%>			  
              <tr> 
                <td height=20><a href=Admin_Advertisement.asp?Action=Add target=main>网站广告添加</a> 
                  | <a href=Admin_Advertisement.asp target=main>管理</a></td>
              </tr>
<%
end if
if AdminPurview=1 or arrPurview(2)=True then
%>			  
              <tr> 
                <td height=20><a href=Admin_FriendSite.asp?Action=Add target=main>友情链接添加</a> 
                  | <a href=Admin_FriendSite.asp target=main>管理</a></td>
              </tr>
<%
end if
if AdminPurview=1 or arrPurview(3)=True then
%>			  
              <tr> 
                <td height=20><a href=Admin_Announce.asp?Action=Add target=main>发布网站公告</a> 
                  | <a href=Admin_Announce.asp target=main>管理</a></td>
              </tr>
<%
end if
if AdminPurview=1 or arrPurview(4)=True then
%>			  
              <tr> 
                <td height=20><a href=Admin_Vote.asp?Action=Add target=main>发布网站调查</a> 
                  | <a href=Admin_Vote.asp target=main>管理</a></td>
              </tr>
<%
end if
if AdminPurview=1 or arrPurview(5)=True then
%>			  
              <tr>
                <td height=20><a href="Count/main.asp" target="main">网站统计系统</a> 
                  | <a href="Count/index.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/Admin_left_3.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=Admin_Guest.asp target=main>网站留言审核</a></td>
              </tr>
<%end if%>
              <tr> 
                <td height=20><a href=Admin_Guest.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/Admin_left_4.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=Admin_User.asp target=main>注册用户管理</a></td>
              </tr>
              <tr>
                <td height=20><a href="Admin_User.asp?Action=Update" target="main">更新用户数据</a></td>
              </tr>
<%
end if
if AdminPurview=1 or arrPurview(2)=True then
%>
              <tr>
                <td height=20><a href="Admin_Maillist.asp" target="main">邮件列表</a> | <a href="Admin_Maillist.asp?Action=Export" target="main">列表导出</a></td>
              </tr>
<%
end if
if AdminPurview=1 then
%>
              <tr>
                <td height=20><a href=Admin_Admin.asp?Action=Add target=main>管理员添加</a> 
                  | <a href=Admin_Admin.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/Admin_left_6.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="Admin_MakeJS.asp?Action=JS_Common" target="main">普通文章的JS代码</a></td>
              </tr>
<tr>
                <td height=20><a href="Admin_MakeJS.asp?Action=JS_Pic" 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
%>
<%end if
if AdminPurview=1 or CheckPurview(AdminPurview_Others,"UpFile")=True then
%>
<%end if%>
<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/Admin_left_9.gif" id=menuTitle9> 
          <span>版权信息</span> </td>
  </tr>
  <tr>
    <td>
<div class=sec_menu style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=130>
<tr><td height=20><br>版权所有：&nbsp;<a href="http://www.ald.net.cn/" target=_blank>阿拉丁</a><br>
设计制作：&nbsp;<a href='mailto:[e-mail]'>knight</a><BR>
技术支持：&nbsp;<a href="http://www.ald.net.cn/" target=_blank>阿拉丁</a><br><br>
</td></tr>
</table>
	  </div>
	</td>
  </tr>
</table>
</body>
</html>
<%
call CloseConn()
%>