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

📄 admin_index.asp

📁 1
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<!--#include file="../Conn.asp"-->
<!--#include file="../Inc/Admin_checkuser.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_Check(0,"您的登陆状态错误，请重新登录后再进行操作")
		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">
<STYLE>.navPoint {
	COLOR: white; CURSOR: hand; FONT-FAMILY: Webdings; FONT-SIZE: 9pt
}
P {
	FONT-SIZE: 9pt
}
</STYLE>
<SCRIPT>
function switchSysBar(){
	if (switchPoint.innerText==3){
		switchPoint.innerText=4
		document.all("frmTitle").style.display="none"
	}
	else{
		switchPoint.innerText=3
		document.all("frmTitle").style.display=""
	}
}
</SCRIPT>
</HEAD>
<BODY scroll=no style="MARGIN: 0px">
<frameset rows='*' id='Frame' cols='165,*' framespacing='0' frameborder='no' border='0'>
<TABLE border=0 cellPadding=0 cellSpacing=0 height="100%" width="100%">
  <TBODY>
  <TR>
    <TD align=middle id=frmTitle noWrap vAlign=center name="frmTitle">
       <IFRAME scrolling=auto frameBorder=0 id='menu' name='menu' src='?action=admin_left' style="HEIGHT: 100%; VISIBILITY: inherit; WIDTH: 175; Z-INDEX: 2"></IFRAME>
    </TD>
    <TD bgColor=#1B70C4 onclick=switchSysBar() style="WIDTH: 10pt">
       <SPAN class=navPoint id=switchPoint title=关闭/打开左栏>3</SPAN>
    </TD>
    <TD style="WIDTH: 100%">
       <IFRAME frameBorder=0 id='main' name='main' scrolling=yes src='?action=admin_main' style="HEIGHT: 100%; VISIBILITY: inherit; WIDTH: 100%; Z-INDEX: 1"></IFRAME>
    </TD>
  </TR>
  </TBODY>
</TABLE>
</frameset>
<noframes>
　<body>
　　<p>本页使用了框架结构，但是您的浏览器不支持它。请将您的浏览器升级为IE5.0或更高的版本！</p>
　</body>
</noframes>
</BODY></HTML>
<%
end sub
sub admin_left()

REM 管理栏目设置
dim menu(9,20)

menu(1,0)="基本信息"
menu(1,1)="<a target=main href=Admin_Config.asp>网站信息管理</a>"
menu(1,2)="<a target=main href=Admin_FsoFile.asp>上传文件管理</a>"
menu(1,3)="<a target=main href=Admin_Delcache.asp>网站缓存清理</a>"
menu(1,4)="<a target=main href=Admin_Rw.asp>日文信息替换</a>"
menu(1,5)="<a target='_blank' href=http://www.kenqiao.net/article.asp?id=16><font color=""#FF0000"">友情链接管理</font></a>[不可用]"
menu(1,6)="<a target='_blank' href=http://www.kenqiao.net/article.asp?id=16><font color=""#FF0000"">广告系统管理</font></a>[不可用]"

menu(2,0)="小说管理"
menu(2,1)="<a target=main href=Admin_Shu.asp?action=Add>添加小说</a>"
menu(2,2)="<a target=main href=Admin_Shu.asp>全部小说</a>"
set rs=server.CreateObject("adodb.Recordset")
sql="Select 编号,分类名称,分类状态 from 分类 where 链接属性=""00"" order by 排序 Asc,编号 Asc"
rs.open sql,conn,1,1
if Not(rs.eof And rs.bof) then
Dim X
X=3
do while not rs.eof
menu(2,X)="<a target=main href=Admin_Shu.asp?ClassID="&rs(0)&">"&Rs(1)&"</a>"
If RS(2)<>0 Then
menu(2,X)=menu(2,X)&" <strong>[<font color=""#FF0000"">锁定</font>]</strong>"
End if
x=x+1
rs.movenext 
loop
End if
rs.close 
set rs=nothing
If Admin_QX_C("分类管理")=1 Then
menu(3,0)="分类管理"
menu(3,2)="<a target=main href=Admin_Class.asp>分类管理</a>"
menu(3,1)="<a target=main href=Admin_Class.asp?Action=Add>添加分类</a>"
menu(3,3)="<a target=main href=Admin_Class.asp?Action=Px>排序管理/快速修改</a>"
menu(3,4)="<a target=main href=Admin_Class.asp?Action=Hb>合并分类</a>"
End if
menu(4,0)="采集管理"
menu(4,1)="<a target='_blank' href=http://www.kenqiao.net/article.asp?id=16><strong><font color=""#FF0000"">商业版优势</font></strong></a>"
If Admin_QX_C("密码修改")=1 Then
menu(5,0)="用户管理"
menu(5,1)="<a target=main href=Admin_WebMaster.asp?action=edita&id="&Request.Cookies(FY_cookies)("AdminId")&">修改管理密码</a>"
If Admin_QX_C("超级管理员")=1 Then
menu(5,2)="<a target=main href=Admin_WebMaster.asp?action=newa>添加管理账号</a>"
menu(5,3)="<a target=main href=Admin_WebMaster.asp>管 理 员设置</a>"
End if
End if
menu(6,0)="模版管理"
menu(6,1)="<a target=main href=Admin_Mold.asp?A=Index&B=0>修改网站首页模板</a>"
menu(6,2)="<a target=main href=Admin_Mold.Asp?A=search&B=0>修改小说搜索模板</a>"
menu(6,3)="<a target=main href=Admin_Mold.Asp?A=Class&B=0>修改分类栏目模板</a>"
menu(6,4)="<a target=main href=Admin_Mold.Asp?A=Novel&B=0>修改小说介绍模板</a>"
menu(6,5)="<a target=main href=Admin_Mold.Asp?A=List&B=0>修改章节列表模板</a>"
menu(6,6)="<a target=main href=Admin_Mold.Asp?A=Contents&B=0>修改章节内容模板</a>"
menu(6,7)="<a target=main href=Admin_Label.asp>自定义标签管理</a>"
menu(6,8)="<a target=main href=Admin_Page.asp>自定义页面管理</a>"

menu(7,0)="生成管理"
menu(7,1)="<a target=main href=Admin_Sitemap.asp>网站地图生成</a>"
If FY_Config(15)<>0 Then
menu(7,2)="<a target=main href=Admin_Html.asp?action=Index>生成首页</a>"
menu(7,3)="<a target=main href=Admin_Html.asp>栏目生成</a>"
Else
menu(7,2)="<a target=main href=Admin_Html.asp>栏目生成</a>"
End if

If Admin_QX_C("数据管理")=1 Then
menu(8,0)="数据管理"
menu(8,1)="<a target=main href=Admin_Other.asp?menu=circumstance>主机环境变量</a>"
menu(8,2)="<a target=main href=Admin_Other.asp?menu=discreteness>组件支持情况</a>"
menu(8,3)="<a target=main href=admin_Sql.asp>执行SQL语句</a>"
menu(8,4)="<a target=main href=Admin_Data.asp?action=backdata>数据库备份</a>"
menu(8,5)="<a target=main href=Admin_Data.asp?action=godata>数据库压缩</a>"
menu(8,6)="<a target=main href=Admin_Data.asp?action=redata>数据库恢复</a>"
End if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理菜单</title>
<style type="text/css"> 
body{FONT-SIZE: 12px;COLOR: #000000; FONT-FAMILY: "宋体";background-color: #799AE1;SCROLLBAR-FACE-COLOR: #799AE1; SCROLLBAR-HIGHLIGHT-COLOR: #799AE1;SCROLLBAR-SHADOW-COLOR: #799AE1; SCROLLBAR-DARKSHADOW-COLOR: #799AE1;SCROLLBAR-3DLIGHT-COLOR: #799AE1; SCROLLBAR-ARROW-COLOR: #FFFFFF;SCROLLBAR-TRACK-COLOR: #AABFEC;}
.menutitle{ cursor:pointer; margin-bottom: 0px; background-image=url(../images/admin/menu_1.gif);color:#FFFFFF; width:158px; padding:0px; font-weight:bold; border:0px ; }}
.submenu{ margin-bottom: 0em; }
.cn { FONT-SIZE: 9pt; COLOR: #006599; FONT-FAMILY: 宋体 }
TD{ font-family:宋体; font-size: 12px; line-height: 15px;}
a  { font:normal 12px 宋体; color:#000000; text-decoration:none; }
a:hover  { color:#428EFF;text-decoration:underline; }
</style>
<script language="javascript" type="text/javascript">
if (document.getElementById){ //DynamicDrive.com change
document.write('<style type="text/css">\n')
document.write('.submenu{display: none;}\n')
document.write('</style>\n')
}

function SwitchMenu(obj){
	if(document.getElementById){
	var el = document.getElementById(obj);
	var ar = document.getElementById("masterdiv").getElementsByTagName("span"); //DynamicDrive.com change
		if(el.style.display != "block"){ //DynamicDrive.com change
			for (var i=0; i<ar.length; i++){
				if (ar[i].className=="submenu") //DynamicDrive.com change
				ar[i].style.display = "none";
			}
			el.style.display = "block";
		}else{
			el.style.display = "none";
		}
	}
}

function killErrors() {
return true;
}
window.onerror = killErrors;
<!-- 
  function HideError() {
  return true;
}
window.onerror = HideError;
// -->
</script>
</script>
</head>
<BODY leftmargin="0" topmargin="0" marginheight="0" marginwidth="0">
<div id="masterdiv">
<TABLE width="158" cellSpacing="0" cellPadding="0" border="0" background="../images/admin/menu_1.gif" height=60>
<tr>
 <td colspan='2'><div align="center"><img src="../images/admin/cmslogo.gif" border="0"></div></td>
</tr>
<tr>
  <td><a href="?action=admin_main" target="main"><img src="../images/admin/left_fold1.gif" alt="" border="0"> 管理首页</a></td>
  <td><a href="../Admin_Login.asp?action=logout" target="_top"><img src="../images/admin/left_fold1.gif" alt="" border="0"> 安全退出</a></td>
</tr>
</table>
<TABLE width="158" cellSpacing="0" cellPadding="0" border="0">
<TR>
12

⌨️ 快捷键说明

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