<%@language=vbscript codepage=936 %>
<%
option explicit
response.buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
<!--#include file="../Conn.asp"-->
<!--#include file="../inc/Cl_ClsSysTem.asp"-->
<!--#include file="../inc/Cl_Function_Public.asp"-->
<!--#include file="../inc/Cl_Md5.asp"-->
<%
Dim ChannelID
Dim ComeUrl,FoundErr,Errmsg
Dim SQL,Rs,i

Cl.GetWeb_Setting()
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()
if Cl.ChkAdminLogin = False then
    Call admin_login()
	Response.end
End if
%><!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 framespacing="0" border="false" rows="32,*" frameborder="0" scrolling="no">
	<frame name="top" scrolling="no" noresize="noresize" src="Admin_Index.asp?Action=admin_top">
	<frameset id="frame" framespacing="0" border="false" cols="180,*" frameborder="0" scrolling="no">
		<frame name="left" scrolling="auto" noresize="noresize" marginwidth="0" marginheight="0" src="Admin_Index.asp?Action=admin_left">
		<frame name="main" scrolling="auto" src="Admin_Index.asp?Action=admin_main">
	</frameset>
</frameset>
<body>
</body>
</html>
<%
End Sub

Sub admin_left()
	if Cl.ChkAdminLogin = False then
		Admin_ShowErr("<li>您未登录系统，无此操作权限！</li>")
		Response.end
	End if
	Dim SQL
	Dim rsLeft,sID,sItemName,sItemUnit,TempID,TempStr,TempStr2
	Dim ModuleID,sModuleName,sChannelName
	Dim IsCreateHtml
%><html>
<head>
<title><%=Cl.Web_Info(0)%>管理导航</title>
<style type="text/css">
body  { background:#0096CE; margin:0px; font:normal 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:normal 12px 宋体; }
img  { vertical-align:bottom; border:0px; }
a  { font:normal 12px 宋体; 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,StyleID from Cl_Channel Where ModuleID<>4 and ModuleID<>5 and ChannelID<>6 and ChannelID>0 and ChannelType<2 and IsDisabled=0 order by OrderID Asc,ChannelID Asc"
Case 2
	SQL = "select ChannelID,ChannelName,ChannelItemName,ChannelItemUnit,ChannelDir,IsCreateHtml,ModuleID,StyleID from Cl_Channel Where ModuleID<>5 and ChannelID<>6 and ChannelID>0 and ChannelType<2 and IsDisabled=0 order by OrderID Asc,ChannelID Asc"
Case else
	SQL = "select ChannelID,ChannelName,ChannelItemName,ChannelItemUnit,ChannelDir,IsCreateHtml,ModuleID,StyleID from Cl_Channel Where ChannelID<>6 and ChannelID>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"
		'TempStr2	= "<tr class=""tdbg""><td>&nbsp;&nbsp;<a href=""Admin_SoftBatch.asp?ChannelID="&sID&""" target=""main"">"&sItemName&"批量添加入库</a></td></tr>"
		TempStr2	= TempStr2&"<tr class=""tdbg""><td>&nbsp;&nbsp;<a href=""Admin_Server.asp?ChannelID="&sID&""" target=""main""><font color=""blue"">"&sItemName&"下载服务器管理</font></a></td></tr>"
	Case 3
		sModuleName	= "Photo"
		TempStr		= "<tr class=""tdbg""><td>&nbsp;&nbsp;<a href=""Admin_Photo.Asp?Action=AddMore&amp;ChannelID="&sID&""" target=""main"">添加"&sItemName&"[<font color=#0000ff>批量模式</font>]</a></td></tr>"
	Case 4
		sModuleName	= "Movie"
		'TempStr2	= "<tr class=""tdbg""><td>&nbsp;&nbsp;<a href=""Admin_Server.asp?ChannelID="&sID&""" target=""main""><font color=""blue"">"&sItemName&"下载服务器管理</font></a></td></tr>"
	Case 5
		sModuleName	= "Product"
		TempStr2	= "<tr class=""tdbg""><td height=""20"">&nbsp;&nbsp;===商城日常操作===</td></tr>"
		TempStr2	= TempStr2 & "<tr class=""tdbg""><td>&nbsp;&nbsp;<a href=""Admin_Order.asp"" target=""main"">商城订单管理</a></td></tr>"
		TempStr2	= TempStr2 & "<tr class=""tdbg""><td>&nbsp;&nbsp;<a href=""Admin_OrderItem.asp"" target=""main"">销售明细情况</a></td></tr>"
		TempStr2	= TempStr2 & "<tr class=""tdbg""><td>&nbsp;&nbsp;<a href=""Admin_BankrollItem.asp"" target=""main"">资金明细查询</a></td></tr>"
		'TempStr2	= TempStr2 & "<tr class=""tdbg""><td>&nbsp;&nbsp;<a href=""Admin_DeliverItem.asp"" target=""main"">发货退货管理</a></td></tr>"
		TempStr2	= TempStr2 & "<tr class=""tdbg""><td>&nbsp;&nbsp;<a href=""Admin_DeliverType.asp"" target=""main"">送货方式管理</a></td></tr>"
	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">&nbsp;&nbsp;<a href="Admin_<%=sModuleName%>.Asp?ChannelID=<%=sID%>&Action=Add" target="main">添加<%=sItemName%></a></td></tr>
			<%=TempStr%>
			<tr class="tdbg"><td height="20">&nbsp;&nbsp;<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">&nbsp;&nbsp;<a href="Admin_<%=sModuleName%>.Asp?ChannelID=<%=sID%>&ManageType=MyInfo" target="main">我添加的<%=sItemName%></a></td></tr>
			<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Comment.asp?ChannelID=<%=sID%>" target="main"><%=sItemName%>评论管理</a></td></tr>
			<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_<%=sModuleName%>.Asp?ChannelID=<%=sID%>&Action=Special" target="main">专题<%=sItemName%>管理</a></td></tr>
			<tr class="tdbg"><td height="20">&nbsp;&nbsp;<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">&nbsp;&nbsp;<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">&nbsp;&nbsp;==============</td></tr>
			<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Js.asp?ChannelID=<%=sID%>" target="main">JS代码管理</a></td></tr>
			<%if SysTemVersion>0 then%>
			<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Batch.asp?ChannelID=<%=sID%>" target="main"><%=sItemName%>批量设置</a></td></tr>
			<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_RepeatCheck.asp?ChannelID=<%=sID%>" target="main">重复<%=sItemName%>检测</a></td></tr>
			<%end if%>
			<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_CusTom.asp?ChannelID=<%=sID%>" target="main">自定义选择管理</a></td></tr>
			<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Create_Other.asp?ChannelID=<%=sID%>" target="main">生成<%=sItemName%>站点地图</a></td></tr>
			<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Template.asp?action=edit&stype=3&module=module_<%=SQL(4,i)%>&StyleID=<%=SQL(7,i)%>" target="main"><font color="blue"><%=sChannelName%>模版管理</font></a></td></tr>
			<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Channel.asp?Action=Modify&ChannelID=<%=sID%>" target="main"><font color="#FF0033"><%=sChannelName%>基本配置</font></a></td>
			</tr>
			<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Files.asp?FileType=upload&ChannelID=<%=sID%>" target="main"><font color="blue">上传文件管理</font></a></td></tr>
			<%if IsCreateHtml then%>
			<tr class="tdbg"><td height="20">&nbsp;&nbsp;==============</td></tr>
			<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Create_<%=sModuleName%>.asp?ChannelID=<%=sID%>&action=Create<%=sModuleName%>All&CreateType=2&TopNew=50" target="main"><font color="#0000ff">生成最新50<%=sItemUnit&sItemName%></font></a></td></tr>
			<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Create_<%=sModuleName%>.asp?ChannelID=<%=sID%>&action=createclass" target="main">生成<%=sItemName%>栏目列表</a></td></tr>
			<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Create_<%=sModuleName%>.asp?ChannelID=<%=sID%>&action=CreateSpecial" target="main">生成<%=sItemName%>专题列表</a></td></tr>
			<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Create_<%=sModuleName%>.asp?ChannelID=<%=sID%>&action=CreateUpdate" target="main">生成<%=sItemName%>更新列表</a></td></tr>
			<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Create_<%=sModuleName%>.asp?ChannelID=<%=sID%>&action=CreateElite" target="main">生成<%=sItemName%>推荐列表</a></td></tr>
			<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Create_<%=sModuleName%>.asp?ChannelID=<%=sID%>&action=CreateHot" target="main">生成<%=sItemName%>热门列表</a></td></tr>
			<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Create_<%=sModuleName%>.asp?ChannelID=<%=sID%>&action=createindex" target="main"><font color="#0000ff">生成<%=sChannelName%>首页</font></a></td></tr>
			<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Create_<%=sModuleName%>.asp?ChannelID=<%=sID%>" target="main"><font color="#ff0033"><%=sChannelName%>生成管理</font></a></td></tr>
			<%
			end if
			end if
			%>
		</table>
		<table cellpadding="0" cellspacing="0" align="center" width="100%">
			<tr><td height="15"></td></tr>
		</table>
		</td>
	  </tr>
	</table>
	<%
	End if
	Next
	SQL=Empty
End if
%>
<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(2)" style="cursor:hand;"><span><img src="Images/open.gif" style="float:left;margin:2 5 0px;" id="imgMenu2" align="absmiddle" alt="" />模板风格管理</span></td>
  </tr>
  <tr>
    <td style="width:100%;display:none" id="submenu2">
		<table class="sec_menu" cellpadding="0" cellspacing="1" align="center" width="100%">
		<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="admin_Template.asp" target="main">网站模板管理</a></td></tr>
		<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="admin_loadskin.asp" target="main">模板导出</a> 
			  | <a href="admin_loadskin.asp?Action=load" target="main">导入</a></td></tr>
		</table>
		<table cellpadding="0" cellspacing="0" align="center" width="100%">
			<tr><td height="15"></td></tr>
		</table>
	</td>
  </tr>
</table>
<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(1)" style="cursor:hand;"><span><img src="Images/open.gif" style="float:left;margin:2 5 0px;" id="imgMenu1" align="absmiddle" alt="" />系统信息管理</span></td>
  </tr>
  <tr>
		<td style="width:100%;" id="submenu1">
		<table class="sec_menu" cellpadding="0" cellspacing="1" align="center" width="100%">
			<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Setup.asp" target="main">基本信息配置</a></td></tr>
            <tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Announce.asp" target="main">网站公告管理</a></td></tr>
            <tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Ads.asp" target="main">网站广告管理</a></td></tr>
            <tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Vote.asp" target="main">网站调查管理</a></td></tr>
            <tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Special.asp" target="main">网站专题管理</a></td></tr>
            <tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Count.asp" target="main">网站访问量管理</a></td></tr>
            <tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Label.asp" target="main">自定义标签管理</a></td></tr>
            <tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Keyword.asp" target="main">网站关键字管理</a></td></tr>
            <tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Channel.asp?action=Add" target="main">网站频道添加</a> 
                  | <a href="Admin_Channel.asp" target="main">管理</a></td></tr>
			<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_ChannelCount.asp?ChannelID=0" target="main">频道统计参数配置</a></td></tr>
			<%Cl.GetChannelSetting(0)
			if Clng(Cl.Channel_Setting(10))=1 then%>
            <tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Create_Index.asp" target="main"><font color="red">生成网站首页</font></a></td></tr>
			<%end if%>
            </table>
		<table cellpadding="0" cellspacing="0" align="center" width="100%">
			<tr><td height="15"></td></tr>
		</table>
	</td>
  </tr>
</table>
<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(50)" style="cursor:hand;"><span><img src="Images/open.gif" style="float:left;margin:2 5 0px;" id="imgMenu50" align="absmiddle" alt="" />自定义页管理</td>
  </tr>
  <tr>
    <td style="width:100%;display:none" id="submenu50">
		<table class="sec_menu" cellpadding="0" cellspacing="1" align="center" width="100%">
		<tr height="20" class="tdbg">
		  <td>&nbsp;&nbsp;<a href="Admin_Page.Asp?Action=AddItem" target="main">添加自定义项目</a> | <a href="Admin_Page.Asp" target="main">管理</a></td></tr><%
		Set rsLeft=Cl.Execute("Select ItemID,ItemName From Cl_PageItem Order By ItemID Desc")
		if Not rsLeft.Eof then
			SQL = rsLeft.GetRows(-1)
			for i=0 to ubound(sql,2)%>
			<tr height="20" class="tdbg">
		  <td>&nbsp;&nbsp;<a href="Admin_Page.Asp?Action=AddPage&ItemID=<%=Sql(0,i)%>" target="main">添加<%=sql(1,i)%>页</a> | <a href="Admin_Page.Asp?Action=PageMain&ItemID=<%=Sql(0,i)%>" target="main">管理</a></td></tr><%
			next
			SQL=Empty
		end if
		%>
		</table>
		<table cellpadding="0" cellspacing="0" align="center" width="100%">
			<tr><td height="15"></td></tr>
		</table>
	</td>
  </tr>
</table>
<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(57)" style="cursor:hand;"><span><img src="Images/open.gif" style="float:left;margin:2 5 0px;" id="imgMenu57" align="absmiddle" alt="" />插件管理中心</td>
  </tr>
  <tr>
    <td style="width:100%;display:none" id="submenu57">
		<table class="sec_menu" cellpadding="0" cellspacing="1" align="center" width="100%">
		<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Plus.asp" target="main">插件设置管理</a></td></tr>
		<%
		Set rsLeft=Cl.Execute("Select ID,PlusName,PlusLink From Cl_Plus Where IsUse=0 And PlusType=0 Order By OrderID Desc")
		if Not rsLeft.Eof then
			SQL = rsLeft.GetRows(-1)
			for i=0 to ubound(sql,2)
			If sql(2,i)<>"" Then%>
			<tr height="20" class="tdbg">
		  <td>&nbsp;&nbsp;<a href="<%=sql(2,i)%>" target="main"><%=sql(1,i)%>管理</a></td></tr><%	End if
			next
			SQL=Empty
		end if
		Set rsLeft=Nothing
		%></table>
		<table cellpadding="0" cellspacing="0" align="center" width="100%">
			<tr><td height="15"></td></tr>
		</table>
	</td>
  </tr>
</table>
<%	Dim ArrItem,Item,MenuItem
	Set rsLeft=Cl.Execute("Select ID,PlusName,PlusMenu From Cl_Plus Where IsUse=0 And PlusType=1 Order By OrderID Desc")
	if Not rsLeft.Eof then
		SQL = rsLeft.GetRows(-1)
		for i=0 to ubound(sql,2)
%>
<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(11<%=sql(0,i)%>)" style="cursor:hand;"><span><img src="Images/open.gif" style="float:left;margin:2 5 0px;" id="imgMenu11<%=sql(0,i)%>" align="absmiddle" alt="" /><%=sql(1,i)%>管理</span></td>
  </tr>
  <tr>
    <td style="width:100%;display:none" id="submenu11<%=sql(0,i)%>">
		<table class="sec_menu" cellpadding="0" cellspacing="1" align="center" width="100%">
		<%ArrItem=Split(sql(2,i),VbCrlf)
		For Each Item In ArrItem
			Response.Write "<tr class='tdbg'><td height='20'>&nbsp;&nbsp;"&Item&"</td></tr>"
		Next%>
		</table>
		<table cellpadding="0" cellspacing="0" align="center" width="100%">
			<tr><td height="15"></td></tr>
		</table>
	</td>
  </tr>
</table>
<%
		next
		SQL=Empty
	end if
	Set rsLeft=Nothing
%>
<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(9)" style="cursor:hand;"><span><img src="Images/open.gif" style="float:left;margin:2 5 0px;" id="imgMenu9" align="absmiddle" alt="" />注册用户管理</span></td>
  </tr>
  <tr>
    <td style="width:100%;display:none" id="submenu9">
		<table class="sec_menu" cellpadding="0" cellspacing="1" align="center" width="100%">
			<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Email.asp" target="main">邮件群发管理</a></td></tr>
            <tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Message.asp" target="main">用户短信管理</a></td></tr>
            <tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_User.asp?Action=Update" target="main">更新用户数据</a></td></tr>
            <tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_User.asp" target="main">用户资料(权限)管理</a></td></tr>
            <tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_UserGroup.asp?Action=Add" target="main">用户组添加</a> 
                  | <a href="Admin_UserGroup.asp" target="main">管理</a></td></tr>
            <tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Admin.asp?Action=Add" target="main">管理员添加</a> 
                  | <a href="Admin_Admin.asp" target="main">管理</a></td></tr>
            <tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_UserCz.asp?Action=AddMore" target="main">充值卡添加</a> 
                  | <a href="Admin_UserCz.asp" target="main">管理</a></td></tr>
			<%if SysTemVersion>10 then%>
            <tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_PassIP.asp?Action=Add" target="main">全站通IP管理</a>
                  | <a href="Admin_PassIP.asp" target="main">管理</a></td></tr>
			<%end if%>
		</table>
		<table cellpadding="0" cellspacing="0" align="center" width="100%">
			<tr><td height="15"></td></tr>
		</table>
	</td>
  </tr>
</table>
<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(51)" style="cursor:hand;"><span><img src="Images/open.gif" style="float:left;margin:2 5 0px;" id="imgMenu51" align="absmiddle" alt="" />友情链接管理</span></td>
  </tr>
  <tr>
    <td style="width:100%;display:none" id="submenu51">
		<table class="sec_menu" cellpadding="0" cellspacing="1" align="center" width="100%">
			<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_LinkSite.asp?Action=Add" target="main">友情链接添加</a> | <a href="Admin_LinkSite.asp" target="main">管理</a></td></tr>
			<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_LinkClass.asp?Action=Add" target="main">链接栏目添加</a> | <a href="Admin_LinkClass.asp" target="main">管理</a></td></tr>
		</table>
		<table cellpadding="0" cellspacing="0" align="center" width="100%">
			<tr><td height="15"></td></tr>
		</table>
	</td>
  </tr>
</table>
<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(52)" style="cursor:hand;"><span><img src="Images/open.gif" style="float:left;margin:2 5 0px;" id="imgMenu52" align="absmiddle" alt="" />过滤限定管理</span></td>
  </tr>
  <tr>
    <td style="width:100%;display:none" id="submenu52">
		<table class="sec_menu" cellpadding="0" cellspacing="1" align="center" width="100%">
			<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_BadWord.asp?reaction=badword" target="main">脏话过滤管理</a></td></tr>
            <tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_BadWord.asp?reaction=splitreg" target="main">注册过滤字符</a></td></tr>
            <tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_SqlInWord.asp" target="main">注入过滤字符管理</a></td></tr>
            <tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_LockIP.asp?action=add" target="main">IP限定添加</a> 
                  | <a href="Admin_LockIP.asp" target="main">管理</a></td></tr>
		</table>
		<table cellpadding="0" cellspacing="0" align="center" width="100%">
			<tr><td height="15"></td></tr>
		</table>
	</td>
  </tr>
</table>
<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(11)" style="cursor:hand;"><span><img src="Images/open.gif" style="float:left;margin:2 5 0px;" id="imgMenu11" align="absmiddle" alt="" />网站文件管理</span></td>
  </tr>
  <tr>
    <td style="width:100%;display:none" id="submenu11">
		<table class="sec_menu" cellpadding="0" cellspacing="1" align="center" width="100%">
		<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Files.asp" target="main">网站文件管理</a></td></tr>
		<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Files.asp?FileType=UpLoad" target="main">上传文件管理</a></td></tr>
		<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Files.asp?FileType=Html" target="main">Html文件管理</a></td></tr>
		</table>
		<table cellpadding="0" cellspacing="0" align="center" width="100%">
			<tr><td height="15"></td></tr>
		</table>
	</td>
  </tr>
</table>
<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(12)" style="cursor:hand;"><span><img src="Images/open.gif" style="float:left;margin:2 5 0px;" id="imgMenu12" align="absmiddle" alt="" />事件记录管理</span></td>
  </tr>
  <tr>
    <td style="width:100%;display:none" id="submenu12">
		<table class="sec_menu" cellpadding="0" cellspacing="1" align="center" width="100%">
			<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Log.asp?Action=SqlLog" target="main">SQL注入记录</a></td></tr>
			<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Log.asp?Action=AdminLog" target="main">管理事件记录</a></td></tr>
			<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Log.asp?Action=UpFileLog" target="main">上传文件记录</a></td></tr>
			<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_ConsumeLog.Asp" target="main"><font color="red">用户消费记录</font></a></td>
			</tr>
			<%if SysTemVersion > 1 then %>
			<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Log.asp?Action=TransferLog" target="main">用户转账记录</a></td></tr>
			<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Log.asp?Action=BuyCardLog" target="main">充值卡购买记录</a></td></tr>
			<%if SysTemVersion > 2 then%>
			<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Payment.asp" target="main"><font color="blue">在线支付记录管理</font></a></td></tr>
			<%end if%>
			<%end if%>
		</table>
		<table cellpadding="0" cellspacing="0" align="center" width="100%">
			<tr><td height="15"></td></tr>
		</table>
	</td>
  </tr>
</table>
<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(100)" style="cursor:hand;"><span><img src="Images/open.gif" style="float:left;margin:2 5 0px;" id="imgMenu100" align="absmiddle" alt="" />数据库管理</span></td>
  </tr>
  <tr>
    <td style="width:100%;display:none" id="submenu100">
		<table class="sec_menu" cellpadding="0" cellspacing="1" align="center" width="100%">
		<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Data.asp?Action=Backup" target="main">备份数据库</a></td></tr>
		<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Data.asp?Action=Restore" target="main">恢复数据库</a></td></tr>
		<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Data.asp?Action=Compact" target="main">压缩数据库</a></td></tr>
		<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Data.asp?Action=Init" target="main">系统初始化</a></td></tr>
		<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Data.asp?Action=ServerInfo" target="main">服务器信息</a></td></tr>
		<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Data.asp?Action=SpaceSize" target="main">系统空间占用</a></td></tr>
		<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_Data.asp?Action=DoSqlMain" target="main">直接执行SQL语句</a></td></tr>
		<tr class="tdbg"><td height="20">&nbsp;&nbsp;<a href="Admin_replace.asp" target="main">数据库内容批量替换</a></td></tr>
		</table>
		<table cellpadding="0" cellspacing="0" align="center" width="100%">
			<tr><td height="15"></td></tr>
		</table>
	</td>
  </tr>
</table>
<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(101)" style="cursor:hand;"><span><img src="Images/close.gif" style="float:left;margin:2 5 0px;" id="imgMenu101" align="absmiddle" alt="" />版权信息</span></td>
  </tr>
  <tr>
    <td style="width:170" id="submenu101">
		<table class="sec_menu" cellpadding="0" cellspacing="1" align="center" width="100%">
		<tr class="tdbg"><td height="20"><br />&nbsp;&nbsp;版权所有：&nbsp;<a href="http://www.aspoo.cn/" target="_blank">创 力 网</a><br />
		&nbsp;&nbsp;技术支持：&nbsp;<a href="http://bbs.aspoo.cn/" target="_blank">创力论坛</a><br />
		<br />
		</td></tr>
		</table>
	</td>
  </tr>
</table>
</body>
</html>
<%
End Sub

Sub admin_top()
if Cl.ChkAdminLogin = False then
    %>
<script language="JavaScript" type="text/javascript">
parent.location.href="Admin_Index.asp";
</script>
	<%
	Response.end
End if
%><!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>
<title><%=Cl.Web_Info(0)%>后台管理页面</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="Refresh" content="120" />
<base target="main" />
<style type="text/css">
body  { margin:0px; BACKGROUND-COLOR: #0096CE; font:normal 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:normal 12px 宋体; }
img  { vertical-align:bottom; border:0px; }
a  { font:normal 12px 宋体; 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; }
th,.title{FONT-WEIGHT: bold; FONT-SIZE: 12px; BACKGROUND-COLOR: #0096CE; Height: 20; COLOR: white; }
.border{BORDER-RIGHT: #0096CE 1px solid; BORDER-TOP: #0096CE 1px solid;
BORDER-LEFT: #0096CE 1px solid; WIDTH: 100%; BORDER-BOTTOM: #0096CE 1px solid; BACKGROUND-COLOR: #ffffff}
</style>
<script language="JavaScript" type="text/javascript">
var displayBar=true;
function switchBar(obj)
{
	if (displayBar)
	{
		parent.frame.cols="0,*";
		displayBar=false;
		obj.src="Images/admin_top_open.gif";
		obj.title="打开左边管理菜单";
	}
	else{
		parent.frame.cols="180,*";
		displayBar=true;
		obj.src="Images/admin_top_close.gif";
		obj.title="关闭左边管理菜单";
	}
}
function Goto(url)
{
	parent.main.location.href=url;
}
function UGoto(url)
{
	parent.location.href=url;
}
</script>
</head>
<body leftmargin="0" topmargin="0">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="border">
<tr class="title">
  <td>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr valign="middle">
	<td width="30">
	<img onclick="switchBar(this)" src="Images/admin_top_close.gif" title="关闭左边管理菜单" style="cursor:hand" width="28" height="26" alt="" />	</td>
	<td width="66" height="28"><a onclick="Goto('http://bbs.aspoo.com')" style="cursor:hand"><b><font color="#ffffff">更新通告：</font></b></a></td>
	<td width="*" id="Cl_Pack" height="28"><font color="#ffffff">正在获取创力官方更新通告，请稍后……</font></td>
	<td height="28" width="500" align="right">
		<a onclick="Goto('Admin_Setup.asp')" style="cursor:hand"><b><font color="red">系统配置</font></b></a>&nbsp;
		<a onclick="Goto('Admin_Template.asp')" style="cursor:hand"><b><font color="#ffffff">模版管理</font></b></a>&nbsp;
		<a onclick="Goto('Admin_Channel.asp')" style="cursor:hand"><b><font color="green">频道管理</font></b></a>&nbsp;
		<a onclick="Goto('Admin_ModifyPwd.asp')" style="cursor:hand"><b><font color="#ffffff">修改密码</font></b></a>&nbsp;
		<a onclick="Goto('../User/User_Message.Asp')" style="cursor:hand"><b><font color="#ffffff">查看短信</font></b></a>&nbsp;
		<a onclick="Goto('Admin_Index.asp?action=admin_main')" style="cursor:hand"><b><font color="#ffffff">管理首页</font></b></a>&nbsp;
		<a onclick="UGoto('Admin_Logout.asp')" style="cursor:hand"><b><font color="#ffffff">退出后台</font></b></a>&nbsp;
		<a onclick="Goto('Admin_LoadCache.asp')" style="cursor:hand"><b><font color="#ffffff">更新缓存</font></b></a>	</td>
	<td width="30">&nbsp;</td>
</tr>
</table>
</td>
</tr>
</table>
<div id="ShowPack" style="display:none">
&nbsp;<%
Dim sPack,PackJs
sPack=Cl.Web_Pack
If Ubound(sPack)<2 Then
	redim sPack(3)
	sPack(0) = 1
	sPack(1) = "admin"
	sPack(2) = "admin888"
End If
PackJs="http://www.Aspoo"&".Cn/ClSysTem/PackJs.asp?a="&sPack(0)&"&amp;b="&sPack(1)&"&amp;c="&sPack(2)&"&amp;d="&Cl.Web_Info(0)&"&amp;e="&Cl.Get_ScriptNameUrl&"&amp;f="&Cl.Web_Info(4)&"&amp;g="&IsSqlDatabase&"&amp;h="&Cl.Web_Version(1)&"&amp;i="&Cl.Web_Version(3) & "&amp;j=" & SysTemVersion
%>
<script src="<%=PackJs%>" language="JavaScript" type="text/javascript"></script>
</div>
<script language="JavaScript" type="text/javascript">
<!--
document.getElementById("Cl_Pack").innerHTML=document.getElementById("ShowPack").innerHTML;
//-->
</script>
</body>
</html>
<%
End Sub

Sub admin_main()
	if Cl.ChkAdminLogin = False then
		Call admin_login()
		Response.end
	End if
Dim theInstalledObjects(18)
theInstalledObjects(0) = "MSWC.AdRotator"
theInstalledObjects(1) = "MSWC.BrowserType"
theInstalledObjects(2) = "MSWC.NextLink"
theInstalledObjects(3) = "MSWC.Tools"
theInstalledObjects(4) = "MSWC.Status"
theInstalledObjects(5) = "MSWC.Counters"
theInstalledObjects(6) = "IISSample.ContentRotator"
theInstalledObjects(7) = "IISSample.PageCounter"
theInstalledObjects(8) = "MSWC.PermissionChecker"
theInstalledObjects(9) = Trim(Cl.Web_Info(13))
theInstalledObjects(10) = "adodb.Connection"
theInstalledObjects(11) = "SoftArtisans.FileUp"
theInstalledObjects(12) = "SoftArtisans.FileManager"
theInstalledObjects(13) = "JMail.SMTPMail"
theInstalledObjects(14) = "CDONTS.NewMail"
theInstalledObjects(15) = "Persits.MailSender"
theInstalledObjects(16) = "LyfUpload.UploadFile"
theInstalledObjects(17) = "Persits.Upload.1"
theInstalledObjects(18) = "Adodb." & "Str" & "eam"
%><html>
<head>
<title><%=Cl.Web_Info(0)%>后台管理首页</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link rel="stylesheet" href="../Skins/Admin_Style.Css" />
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table cellpadding="2" cellspacing="1" border="0" class="border" align="center">
  <tr align="center"> 
    <td height="25" colspan="2" class="title"><strong>服 务 器 信 息 检 测</strong></tr>
  <tr><td class="title2" height="23" colspan="2">欢迎您使用 <a href="http://www.aspoo.com" target="_blank"><font face="Verdana, Arial, Helvetica, sans-serif"><b>创力网站管理系统(CreateLive CMS)</b></font></a><font face="Verdana, Arial, Helvetica, sans-serif" color="#0000ff"><b>
  <%
  Select Case SysTemVersion
  Case 0 : Response.write "免费版"
  Case 1 : Response.write "个人版"
  Case 2 : Response.write "标准版"
  Case 3 : Response.write "专业版"
  Case 4 : Response.write "高级版"
  Case Else : Response.write "高级专用版"
  End Select
  %></b></font>，当前数据库类型为<font face="Verdana, Arial, Helvetica, sans-serif"><b><%
	if IsSqlDataBase=1 then
		Response.Write " MS SQL Server"
	Else
		Response.Write " MS Access"
	End if%></b></font></td></tr>
  <tr class="tdbg">
    <td width="100%" height="23" colspan="2">当前使用版本：<font face="Verdana, Arial, Helvetica, sans-serif"><b><%=Cl.Web_Version(1)%>.<%=Right(Cl.SysTemUpDate,4)%></b></font></td>
  </tr>
  <tr class="tdbg2">
    <td width="100%" height="23" colspan="2">官方最新版本：<font face="Verdana, Arial, Helvetica, sans-serif" ID=AspooNew>正在获取创力官方最新版本数据，请稍后……</font></td>
  </tr>
  <tr class="tdbg"> 
    <td width="100%" height="23" colspan="2">站点物理路径：<font color="blue"><%=request.ServerVariables("APPL_PHYSICAL_PATH")%></font></td>
  </tr>
  <tr class="tdbg2"> 
    <td width="50%" height="23">服务器类型：<%=GetSysOS%></td>
    <td width="50%">脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
  </tr>
  <tr class="tdbg">
    <td width="50%" height="23">服务器端口：<%=Request.ServerVariables("SERVER_PORT")%>&nbsp;&nbsp;IP：<%=Request.ServerVariables("LOCAL_ADDR")%></td>
    <td width="50%" height="23">服务器IIS版本：<%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
  </tr>
  <tr class="tdbg2"> 
    <td width="50%">数据库使用：
      <%If Not Cl.ChkObjInstalled(theInstalledObjects(10)) Then%>
      <font color="red"><b>×</b></font>
      <%else%>
      <font color="green"><b>√</b></font>
      <%end if%></td>
    <td width="50%" height="23">AspJpeg生成预览图片：
      <%If Not Cl.ChkObjInstalled("Persits.Jpeg") Then%>
      <font color="red"><b>×</b></font>
      <%else%>
      <font color="green"><b>√</b></font>
      <%end if%></td>
  </tr>
  <tr class="tdbg">
    <td width="50%" height="23">FSO文本读写：
      <%If Not Cl.ChkObjInstalled(theInstalledObjects(9)) Then%>
      <font color="red"><b>×</b></font>
      <%else%>
      <font color="green"><b>√</b></font>
      <%end if%></td>
    <td width="50%">无组件上传：
      <%If Not Cl.ChkObjInstalled(theInstalledObjects(18)) Then%>
      <font color="red"><b>×</b></font>
      <%else%>
      <font color="green"><b>√</b></font>
      <%end if%>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="Admin_Data.asp?Action=ServerInfo">查看更详细的服务器信息&gt;&gt;&gt;</a></td>
  </tr>
</table>
<br />
<table cellpadding="2" cellspacing="1" border="0" class="border" align="center">
  <tr>
    <td colspan="2" class="title">快 速 管 理 通 道</td>
  </tr>
  <tr>
    <td width="15%" align="right" class="tdbg"><strong>模版风格管理</strong>：</td>
    <td align="left" class="tdbg">&nbsp;
	<a href="Admin_TempLate.Asp" target="main">模板管理</a> | <a href="Admin_TempLate.Asp?Action=editcss" target="main">CSS管理</a> | <a href="Admin_LoadSkin.asp">网站模版导出</a> | <a href="Admin_LoadSkin.asp?action=load">网站模版导入</a> | <a href="Admin_LoadSkin.asp?action=OutputCss">风格CSS导出</a> | <a href="Admin_LoadSkin.asp?action=LoadCss">风格CSS导入</a></td>
  </tr>
  <tr>
    <td width="15%" align="right" class="tdbg"><strong>系统信息管理</strong>：</td>
    <td align="left" class="tdbg">&nbsp;
	<a href="Admin_Channel.Asp?Action=Add" target="main">频道添加</a> | <a href="Admin_Channel.Asp" target="main">频道管理</a> | <a href="Admin_ChannelCount.Asp" target="main">频道统计管理</a> | <a href="Admin_Setup.Asp" target="main">基本信息配置</a> | <a href="Admin_Announce.Asp" target="main">网站公告管理</a> | <a href="Admin_Special.asp" target="main">网站专题管理</a></td>
  </tr>
<%
Dim rsLeft,sID,sModuleName,sItemName,sItemUnit,sChannelName
Select Case SysTemVersion
Case 0,1
	SQL = "select ChannelID,ChannelName,ChannelItemName,ChannelItemUnit,ChannelDir,IsCreateHtml,ModuleID from Cl_Channel Where ModuleID<>4 and ModuleID<>5 and ChannelID<>6 and ChannelID>0 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<>5 and ChannelID<>6 and ChannelID>0 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 ChannelID<>6 and ChannelID>0 and ChannelType<2 and IsDisabled=0 order by OrderID Asc,ChannelID Asc"
End Select
Set rsLeft	= Cl.Execute(sql)
If Not RsLeft.eof then
	SQL = rsLeft.GetRows(-1)
	For i=0 to Ubound(SQL,2)
	sID			= SQL(0,i) : sChannelName= SQL(1,i)
	sItemName	= SQL(2,i) : sItemUnit	= SQL(3,i)
	Select Case SQL(6,i)
	Case 1:sModuleName	= "Article"
	Case 2:sModuleName	= "Soft"
	Case 3:sModuleName	= "Photo"
	Case 4:sModuleName	= "Movie"
	Case 5:sModuleName	= "Product"
	End Select
%>
  <tr>
    <td width="15%" align="right" class="tdbg"><strong><%=sChannelName%>管理</strong>：</td>
    <td align="left" class="tdbg">&nbsp;
	<a href="Admin_<%=sModuleName%>.Asp?ChannelID=<%=sID%>&amp;Action=Add" target="main">添加<%=sItemName%></a> | <a href="Admin_<%=sModuleName%>.Asp?ChannelID=<%=sID%>" target="main"><%=sItemName%>管理</a> | <a href="Admin_<%=sModuleName%>.Asp?ChannelID=<%=sID%>&amp;Action=Special" target="main">专题<%=sItemName%>管理</a> | <a href="Admin_Class.asp?ChannelID=<%=sID%>&amp;Action=Add" target="main"><%=sItemName%>栏目添加</a> | <a href="Admin_Class.asp?ChannelID=<%=sID%>" target="main"><%=sItemName%>栏目管理</a> | <a href="Admin_Create_Other.asp?ChannelID=<%=sID%>" target="main"><font color="blue">生成<%=sItemName%>站点地图</font></a>
	</td>
  </tr>
<%
	Next
	SQL=Empty
End If
Set rsLeft=Nothing
%>
</table>
<br />
<table cellpadding="2" cellspacing="1" border="0" class="border" align="center">
  <tr>
    <td colspan="2" class="title">创力网站管理系统(<%=Cl.Web_Version(1)%>)信息</td>
  </tr>
  <tr>
    <td width="15%" align="right" class="tdbg"><strong>产品开发</strong>：</td>
    <td align="left" class="tdbg">&nbsp;创力网 Aspoo.CN (梅傲风)</td>
  </tr>
  <tr>
    <td width="15%" align="right" class="tdbg2"><strong>版权所有</strong>：</td>
    <td align="left" class="tdbg2">&nbsp;<a href="http://www.aspoo.cn">创力网 Aspoo.CN</a> / <a href="http://www.zxxk.com">北京今日学易科技有限公司 Zxxk.coM</a></td>
  </tr>
  <tr>
    <td width="15%" align="right" class="tdbg2"><strong>官方网站</strong>：</td>
    <td align="left" class="tdbg2">&nbsp;官方主页：<a href="http://www.Aspoo.CN" target="_blank">http://www.aspoo.cn</a>&nbsp;&nbsp;<a href="http://www.aspoo.com" target="_blank">http://www.aspoo.com</a><br />
	&nbsp;技术支持：<a href="http://bbs.Aspoo.CN" target="_blank">http://bbs.aspoo.cn</a>&nbsp;&nbsp;<a href="http://bbs.aspoo.Com" target="_blank">http://bbs.aspoo.com</a></td>
  </tr>
  <tr>
    <td width="15%" align="right" class="tdbg"><strong>系统介绍</strong>：</td>
    <td align="left" class="tdbg">&nbsp;&nbsp;&nbsp;&nbsp; 《创力网站管理系统》英文全名《CreateLive CMS》简称《CL CMS》<br />是由创力网络（Aspoo.Cn）和学易公司（Zxxk.CoM）开发编写的一个<font color=red><b>安全</b></font>、<font color="red"><b>快速</b></font>、稳定、高效、功能强大的网站管理系统<br />当前版本为《CreateLive CMS 3.00》，具有以下特色：<br />
&nbsp;&nbsp;&nbsp;&nbsp;1、包含文章、下载、图片、影视、商城、留言、用户等模块<br />
&nbsp;&nbsp;&nbsp;&nbsp;<font color="red">2、可无限复制文章、下载、图片、影视、商城模块</font><br />
&nbsp;&nbsp;&nbsp;&nbsp;3、各模块栏目无限级分类<br />
&nbsp;&nbsp;&nbsp;&nbsp;4、强大的防SQL注入功能和IP来访限定，确保网站能安全的正常运行<br />
&nbsp;&nbsp;&nbsp;&nbsp;5、软件、图片防盗连处理，（下载文件自动随机重命名）<br />
&nbsp;&nbsp;&nbsp;&nbsp;6、强大的模版功能，界面和程序分离，所有模块均通过标记调用，可以非常容易的制作模版<br />
&nbsp;&nbsp;&nbsp;&nbsp;7、无限下载、图片、影片地址添加<br />
&nbsp;&nbsp;&nbsp;&nbsp;8、应用了缓存技术，运行速度快<br />
&nbsp;&nbsp;&nbsp;&nbsp;<font color="red">9、全静态HTML文件生成</font><br />
&nbsp;&nbsp;&nbsp;&nbsp;10、脏话过滤功能，注册字符过滤<br />
&nbsp;&nbsp;&nbsp;&nbsp;11、上传文件功能，支持选择上传组件、图片(文字/图片)水印、更改上传目录等<br />
&nbsp;&nbsp;&nbsp;&nbsp;12、邮件群发功能，支持选择发送组件、分组发送、批量用户发送等<br />
&nbsp;&nbsp;&nbsp;&nbsp;13、Rss，站点地图生成功能……。<b><a href="http://www.aspoo.cn" target="_blank">详细了解请进入 www.aspoo.cn</a></b><br />
</td>
  </tr>
</table>
<p align="Center">
  Copyright (c) 2004-2005 <a href="http://www.aspoo.cn" target="_blank"><font face="Verdana, Arial, Helvetica, sans-serif">Aspoo.CN</font></a> .All Rights Reserved.<br />
</p>
<div ID=AspooNewTxt Style="Display:none"><script language="JavaScript" src="http://www.Asp<%%>oo.Cn/ClSysTem/NewJs.Asp" type="text/javascript"></script></div>
<script language="JavaScript" type="text/javascript">
<!--
document.getElementById("AspooNew").innerHTML=document.getElementById("AspooNewTxt").innerHTML;
//-->
</script>
</body>
</html>
<%
End Sub

Sub admin_login()
	If request("reaction")="chklogin" then
		Call chklogin()
	Else
		Call admin_login_main()
	End If
End Sub

Sub admin_login_main()
if Not Cl.ChkUserLogin then
	response.redirect "../User/Login.Asp"
end if
if cint(Cl.User_Info(21))<>1 then
	Cl.OutErr("你不是系统管理员！")
end if
%><!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>
<title>管理员登录</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<script language="JavaScript" type="text/javascript">
<!--
function CheckForm()
{
	if(document.Login.UserName.value=="")
	{
		alert("请输入用户名！");
		document.Login.UserName.focus();
		return false;
	}
	if(document.Login.Password.value == "")
	{
		alert("请输入密码！");
		document.Login.Password.focus();
		return false;
	}
	if (document.Login.CheckCode.value==""){
       alert ("请输入您的验证码！");
       document.Login.CheckCode.focus();
       return(false);
    }
}
//-->
</script>
<style type="text/css">
<!--
body {background-color:#0096CE;}
body,td,th {font-size: 12px;}
input{FONT-SIZE: 12px;}
.stylefont{font-size:12px;COLOR:white;font-weight: bold;}
-->
</style>
<script language="JavaScript" src="../inc/js/keyboard.js" type="text/javascript"></script>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="477" height="438" border="0" cellpadding="0" cellspacing="0" align="center">
<form action="admin_index.asp?action=admin_login&amp;reaction=chklogin" method="post" name="Login" target="_parent" id="Login" onsubmit="return CheckForm();">
	<tr>
		<td colspan="8" height="107"></td>
	</tr>
	<tr>
		<td><img src="images/Login1.jpg" width="68" height="158" alt="" /></td>
		<td><img src="images/Login2.jpg" width="48" height="158" alt="" /></td>
		<td><img src="images/Login3.jpg" width="86" height="158" alt="" /></td>
		<td><img src="images/Login4.jpg" width="74" height="158" alt="" /></td>
		<td><img src="images/Login5.jpg" width="71" height="158" alt="" /></td>
		<td><img src="images/Login6.jpg" width="21" height="158" alt="" /></td>
		<td colspan="2"><img src="images/Login7.jpg" width="109" height="158" alt="" /></td>
	</tr>
	<tr>
		<td rowspan="3"><img src="images/Login8.jpg" width="68" height="105" alt="" /></td>
		<td rowspan="3"><img src="images/Login9.jpg" width="48" height="105" alt="" /></td>
		<td colspan="4" rowspan="3" background="images/Login9.jpg" width="252" height="105" valign="top">
		<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1">
			<tr>
			  <td width="80" align="right" height="25"><span class="stylefont">登录名称：</span></td>
			  <td width="199" align="left"><input name="UserName" type="text" id="UserName" size="20" maxlength="20" style="width:160px" /></td></tr>
			<tr>
			  <td width="80" align="right" height="25"><span class="stylefont">管理密码：</span></td>
			  <td width="199" align="left"><input name="Password"  type="password" size="16" maxlength="20" style="width:108px;" />&nbsp;&nbsp;<input onclick="showkeyboard('Login.Password')" type="button" value="键盘" title="用软键盘输入密码，防止黑客软件记录键盘的录入信息" /></td></tr>
			<tr>
			  <td width="80" align="right" height="25"><span class="stylefont">验&nbsp;证&nbsp;码：</span></td>
			  <td width="199" align="left"><input name="CheckCode" size="16" maxlength="4" style="width:108px;" />&nbsp;&nbsp;<img src="Admin_GetCode.asp" alt="" /></td></tr>
		</table>		</td>
		<td colspan="2"><img src="images/Login10.jpg" width="109" height="20" alt="" /></td>
	</tr>
	<tr>
		<td><input type="image" name="Submit" src="images/Login11.jpg" /></td>
		<td rowspan="2"><img src="images/Login12.jpg" width="33" height="85" alt="" /></td>
	</tr>
	<tr>
		<td><img src="images/Login13.jpg" width="76" height="28" alt="" /></td>
	</tr>
	<tr>
		<td colspan="8"><img src="images/Login14.jpg" width="477" height="68" alt="" /></td>
	</tr>
</form>
</table>
</body>
</html>
<%
End Sub

Sub chklogin()
if Cl.ChkUserLogin()=False then
	response.Redirect "" & Cl.WebDir & "User/Login.Asp"
end if
if Clng(Cl.User_Info(21))<>1 then
	Response.Redirect Cl.WebDir & "Showerr.asp?action=OtherErr&ErrCodes=<li>您不是系统管理员！"
end if
dim Sql,Rs
dim UserName,password,CheckCode
username=Trim(Cl.CheckStr(request("username")))
password=md5(Trim(Cl.CheckStr(Request("password"))),16)
CheckCode=Trim(Request("CheckCode"))
FoundErr=False
if UserName="" or Password="" or CheckCode="" then
	FoundErr=True
	ErrMsg=ErrMsg & "<br /><li>用户名或密码或验证码不能为空，请返回重新输入！</li>"
end if
if session("Admin_Code")="" then
	FoundErr=True
	ErrMsg=ErrMsg & "<br /><li>你登录时间过长，请重新返回登录页面刷新后再进行登录。</li>"
end if
if CStr(CheckCode)<>CStr(session("Admin_Code")) then
	Session("Admin_Code")=Empty
	FoundErr=True
	ErrMsg=ErrMsg & "<br /><li>您输入的确认码和系统产生的不一致，请返回重新输入！</li>"
end if
Session("Admin_Code")=Empty
if FoundErr<>True then
	Sql="select ID,UserName,PassWord,Purview,Purview_Other,arrClassMaster,arrClassCheck,arrClassInput From Cl_Admin where username='" & UserName & "' and adduser='"&Cl.User_Info(5) &"'"
	Set Rs=Cl.Execute(Sql)
	if Rs.bof and Rs.eof then
		FoundErr=True
		ErrMsg=ErrMsg & "<br /><li>用户名或密码错误或者您不是后台管理员！</li>"
		Rs.close:set Rs=Nothing
	else
		if password<>Rs(2) then
			FoundErr=True
			ErrMsg=ErrMsg & "<br /><li>用户名或密码错误，请返回重新输入！</li>"
			Rs.close:set Rs=Nothing
		else
			Cl.Execute("update Cl_Admin set LastLoginIP='"&Cl.UserTrueIP&"',LastLoginTime="&SqlNowString&",LoginTimes=LoginTimes+1 Where UserName='"&UserName&"'")
			Session.Timeout=Cl.ChkClng(Cl.Web_Setting(15))
			Session("AdminName")=rs(1)
			Session("AdminPass")=rs(2)
			Rs.close:set Rs=Nothing
			Cl.Execute_L("insert into [Cl_AdminLog] (UserID,UserName,UserLevel,UserIP,ScriptName,LogContent,LogTime) values ('"&Cl.User_Info(4)&"','"&Cl.User_Info(5)&"','"&Cl.User_Info(21)&"','"&Cl.UserTrueIP&"','"&Cl.ScriptName&"','登录后台成功！','"&Now&"')")
			Response.Redirect "Admin_Index.asp"
		end if
	end if
end if
if FoundErr=True then
	Call ShowErr(ErrMsg)
end if
End Sub

'****************************************************
'过程名：ShowErr
'作  用：显示错误提示信息
'参  数：无
'****************************************************
Sub ShowErr(ErrMsg)
	dim strErr
	strErr=strErr & "<html><head><title>错误信息</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312' />" & vbcrlf
	strErr=strErr & "<link href='../Skins/Admin_Style.Css' rel='stylesheet' type='text/css' /></head><body>" & vbcrlf
	strErr=strErr & "<table cellpadding='2' cellspacing='1' border='0' width='400' class='border' align='center'>" & vbcrlf
	strErr=strErr & "  <tr align='center'><td height='22' class='title'><strong>错误信息</strong></td></tr>" & vbcrlf
	strErr=strErr & "  <tr><td height='100' class='tdbg' valign='top'><b>产生错误的可能原因：</b><br />" & ErrMsg &"</td></tr>" & vbcrlf
	strErr=strErr & "  <tr align='center'><td class='tdbg'><a href='Admin_Index.asp?Action=admin_login'>&lt;&lt; 返回登录页面</a></td></tr>" & vbcrlf
	strErr=strErr & "</table>" & vbcrlf
	strErr=strErr & "</body></html>" & vbcrlf
	response.write strErr
end sub

Function GetSysOS()
  on error resume next
  Dim WshShell,WshSysEnv
  Set WshShell = server.CreateObject("WScr" & "ipt" & "." & "Sh" & "ell")
  Set WshSysEnv = WshShell.Environment("SYSTEM")
  GetSysOS = cstr(WshSysEnv("OS"))
  if Trim(Request.ServerVariables("OS"))="" then GetSysOS=GetSysOS & "(Windows Server 2003)"
End Function
%>
<%
'<!--
'┌───────────────────────────────────────────────────────┐
'│														 │
'│		CreateLive CMS Version 3.1						 │
'│　　　　　　　　				Powered by Aspoo.CN	 	 │
'│　		　　　　　　　　　　						 │
'│　	邮箱: aspoo@126.com			Info@aspoo.cn　　	 │
'│		ＱＱ: 3315263				596197794			 │
'│		网站: www.aspoo.cn			www.aspoo.com		 │
'│		论坛: bbs.aspoo.cn			bbs.aspoo.com		 │
'│														 │
'│	Copyright (C) 2005 Aspoo.CN All Rights Reserved.	 │
'└───────────────────────────────────────────────────────┘
'-->
%>
