admin_index_left.asp
来自「利用C++编写的网络跟踪代码」· ASP 代码 · 共 534 行 · 第 1/2 页
ASP
534 行
| <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="ftp.html" target="main">网站统计系统</a>
| <a href="Admin_ServerInfo.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 bgcolor="#CCCCCC" class=menu_title id=menuTitle3 style="cursor:hand;" onClick="showsubmenu(3)" onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title';>
<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 bgcolor="#CCCCCC" class=menu_title id=menuTitle4 style="cursor:hand;" onClick="showsubmenu(4)" onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title';>
<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 bgcolor="#CCCCCC" class=menu_title id=menuTitle6 style="cursor:hand;" onClick="showsubmenu(6)" onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title';>
<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
%>
<table cellpadding=0 cellspacing=0 width=158 align=center>
<tr>
<td height=25 bgcolor="#CCCCCC" class=menu_title id=menuTitle7 style="cursor:hand;" onClick="showsubmenu(7)" onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title';>
<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=Admin_Database.asp?Action=Compact target=main>压缩数据库</a></td></tr>
<tr><td height=20><a href=Admin_Database.asp?Action=Backup target=main>备份数据库</a></td></tr>
<tr><td height=20><a href=Admin_Database.asp?Action=Restore target=main>恢复数据库</a></td></tr>
<tr><td height=20><a href=Admin_Database.asp?Action=Init target=main>系统初始化</a></td></tr>
<tr><td height=20><a href=Admin_Database.asp?Action=SpaceSize 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 bgcolor="#CCCCCC" class=menu_title id=menuTitle8 style="cursor:hand;" onClick="showsubmenu(8)" onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title';>
<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=Admin_UploadFile.asp?UploadDir=UploadFiles target=main>文章频道的上传文件</a></td></tr>
<tr><td height=20><a href=Admin_UploadFile.asp?UploadDir=UploadThumbs target=main>图片频道的缩略图</a></td></tr>
<tr><td height=20><a href=Admin_UploadFile.asp?UploadDir=UploadPhotos target=main>图片频道的上传图片</a></td></tr>
<tr><td height=20><a href=Admin_UploadFile.asp?UploadDir=UploadSoftPic target=main>下载频道的软件图片</a></td></tr>
<tr><td height=20><a href=Admin_UploadFile.asp?UploadDir=UploadSoft target=main>下载频道的上传软件</a></td></tr>
<tr><td height=20><a href=Admin_UploadFile.asp?UploadDir=UploadAdPic target=main>网站广告的上传图片</a></td></tr>
<tr><td height=20><a href=Admin_UploadFile.asp?Action=Clear 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%>
<table cellpadding=0 cellspacing=0 width=158 align=center>
<tr>
<td height=25 bgcolor="#CCCCCC" class=menu_title id=menuTitle9 onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title';>
<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>
<span class="style1"> 七彩虹1.0正式版</span><br>
<span class="style2">版权所有：<a href="http://www.85cn.net">七彩虹网络</a><br>
设计制作：<span class="STYLE3">李 翔</span><BR>
技术支持：<span class="STYLE3">国研数据</span></span><br>
</td></tr>
</table>
</div>
</td>
</tr>
</table>
</body>
</html>
<%
call CloseConn()
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?