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

📄 admin_index.asp

📁 1、采用4.5修改而成。 2、添加了求片区
💻 ASP
字号:
🔍 
<!-- #include file="check.asp" -->
<%'====================================================================
'=              Copyright (c) 2005- 2007,马克斯(QQ448265)开发             =
'=                      All rights reserved.                        =
'=------------------------------------------------------------------=
'=                     文件名称：admin_index.asp                   =
'=                     摘    要：后台—首页                 =
'=------------------------------------------------------------------=
'=                     用   途：免费电影系统                         =
'=                     最后更新：2007-07-10                         =
'====================================================================%><%
Response.Expires = 0  
Response.ExpiresAbsolute = Now() - 1  
Response.cachecontrol = "no-cache" 
Response.Write "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">"

select case request("action")
	case "admin_left"
		call admin_left()
	case "admin_main"
		call admin_main()
	case else
		call main()
	end select
sub main()
%>
<HTML><HEAD><TITLE>后台管理中心</TITLE>
<META http-equiv=Content-Type content=text/html;charset=gb2312>
<SCRIPT>
<!--//
function switchBar(){
if (switchPoint.innerText=='3'){
switchPoint.innerText='4'
document.all("leftFrame").style.display="none"
}else{
switchPoint.innerText='3'
document.all("leftFrame").style.display=""
}}
//-->
</SCRIPT>
<STYLE type=text/css>
.navPoint {
	FONT-SIZE: 12px; CURSOR: hand; COLOR: white; FONT-FAMILY: Webdings
}
</STYLE>

<META content="MSHTML 6.00.2600.0" name=GENERATOR></HEAD>
<BODY style="MARGIN: 0px" scroll=no>
<TABLE height="100%" cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TR>
    <TD id=leftFrame vAlign=center noWrap align=middle name="leftFrame">
    <IFRAME id=carnoc style="Z-INDEX: 2; VISIBILITY: inherit; WIDTH: 185px; HEIGHT: 100%" name=carnoc src="admin_index.asp?action=admin_left" frameBorder=0 scrolling=yes>
    </IFRAME></TD>
    <TD bgcolor=#9395C0 style="WIDTH: 9pt">
      <TABLE height="100%" cellSpacing=0 cellPadding=0 border=0>
        <TR>
          <TD title=打开/关闭全屏 style="HEIGHT: 100%" onclick=switchBar()><FONT style="FONT-SIZE: 9pt; CURSOR: default; COLOR: #ffffff">
           <SPAN class=navPoint id=switchPoint title=打开/关闭全屏>3</SPAN><BR><BR>菜单切换 
        </FONT></TD></TR></TABLE></TD>
    <TD style="WIDTH: 100%">
      <IFRAME id=main style="Z-INDEX: 1; VISIBILITY: inherit; WIDTH: 100%; HEIGHT: 100%" name=main src="admin_index.asp?action=admin_main" frameBorder=0 scrolling=yes>
    </IFRAME></TD></TR></TABLE>
</BODY></HTML>
<%
end sub
sub admin_left()

REM 管理栏目设置
dim menu(5,10)
menu(0,0)="信息及常规管理"
menu(0,1)="<a target=main href=admin_config.asp>网站参数设置</a>"
menu(0,2)="<a target=main href=admin_link.asp>友情链接管理</a>"
menu(0,3)="<a target=main href=admin_mb.asp>网站模板管理</a>"
menu(0,4)="<a target=main href=admin_ads.asp>网站广告管理</a>"
menu(0,5)="<a target=main href=serverinfo.asp>服务器信息探测</a>"
menu(0,6)="<a target=main href=mysql.asp>SQL高级管理</a>"
menu(0,7)="<a target=main href=admin_config1.asp>恢复初始设置</a>"
menu(0,8)="<a target=main href=eoff.asp>影片报错管理</a>"

menu(1,0)="数据管理"
menu(1,1)="<a target=main href=admin_type.asp>分类管理</a>"
menu(1,2)="<a target=main href=admin_list.asp>数据管理</a>"
menu(1,3)="<a target=main href=admin_add.asp>添加数据</a>"

menu(2,0)="静态生成管理"
menu(2,1)="<a target=main href=make_index.asp>生成首页</a>"
menu(2,2)="<a target=main href=make_map.asp>生成地图</a>"
menu(2,3)="<a target=main href=make.asp>生成选项</a>"

menu(3,0)="专辑添加"
menu(3,1)="<a target=main href=tool_tudou.asp>土豆豆单</a>"
menu(3,2)="<a target=main href=tool_56.asp>56专辑</a>"
menu(3,3)="<a target=main href=tool_iask.asp>新浪播客</a>"
menu(3,4)="<a target=main href=tool_youku.asp>优酷专辑</a>"
menu(3,5)="<a target=main href=tool_6.asp>六房间专辑</a>"

menu(4,0)="马克斯资源库"
menu(4,1)="<a target=_blank href=http://bbs.maxz.cn/showforum-14.aspx>官方模板库</a>"
menu(4,2)="<a target=_blank href=http://bbs.maxz.cn/showtopic-3947.aspx>软件助手下载</a>"
menu(4,3)="<a target=main href=tool_free.asp>免费资源库</a>"
menu(4,4)="<a target=main href=tool_maxz_cn.asp>官方资源库</a>"
menu(4,5)="<a target=main href=tool_xunlei.asp>迅雷资源库</a>"

menu(5,0)="用户管理"
menu(5,1)="<a target=main href=admin_webmaster.asp>管理员管理</a>"
%>
<title>管理页面</title>
<META content="MSHTML 5.00.3315.2870" name=GENERATOR>
<style type=text/css>
<!--
BODY{
	margin:0px;
	FONT-SIZE: 12px;
	FONT-FAMILY:  "宋体", "Verdana", "Arial", "Helvetica", "sans-serif";
	background-color: #BEBFD9;
	scrollbar-face-color: #EAEAF2;
        scrollbar-highlight-color: #FFFFFF;
        scrollbar-shadow-color: #9395C0;
        scrollbar-3dlight-color: #F3F3F8;
        scrollbar-arrow-color: #9395C0;
        scrollbar-track-color: #F3F3F8;
        scrollbar-darkshadow-color: #F3F3F8;
}
table  { border:0px; }
td  { font:normal 12px 宋体; }
img  { vertical-align:bottom; border:0px; }
a  { font:normal 12px 宋体; color:#111111; text-decoration:none; }
a:hover  { color:#6C70AA;text-decoration:underline; }
.sec_menu  { border-left:1px solid white; border-right:1px solid white; border-bottom:1px solid white; overflow:hidden; background:#FBFBFC; }
.menu_title  { }
.menu_title span  { position:relative; top:2px; left:8px; color:#4A4F80; font-weight:bold; }
.menu_title2  { }
.menu_title2 span  { position:relative; top:2px; left:8px; color:#596099; font-weight:bold; }
input,select,Textarea{
font-family:宋体,Verdana, Arial, Helvetica, sans-serif; font-size: 12px;}
}
-->
</style>
<SCRIPT language=javascript1.2>
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 leftmargin="0" topmargin="0" marginheight="0" marginwidth="0">
<table width=100% cellpadding=0 cellspacing=0 border=0 align=left> 
<tr>
  <td valign=top> <table cellpadding=0 cellspacing=0 width=158 align=center>
      <tr> 
        <td height=42 valign=bottom> <img src="images/manage/admin_title.gif" width=158 height=38> 
        </td>
      </tr>
    </table>
    <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/manage/title_bg_quit.gif"> 
          <span><a href="admin_index.asp" target=_top><b>管理首页</b></a> | <a href="login.asp?action=logout" target=_top><b>退出</b></a></span> 
        </td>
      </tr>
      <tr> 
        <td style="display:"> <div class=sec_menu style="width:158"> 
            
            <table cellpadding=0 cellspacing=0 align=center width=135>
              <tr> 
                <td height=20>用户名：<font color=red><%=request.cookies("AdminName")%></font></td>
              </tr>
              <tr> 
                <td height=20>身&nbsp;&nbsp;份：<font color=red>系统管理员</font></td>
              </tr></table></td>
    </table>
    <div  style="width:158"> 
            <table cellpadding=0 cellspacing=0 align=center width=135>
              <tr>
                
            <td height=10></td>
              </tr>
            </table>
          </div>
<%
	dim j,i
	dim tmpmenu
	dim menuname
	dim menurl
for i=0 to ubound(menu,1)
%>
<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/manage/title_bg_show.gif" id=menuTitle1 onclick="showsubmenu(<%=i%>)">
	  <span><%=menu(i,0)%></span>
	</td>
  </tr>
  <tr>
    <td 
<%if i=0 or i=1 or i=2 or i=3 or i=4 then%>
style="display:"
<%else%>
style="display:none"
<%end if%>
 id='submenu<%=i%>'>
    <!--<td style="display:none" id='submenu<%=i%>'>-->
<div class=sec_menu style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=135>
	<%
	for j=1 to ubound(menu,2)
	if isempty(menu(i,j)) then exit for
	%>
<tr><td height=20><img src="images/manage/bullet.gif" border=0><%=menu(i,j)%></td></tr>
<%
	next
%>
</table>
	  </div>
<div  style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=135>
<tr><td height=10></td></tr>
</table>
	  </div>
	</td>
  </tr>
</table>
<%next%>
<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/manage/admin_left_2.gif" id=menuTitle1><span>系统信息</span> </td></tr><tr> 
<td><div class=sec_menu style="width:158"><table cellpadding=0 cellspacing=0 align=center width=135>
<tr><td height=20><br>版本：<a target="_blank" href="http://www.maxz.cn/">马克斯(迅雷版)</a><br />基于马克斯V4.5架构</td></tr>
<tr><td height=20>技术支持：QQ448265</td></tr>
</table>
</div></td>
</tr>
</table>
<BR>
<%
end sub
sub admin_main()
Dim theInstalledObjects(4)
theInstalledObjects(1) = "Scripting.FileSystemObject"
theInstalledObjects(2) = "adodb.connection"
'theInstalledObjects(3) = "JMail.SMTPMail"
'theInstalledObjects(4) = "CDONTS.NewMail"
%>
<title>管理页面</title>
<link rel="stylesheet" href="admin.css" type="text/css">
<BODY leftmargin="0" bottommargin="0" rightmargin="0" topmargin="0" marginheight="0" marginwidth="0" bgcolor="#DDEEFF">
<table cellpadding="3" cellspacing="1" border="0" width="95%" class="tableBorder" align=center>
<tr> 
<th class="tableHeaderText" colspan=2 height=25>本系统注意点说明</th>
</tr> 
<tr> 
<td class="forumRow" style="LINE-HEIGHT: 150%">
<li>静态生成：为了防止误点生成浪费服务器资源，点进去后再点生成方可生成。</li>
<li>数据来源：除P2P必填外，其它可不填，只作连载型剧集的备注。</li>
<li>关于分类删除：这里要注意，删除分类将删除其下所有数据，包括分类及数据HTML。</li>
<li>关于播放选项的说明：迅雷一为本地资源，或是别人提供的本地资源，有服务器ID；迅雷二为联盟里的资源，无服务器ID。</li>
<li><strong>马克斯资源库：购买用户才能得到该服务，可以全自动采集库里的资源，点几下即可，轻松更新，图片可以自动下载到空间。</strong></li>
<li>最后申明：该程序由马克斯独立完成，已购买用户程序免费升级；可以修改使用，请勿转卖，否则取消全部服务，请保留后台的版权，以免有何问题而找不到作者的联系方式。</li>
</td></tr>
</table>
<BR>

<table cellpadding="2" cellspacing="1" border="0" width="95%" class="tableBorder" align=center>
<tr><th class="tableHeaderText" colspan=2 height=25>系统信息统计</th></tr>
<tr>
<td width="50%"  class="forumRowHighlight" height=23>服务器类型：<%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</td>
<td width="50%" class="forumRow">脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
</tr>
<tr>
<td width="50%" class="forumRowHighlight" height=23>站点物理路径：<%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
<td width="50%" class="forumRow">服务器名：<%=Request.ServerVariables("SERVER_NAME")%></td>
</tr>
<tr>
<td width="50%" class="forumRowHighlight" height=23>FSO文本读写：<%If Not IsObjInstalled(theInstalledObjects(1)) Then%><font color="#FF0066"><b>×</b></font><%else%><b>√</b><%end if%></td>
<td width="50%" class="forumRow">数据库使用：<%If Not IsObjInstalled(theInstalledObjects(2)) Then%><font color="#FF0066"><b>×</b></font><%else%><b>√</b><%end if%></td>
</tr>
</table>
<br />
<table cellpadding="3" cellspacing="1" border="0" width="95%" class="tableBorder" align=center>
<tr><th class="tableHeaderText" colspan=2 height=25>官方新闻(官方消息更新，如果想第一时间得到更新，请勿删除！)</th></tr> 
<tr><td class="forumRow" style="LINE-HEIGHT: 150%"><script src='http://www.maxz.cn/update.js'></script></td></tr></table>
<%
call admin_footer()
end sub 

Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
%>

⌨️ 快捷键说明

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