www.gusucode.com > 在线影院小偷程序联盟多风格后台版 3.2源码程序 > cfss_admin/admin_index.asp
<%@ LANGUAGE = VBScript.Encode %>
<%
'***************************************************
' 程序名称：站长内容联盟网免费版后台管理系统 v2010
' 程序开发：长发帅帅(FJQQ)
' 联系方式：admin@091.cc QQ:529171
' 官方网站：http://www.091.cc/
' 技术支持：http://www.091.cc/book
' 版权声明：未经本人书面署名许可不得删除本版权信息
'***************************************************
%>
<!-- #include file="check.asp" -->
<%
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><%=fjqq_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(2,10)
menu(0,0)="管理管理"
menu(0,1)="<a target=main href=admin_config.asp?action=edit&a=网站配制&b=inc/config.asp>网站初始设置</a>"
menu(0,2)="<a target=main href=admin_ads.asp>网站广告管理</a>"
menu(0,3)="<a target=main href=admin_link.asp>友情链接管理</a>"
menu(0,4)="<a href=""javascript:void(0);"" onClick=""alert('友情提示：\n\n您当前使用的是联盟免费版程序，无法使用此功能！');"">网站模版管理</a>"
menu(0,5)="<a href=""javascript:void(0);"" onClick=""alert('友情提示：\n\n您当前使用的是联盟免费版程序，无法使用此功能！');"">生成静态首页</a>"
menu(0,6)="<a href=""javascript:void(0);"" onClick=""alert('友情提示：\n\n您当前使用的是联盟免费版程序，无法使用此功能！');"">更新站点缓存</a>"
menu(0,7)="<a target=main href=admin_webmaster.asp>后台帐号管理</a>"
menu(1,0)="程序相关"
menu(1,1)="<a target=main href=fjqq_about.asp>联盟简介</a>"
menu(1,2)="<a target=main href=fjqq_union.asp>联盟产品</a>"
menu(2,0)="辅助工具"
menu(2,1)="<a target=main href=HTMLtoJS.html>HTML转JS</a>"
menu(2,2)="<a target=main href=JStoHTML.html>JS转HTML</a>"
menu(2,3)="<a target=main href=fjqq_tool.asp>站长工具箱</a>"
menu(2,4)="<a target=main href=fjqq_link.asp>搜索引擎提交区</a>"
menu(2,5)="<a target=main href=serverinfo.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>身 份：<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>程序官网：<a href="http://www.091.cc/" target="_bank">点击查询>></a> </td></tr>
<tr><td height=20>发展历程：<a target=main href=fjqq_fzlc.asp>点击查询>></a></td></tr>
<tr><td height=20>联系我们：<a target=main href=fjqq_lxwm.asp>点击查询>></a></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%">
| <a href="../index.asp" target="_bank">站点首页</a> | <a target=main href=fjqq_blog.asp>程序介绍</a> | <a target=main href=fjqq_bqsm.asp>版权声明</a> | <a target=main href=fjqq_mzsm.asp>免责声明</a> | <a target=main href=fjqq_host.asp>虚拟主机</a> | <a target=main href=fjqq_yhhd.asp>优惠活动</a> | <a target=main href=fjqq_fuwu.asp>服务购买</a> | <a target=main href=fjqq_gmlc.asp>购买流程</a> | <a target=main href=fjqq_lmbz.asp>服务保障</a> | <a target=main href=fjqq_vip.asp>商业用户</a> | <a target=main href=fjqq_help.asp>帮助中心</a> |
</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%">
<li>本程序免费，无病毒、弹窗、插件、后门，未经许可谢绝在本程序基础上进行二次开发并提供下载；</li>
<li>为了确保你站点的安全，请及时更改后台默认管理路径、管理员帐号密码等，以免被人非法入侵； </li>
<li>本程序为免费版不提供QQ技术支持服务，使用上如有疑问请到联盟官网<a href="http://www.091.cc/book/" target="_bank">[技术支持]</a>专栏提交问题；</a></li>
</td></tr>
</table>
<BR>
<table cellpadding="3" cellspacing="1" border="0" width="95%" class="tableBorder" align=center>
<tr>
<th class="tableHeaderText" colspan=2 height=12>程序信息</th>
</tr>
<tr>
<td width="50%" class="forumRowHighlight">程序名称：<a target=main href=fjqq_blog.asp><%=fjqq_name%></a></td>
<td width="50%" class="forumRow" style="LINE-HEIGHT: 150%"> 当前版本：<script language="JavaScript" src="../js/ver.js"></script></td>
</tr>
<tr>
<td width="50%" class="forumRowHighlight"> 程序开发：长发帅帅 售前咨询：<a href="http://sighttp.qq.com/cgi-bin/check?sigkey=64d32ce8288ac7b47c9e9b4ae0b68a06ee3a67c08ab94cb21d0b437f2211a695"; target=_blank; onclick="var tempSrc='http://sighttp.qq.com/wpa.js?rantime='+Math.random()+'&sigkey=64d32ce8288ac7b47c9e9b4ae0b68a06ee3a67c08ab94cb21d0b437f2211a695';var oldscript=document.getElementById('testJs');var newscript=document.createElement('script');newscript.setAttribute('type','text/javascript'); newscript.setAttribute('id', 'testJs');newscript.setAttribute('src',tempSrc);if(oldscript == null){document.body.appendChild(newscript);}else{oldscript.parentNode.replaceChild(newscript, oldscript);}return false;"><img border="0" SRC='http://wpa.qq.com/pa?p=1:529171:46' alt=""></a></td>
<td width="50%" class="forumRow" style="LINE-HEIGHT: 150%"> 最新版本：<%=fjqq_update%></td>
</tr>
</table>
</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 width="50%" class="forumRow" height=23 align="center">联盟公告</td>
<td width="50%" class="forumRow" align="center">更新发布</td>
</tr>
<tr>
<td width="50%" class="forumRow" height=23> <script language="JavaScript" src="http://www.091.cc/down/news.js"></script> </td>
<td width="50%" class="forumRow"><script language="JavaScript" src="http://www.091.cc/down/blog.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
%>