📄 admin_index.asp
字号:
<!--#include file="../Conn.asp"-->
<!--#include file="../inc/Cl_ClsSysTem.asp"-->
<!--#include file="../inc/Cl_Function_Public.asp"-->
<!--#include file="../inc/Cl_Md5.asp"-->
<!--#include file="Inc/Function.asp"-->
<%
Cl.Get_WebSetting()
if Cl.ChkAdminLogin = False Then
CloseAllObj
Response.write "<script language=""JavaScript"" type=""text/javascript"">parent.location.href=""Admin_Login.asp"";</script>"
'Response.Redirect "Admin_Login.asp"
Response.end
End If
Dim ChannelID
Dim ComeUrl,FoundErr,Errmsg
Dim SQL,Rs,i
select case request("action")
case "admin_left"
call admin_left()
case "admin_login"
call admin_login()
case "admin_main"
call admin_main()
case "admin_top"
call admin_top()
case Else
call main()
end Select
CloseAllObj
Sub main()
%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=Cl.Web_Info(0)%>后台管理</title>
</head>
<frameset id="frame" cols="180,*" framespacing="0" frameborder="0" marginwidth="0" marginheight="0">
<frame name="left" src="Admin_Index.asp?Action=admin_left" scrolling="auto" noresize="noresize" />
<frameset rows="32,*" framespacing="0" frameborder="0" marginwidth="0" marginheight="0">
<frame name="top" src="Admin_Index.asp?Action=admin_top" scrolling="no" noresize="noresize" />
<frame name="main" src="Admin_Index.asp?Action=admin_main" scrolling="auto" />
</frameset>
</frameset>
<!--
<frameset rows="32,*" framespacing="0" frameborder="0" marginwidth="0" marginheight="0">
<frame name="top" src="Admin_Index.asp?Action=admin_top" scrolling="no" noresize="noresize">
<frameset id="frame" cols="180,*" framespacing="0" frameborder="0" marginwidth="0" marginheight="0">
<frame name="left" src="Admin_Index.asp?Action=admin_left" scrolling="auto" noresize="noresize" />
<frame name="main" src="Admin_Index.asp?Action=admin_main" scrolling="auto" />
</frameset>
</frameset>-->
<body>
</body>
</html>
<%
End Sub
Sub admin_left()
Dim SQL
Dim rsLeft,sID,sItemName,sItemUnit,TempID,TempStr,TempStr2
Dim ModuleID,sModuleName,sChannelName
Dim IsCreateHtml
Dim TrueSetup,TrueAnnounce,TrueAds,TrueVote,TrueSpecial
Dim TrueCount,TrueLabel,TrueKeyword,TrueChannel
Dim TrueTemplate,TruePage,TruePlus,TrueLinkSite,TrueBadWord
Dim TrueLog,TrueUpload,TrueEmail,TrueMessage,TrueUser,TrueCz
Cl.Admin_Purview(0)=Cint(Cl.Admin_Purview(0))
if Cl.Admin_Purview(0)=1 then
TrueSetup = True : TrueAnnounce = True
TrueAds = True : TrueVote = True
TrueSpecial = True : TrueCount = True
TrueLabel = True : TrueKeyword = True
TrueChannel = True : TrueTemplate = True
TruePage = True : TruePlus = True
TrueLinkSite= True : TrueBadWord = True
TrueLog = True : TrueUpload = True
TrueEmail = True : TrueMessage = True
TrueUser = True : TrueCz = True
else
TrueSetup = Cl.TrueOtherPurview("Setup")
TrueAnnounce= Cl.TrueOtherPurview("Announce")
TrueAds = Cl.TrueOtherPurview("Ads")
TrueVote = Cl.TrueOtherPurview("Vote")
TrueSpecial = Cl.TrueOtherPurview("Special")
TrueCount = Cl.TrueOtherPurview("Count")
TrueLabel = Cl.TrueOtherPurview("Label")
TrueKeyword = Cl.TrueOtherPurview("Keyword")
TrueChannel = Cl.TrueOtherPurview("Channel")
TrueTemplate= Cl.TrueOtherPurview("Template")
TruePage = Cl.TrueOtherPurview("Page")
TruePlus = Cl.TrueOtherPurview("Plus")
TrueLinkSite= Cl.TrueOtherPurview("LinkSite")
TrueBadWord = Cl.TrueOtherPurview("BadWord")
TrueLog = Cl.TrueOtherPurview("Log")
TrueUpload = Cl.TrueOtherPurview("Upload")
TrueEmail = Cl.TrueOtherPurview("Email")
TrueMessage = Cl.TrueOtherPurview("Message")
TrueUser = Cl.TrueOtherPurview("User")
TrueCz = Cl.TrueOtherPurview("Cz")
end if
%><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=Cl.Web_Info(0)%>管理导航</title>
<style type="text/css">
body { font-family : tahoma, 宋体, fantasy;
background:#0096CE; margin:0px; font-size: 12px;
SCROLLBAR-FACE-COLOR: #0096CE; SCROLLBAR-HIGHLIGHT-COLOR: #ffffff;
SCROLLBAR-SHADOW-COLOR: #0096CE; SCROLLBAR-DARKSHADOW-COLOR: #0096CE;
SCROLLBAR-3DLIGHT-COLOR: #0096CE; SCROLLBAR-ARROW-COLOR: #def0fa;
SCROLLBAR-TRACK-COLOR: #def0fa;
}
table { border:0px; }
td { font-size: 12px; }
img { vertical-align:bottom; border:0px; }
a { color:#000000; text-decoration:none; }
a:hover { color:#428EFF;text-decoration:underline; }
.sec_menu { border-left:1px solid white; border-right:1px solid white; border-bottom:1px solid white; overflow:hidden; background:#def0fa; }
.menu_title span { position:relative; top:2px; left:8px; color:#215DC6; font-weight:bold; }
.menu_title2 span { position:relative; top:2px; left:8px; color:#428EFF; font-weight:bold; }
.tdbg{ background:#def0fa; padding:0 3px; height:22;}
</style>
<script language="JavaScript" type="text/javascript">
function showsubmenu(sid)
{
var whichEl = document.getElementById("submenu" + sid);
var imageId = document.getElementById("imgMenu" + sid)
if (whichEl.style.display == "none")
{
whichEl.style.display="";
imageId.src="Images/close.gif";
}
else
{
whichEl.style.display="none"
imageId.src="Images/open.gif";
}
}
</script>
</head>
<body class="bgleft">
<table width="158" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="38" valign="bottom">
<img src="Images/title.gif" width="158" height="38" alt="" /> </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/title_bg_quit.gif" id="menuTitle0">
<span><a href="Admin_Index.asp?Action=admin_main" target="main"><b>管理首页</b></a> | <a href="Admin_logout.asp" target="_top"><b>退出</b></a></span> </td>
</tr>
<tr>
<td style="display:" id='submenu0'>
<div class="sec_menu" style="width:158">
<table cellpadding="0" cellspacing="0" align="center" width="135">
<tr><td height="20">管理员：<%=Cl.Admin_Info(1)%></td></tr>
</table>
</div>
<div style="width:158">
<table cellpadding="0" cellspacing="0" align="center" width="135">
<tr><td height="15"></td></tr>
</table>
</div>
</td>
</tr>
</table>
<%
Select Case SysTemVersion
Case 0,1
SQL = "select ChannelID,ChannelName,ChannelItemName,ChannelItemUnit,ChannelDir,IsCreateHtml,ModuleID from Cl_Channel Where ModuleID Not In (0,4,5) and ChannelType<2 and IsDisabled=0 order by OrderID Asc,ChannelID Asc"
Case 2
SQL = "select ChannelID,ChannelName,ChannelItemName,ChannelItemUnit,ChannelDir,IsCreateHtml,ModuleID from Cl_Channel Where ModuleID Not In (0,5) and ChannelType<2 and IsDisabled=0 order by OrderID Asc,ChannelID Asc"
Case else
SQL = "select ChannelID,ChannelName,ChannelItemName,ChannelItemUnit,ChannelDir,IsCreateHtml,ModuleID from Cl_Channel Where ModuleID Not In (0) and ChannelType<2 and IsDisabled=0 order by OrderID Asc,ChannelID Asc"
End Select
Set rsLeft = Cl.Execute(sql)
TempID = 11111
If Not RsLeft.eof then
SQL = rsLeft.GetRows(-1)
For i=0 to Ubound(SQL,2)
if Cl.TrueChannelPurview(3,SQL(0,i)) then
sID = SQL(0,i) : sChannelName= SQL(1,i)
sItemName = SQL(2,i) : sItemUnit = SQL(3,i)
IsCreateHtml= SQL(5,i) : ModuleID = SQL(6,i)
TempStr = "" : TempStr2 = ""
Select Case ModuleID
Case 1
sModuleName = "Article"
Case 2
sModuleName = "Soft"
TempStr = "<tr class=""tdbg""><td> <a href=""Admin_Soft.asp?Action=AddMore&ChannelID="&sID&""" target=""main"">添加"&sItemName&"[<font color=#0000ff>批量模式</font>]</a></td></tr>"
Case 3
sModuleName = "Photo"
TempStr = "<tr class=""tdbg""><td> <a href=""Admin_Photo.asp?Action=AddMore&ChannelID="&sID&""" target=""main"">添加"&sItemName&"[<font color=#0000ff>批量模式</font>]</a></td></tr>"
Case 4
sModuleName = "Movie"
Case 5
sModuleName = "Product"
TempStr2 = "<tr class=""tdbg""><td height=""20""> ===商城日常操作===</td></tr>"
TempStr2 = TempStr2 & "<tr class=""tdbg""><td> <a href=""Admin_Order.asp"" target=""main"">商城订单管理</a></td></tr>"
TempStr2 = TempStr2 & "<tr class=""tdbg""><td> <a href=""Admin_OrderItem.asp"" target=""main"">销售明细情况</a></td></tr>"
TempStr2 = TempStr2 & "<tr class=""tdbg""><td> <a href=""Admin_BankrollItem.asp"" target=""main"">资金明细查询</a></td></tr>"
'TempStr2 = TempStr2 & "<tr class=""tdbg""><td> <a href=""Admin_DeliverItem.asp"" target=""main"">发货退货管理</a></td></tr>"
TempStr2 = TempStr2 & "<tr class=""tdbg""><td> <a href=""Admin_DeliverType.asp"" target=""main"">送货方式管理</a></td></tr>"
Case 6
sModuleName = "Supply"
IsCreateHtml= False
End Select
TempID=TempID+1
%>
<table cellpadding="0" cellspacing="0" width="158" align="center">
<tr width="100%">
<td height="25" class="menu_title" onmouseover="this.className='menu_title2';" onmouseout="this.className='menu_title';" background="Images/admin_left.gif" onclick="showsubmenu(<%=TempID%>)" style="cursor:hand;"><span><img src="Images/open.gif" style="float:left;margin:2 5 0px;" id="imgMenu<%=TempID%>" align="absmiddle" alt="" /><%=sChannelName%>管理</span></td>
</tr>
<tr>
<td style="width:100%;display:none" id="submenu<%=TempID%>">
<table class="sec_menu" cellpadding="0" cellspacing="1" align="center" width="100%">
<tr class="tdbg"><td height="20"> <a href="Admin_<%=sModuleName%>.asp?ChannelID=<%=sID%>&Action=Add" target="main">添加<%=sItemName%></a></td></tr>
<%=TempStr%>
<tr class="tdbg"><td height="20"> <a href="Admin_<%=sModuleName%>.asp?ChannelID=<%=sID%>" target="main"><%=sItemName%>管理</a> | <a href="Admin_<%=sModuleName%>.asp?ChannelID=<%=sID%>&Action=Check" target="main">审核</a><%if IsCreateHtml then%> | <a href="Admin_<%=sModuleName%>.asp?ChannelID=<%=sID%>&Action=Make" target="main">生成</a><%end if%></td></tr>
<tr class="tdbg"><td height="20"> <a href="Admin_<%=sModuleName%>.asp?ChannelID=<%=sID%>&ManageType=MyInfo" target="main">我添加的<%=sItemName%></a></td></tr>
<tr class="tdbg"><td height="20"> <a href="Admin_Comment.asp?ChannelID=<%=sID%>" target="main"><%=sItemName%>评论管理</a></td></tr>
<tr class="tdbg"><td height="20"> <a href="Admin_<%=sModuleName%>.asp?ChannelID=<%=sID%>&Action=Special" target="main">专题<%=sItemName%>管理</a></td></tr>
<tr class="tdbg"><td height="20"> <a href="Admin_<%=sModuleName%>.asp?ChannelID=<%=sID%>&Action=RecycleBin" target="main"><%=sItemName%>回收站管理</a></td></tr>
<%if Cl.TrueChannelPurview(1,sID) then%>
<tr class="tdbg"><td height="20"> <a href="Admin_Class.asp?ChannelID=<%=sID%>&Action=Add" target="main"><%=sItemName%>栏目添加</a> | <a href="Admin_Class.asp?ChannelID=<%=sID%>" target="main">管理</a></td></tr>
<%=TempStr2%>
<tr class="tdbg"><td height="20"> ==============</td></tr>
<%if SysTemVersion>0 then%>
<tr class="tdbg"><td height="20"> <a href="Admin_Batch.asp?ChannelID=<%=sID%>" target="main"><%=sItemName%>批量设置</a></td></tr>
<tr class="tdbg"><td height="20"> <a href="Admin_RepeatCheck.asp?ChannelID=<%=sID%>" target="main">重复<%=sItemName%>检测</a></td></tr>
<%end if%>
<tr class="tdbg"><td height="20"> <a href="Admin_CusTom.asp?ChannelID=<%=sID%>" target="main">自定义选择管理</a></td></tr>
<tr class="tdbg"><td height="20"> <a href="Admin_Create_Other.asp?ChannelID=<%=sID%>" target="main">生成<%=sItemName%>站点地图</a></td></tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -