📄 admin_index_top.asp
字号:
<%OPTION EXPLICIT%>
<!--#include file="Include/Config.asp"-->
<!--#include file="Include/SQLAdmin.asp"-->
<!--#include file="Include/Conn.asp"-->
<!--#include file="Include/IPLockAdmin.asp"-->
<%dim Admin_Purview:Admin_Purview="1"%>
<html>
<head>
<title>网站管理中心</title>
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
<meta http-equiv="Content-Language" Content="zh-CN">
<meta name="Keywords" Content="">
<meta name="Description" Content="">
<link type="text/css" rel="stylesheet" href="Include/Style.css">
</head>
<body background="Images/Admin_T_Bg1.gif" leftmargin="10" topmargin="8">
<!--#include file="Include/Session.asp"-->
<%
dim GuSystemError,GuSystemCode,GuSystemMessage,GuSystemURL
if Trim(Request.QueryString("GuComm"))<>"" then
select case Trim(Request.QueryString("GuComm"))
case "AT_List"
call Admin_Index_Top_List()
case "AT_File"
call Admin_Index_Top_File()
case "AT_Config"
call Admin_Index_Top_Config()
case else
call Admin_Index_Top()
end select
end if
%>
<%Sub Admin_Index_Top_List()%>
<select name="Sort_Select" size="1" onChange="JavaScript:window.open(this.options[this.selectedIndex].value,'main')" class="Admin_Select" style="background-color:#FFFFFF;">
<option value="">—按文章类别.分类</option>
<%
dim rsSo1,SortIDed
set rsSo1=Server.CreateObject("Adodb.RecordSet")
rsSo1.open "select * from "&GuTablePrefix&"_Sort where So_Type='Sort' order by So_Order asc",GuConn,1,1
if err.number<>0 then
Response.write "Error..."
else
if rsSo1.bof and rsSo1.eof then
Response.write "<option value="""">—没有找到相关类别</option>"
else
do while not rsSo1.eof
if Trim(Request.QueryString("So"))<>"" and Trim(Request.QueryString("AS"))="" then
if Trim(Request.QueryString("So"))=cstr(rsSo1("So_ID")) then
SortIDed=" selected"
else
SortIDed=""
end if
end if
%>
<option value="Admin_List.asp?So=<%=rsSo1("So_ID")%>" style="background-color:#EAFBF5;color:#000000"<%=SortIDed%>>—<%=rsSo1("So_Name")%></option>
<%
dim rsAS1,AsSortIDed
set rsAS1=Server.CreateObject("Adodb.RecordSet")
rsAS1.open "select * from "&GuTablePrefix&"_AsSort where AS_SortID="&rsSo1("So_ID")&" order by AS_Order asc",GuConn,1,1
if err.number<>0 then
Response.write "数据库查询出错"
else
if rsAS1.bof and rsAS1.eof then
Response.write "<option value=""""> 没有找到相关分类</option>"
else
do while not rsAS1.eof
if Trim(Request.QueryString("AS"))<>"" then
if Trim(Request.QueryString("AS"))=cstr(rsAS1("AS_ID")) then
AsSortIDed=" selected"
else
AsSortIDed=""
end if
end if
%><option value="Admin_List.asp?So=<%=rsAS1("AS_SortID")%>&AS=<%=rsAS1("AS_ID")%>"<%=AsSortIDed%>> <%=rsAS1("AS_Name")%></option><%
rsAS1.movenext
loop
end if
end if
rsAS1.close
set rsAS1=Nothing
%><option value="Admin_List.asp?So=<%=rsSo1("So_ID")%>"></option><%
rsSo1.movenext
loop
end if
end if
rsSo1.close
set rsSo1=Nothing
%>
</select>
<select name="CT_Select" size="1" onChange="JavaScript:window.open(this.options[this.selectedIndex].value,'main')" class="Admin_Select" style="background-color:#FFFFFF;">
<option value="">—按设置栏目.标题颜色.隐藏.用户发布</option>
<option value="" style="background-color:#EAFBF5;color:#000000">—按设置栏目...</option>
<option value="Admin_List.asp?CT=Ar_CommendB">—首页推荐</option>
<option value="Admin_List.asp"></option>
<option value="" style="background-color:#EAFBF5;color:#000000">—按标题颜色...</option>
<%
dim SoftwareNameColor2,lii
SoftwareNameColor2=split(GuNameColorDefault,"|")
for lii = 0 to ubound(SoftwareNameColor2)
Response.write "<option value=""Admin_List.asp?NC="&Trim(SoftwareNameColor2(lii))&""" style=""color:"&Trim(SoftwareNameColor2(lii))&""">—"&Trim(SoftwareNameColor2(lii))&"</option>"
next
%>
<option value=""></option>
<option value="Admin_List.asp?SH=0" style="background-color:#EAFBF5;color:#000000">—显示隐藏(全部)的文章</option>
<option value="Admin_List.asp?UP=1" style="background-color:#EAFBF5;color:#000000">—显示用户发布(未审核)的文章</option></select>
<%end sub%>
<%Sub Admin_Index_Top_File()%>
<script>
<!--
function TopFileL_Show(){
if(TopFileL.style.display=='none') {
TopFileL.style.display="";
TopFile0.style.display="none";
TopAdsL.style.display="none";
TopAds0.style.display="";
}
}
function TopAdsL_Show(){
if(TopAdsL.style.display=='none') {
TopAdsL.style.display="";
TopAds0.style.display="none";
TopFileL.style.display="none";
TopFile0.style.display="";
}
}
//-->
</script>
<span class="CadetblueS12" valing="middle">[<a href="Admin_FileMDB.asp?GuComm=BFCD" target="main" class="CadetblueS12">文件备份/恢复/数据库压缩</a>]<span id="TopFile0" style="display:">[<a href="#" onclick="JavaScript:TopFileL_Show();" class="CadetblueS12">编辑网站文件</span>]</span><span id="TopFileL" style="display:none" class="LightgrayS12">[<a href="Admin_FileEditor.asp?ID=11" target="main" class="LightgrayS12">顶部文件</a>/<a href="Admin_FileEditor.asp?ID=13" target="main" class="LightgrayS12">导航菜单</a>/<a href="Admin_FileEditor.asp?ID=14" target="main" class="LightgrayS12">搜索表单</a>/<a href="Admin_FileEditor.asp?ID=12" target="main" class="LightgrayS12">底部文件</a>]</span><span id="TopAds0" class="CadetblueS12" style="display:">[<a href="#" onclick="JavaScript:TopAdsL_Show();" class="CadetblueS12">编辑广告位文件</a>]</span><span id="TopAdsL" style="display:none" class="LightgrayS12">[<a href="Admin_FileEditor.asp?ID=1" target="main" class="LightgrayS12">顶部广告</a>/<a href="Admin_FileEditor.asp?ID=2" target="main" class="LightgrayS12">横幅广告</a>/<font class="BlackS12">漂浮广告</font>/<font class="BlackS12">对联广告</font>/<a href="Admin_FileEditor.asp?ID=5" target="main" class="LightgrayS12">广告位五</a>/<a href="Admin_FileEditor.asp?ID=6" target="main" class="LightgrayS12">广告位六</a>/<a href="Admin_FileEditor.asp?ID=7" target="main" class="LightgrayS12">广告位七</a>/<a href="Admin_FileEditor.asp?ID=8" target="main" class="LightgrayS12">底部横幅</a>]</span></span>
<%end sub%>
<%Sub Admin_Index_Top_Config()%>
<span class="CadetblueS12" valing="middle">[<a href="Admin_ConfigIC.asp" target="main" class="CadetblueS12">设置首页资源统计显示栏目</a>]</span>
<%end sub%>
<%Sub Admin_Index_Top()%>
<%end sub%>
<!--#include file="Include/Message.asp"-->
</body>
</html>
<%CloseDatabase%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -