<!--#include file="Admin_Const.asp"-->
<!--#include file="../Inc/Cl_Function_Article.asp"-->
<!--#include file="../Inc/Cl_Function_Soft.asp"-->
<!--#include file="../Inc/Cl_Function_Photo.asp"-->
<!--#include file="../Inc/Cl_Function_Movie.asp"-->
<!--#include file="../Inc/Cl_Function_Product.asp"-->
<%
if Not Cl.TrueOtherPurview("Channel") then
	Admin_ShowErr("<br /><li>您无此操作权限！</li>")
end if
dim Action',ChannelID
dim iCount,j
'ChannelType  0为系统，1为内部，2为外部
Action=Trim(request("Action"))
Header
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
  <tr class="title"> 
    <td height="22" colspan="2" align="center"><strong>网 站 频 道 管 理</strong></td>
  </tr>
  <tr class="tdbg"> 
    <td width="70" height="30"><strong>管理导航：</strong></td>
    <td><a href="Admin_Channel.asp">频道管理首页</a> | <a href="Admin_Channel.asp?Action=Add">添加新频道</a> | <a href="Admin_Channel.asp?Action=OrderID">修改频道排序</a> | <a href="Admin_Channel.asp?Action=SelectStyle">批量选择模板/Css</a></td>
  </tr>
</table>
<%
Select Case Action
Case "Add"
	call ChannelInfo()
Case "SaveAdd"
	call SaveChannelInfo()
Case "Modify"
	call ChannelInfo()
Case "SaveModify"
	call SaveChannelInfo()
Case "Del"
	call DelChannel()
Case "OrderID"
	call OrderID()
Case "UpOrder"
	call UpOrder() 
Case "DownOrder"
	call DownOrder()
Case "SelectStyle"
	call SelectStyle() 
Case "UpdateStyle"
	call UpdateStyle()
Case "UpdateStyleAll"
	call UpdateStyleAll()
Case "RefreshChannelJs"
	call RefreshChannelJs()
	Call Cl.OutMsg("恭喜您，所有频道Js刷新成功！","Admin_Channel.asp")
Case "IsShow"
	Call IsShow()
Case "CIsShow"
	Call CIsShow()
Case "IsDisabled"
	Call IsDisabled()
Case "CIsDisabled"
	Call CIsDisabled()
Case "OWindow"
	Call OWindow()
Case "NWindow"
	Call NWindow()
Case "Update"
	Call UpdateChannel()
Case else
	call main()
end Select
if FoundErr=True then Admin_ShowErr(ErrMsg)
Footer
Sub Main()
	Dim SQL
	SQL = "select ChannelID,ChannelName,ChannelItemName,ChannelItemUnit,ChannelDir,LinkUrl,OrderID,ChannelType,OpenType,IsShow,IsDisabled,IsCreateHtml,ModuleID from Cl_Channel order by OrderID"
	Set rs=Cl.Execute(SQL)
	%>
<br />
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
  <tr class="title">
    <td width="50" align="center"><strong>频道ID</strong></td>
    <td height="22" align="center" width="80"><strong>频道名称</strong></td>
    <td align="center"><strong>目录或链接地址</strong></td>
	<td width="60" align="center"><strong>模块</strong></td>
    <td width="60" align="center"><strong>显示</strong></td>
    <td width="60" align="center"><strong>禁用</strong></td>
    <td width="60" height="22" align="center"><strong>打开方式</strong></td>
    <td width="50" align="center"><strong>排序ID</strong></td>
    <td width="60" align="center"><strong>属性</strong></td>
    <td width="100" height="22" align="center"><strong>常规操作</strong></td>
  </tr>
  <%
  if Not (rs.Bof and rs.Eof) then
  SQL=rs.GetRows(-1)
  For i=0 to Ubound(SQL,2)
  %>
  <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'"> 
    <td width="50" align="center"> <b><%=SQL(0,i)%></b> </td>
    <td align="center" width="80"><%=SQL(1,i)%></td>
    <td><%
		if SQL(7,i)>1 then
			response.write Cl.ReplaceDir(SQL(5,i))
		else
			response.write SQL(4,i)
		end if
	%></td>
	<td width="60" align="center"><%
		Select Case SQL(12,i)
		Case 1 : response.write "文章"
		Case 2 : response.write "下载"
		Case 3 : response.write "图片"
		Case 4 : response.write "影视"
		Case 5 : response.write "商城"
		Case 6 : response.write "留言"
		Case Else : response.write "未定义"
		End Select
	%></td>
    <td width="60" align="center"><%
	if SQL(9,i)=0 then
		response.write "<a href='Admin_Channel.asp?Action=IsShow&ChannelID=" & SQL(0,i) & "'><font color=#ff0033>不显示</font></a>"
	else
		response.write "<a href='Admin_Channel.asp?Action=CIsShow&ChannelID=" & SQL(0,i) & "'><font color=#0000ff>显示</font></a>"
	end if
	%></td>
    <td width="60" align="center"><%
	if SQL(10,i)=0 then
		response.write "<a href='Admin_Channel.asp?Action=IsDisabled&ChannelID=" & SQL(0,i) & "'><font color=#0000ff>使用</font></a>"
	else
		response.write "<a href='Admin_Channel.asp?Action=CIsDisabled&ChannelID=" & SQL(0,i) & "'><font color=#ff0033>禁用</font></a>"
	end if
	%></td>
    <td width="60" align="center"><%
	if SQL(8,i)=1 then
		response.write "<a href='Admin_Channel.asp?Action=OWindow&ChannelID=" & SQL(0,i) & "'><font color=#ff0033>新窗口</font></a>"
	else
		response.write "<a href='Admin_Channel.asp?Action=NWindow&ChannelID=" & SQL(0,i) & "'><font color=#0000ff>原窗口</font></a>"
	end if
	%></td>
      <td width="50" align="center"> <%=SQL(6,i)%> </td>
      <td width="60" align="center">
	<%
	Select Case SQL(7,i)
	Case 0 
		response.write "<font color=#ff0033>系统</font>"
		if SQL(11,i)=1 then response.write "/<font color=blue>Html</font>"
	Case 1
		response.write "<font color=#006600>内部</font>"
		if SQL(11,i)=1 then response.write "/<font color=blue>Html</font>"
	Case else
		response.write "外部"
	end Select
	%>
		</td>
		<td width="100" align="center"><%
		response.write "<a href='Admin_Channel.asp?Action=Modify&ChannelID=" & SQL(0,i) & "'>修改</a>&nbsp;"

		if SQL(0,i)=0 then
			response.write "<font color=#888888>删除</font>&nbsp;"
			response.write "<font color=#888888>更新</font>"
		else
			Select Case SQL(7,i)
			Case 2 
				response.write "<a href='Admin_Channel.asp?Action=Del&ChannelID=" & SQL(0,i) & "' onClick=""return confirm('确定要删除此频道吗？\n\n注意：如果是内部频道，此操作将会删除频道相关的所有数据（包括此频道模版及频道目录文件夹），此操作不可恢复！');"">删除</a>&nbsp;"
				response.write "<font color=#888888>更新</font>"
			Case 1
				response.write "<a href='Admin_Channel.asp?Action=Del&ChannelID=" & SQL(0,i) & "' onClick=""return confirm('确定要删除此频道吗？\n\n注意：如果是内部频道，此操作将会删除频道相关的所有数据（包括此频道模版及频道目录文件夹），此操作不可恢复！');"">删除</a>&nbsp;"
				response.write "<a href='Admin_Channel.asp?Action=Update&ChannelID=" & SQL(0,i) & "' onClick=""return confirm('确定要更新此频道吗？\n\n注意：更新此频道将更新相应的JS，统计信息，及频道文件！');"">更新</a>"
			Case else
				response.write "<font color=#888888>删除</font>&nbsp;"
				response.write "<a href='Admin_Channel.asp?Action=Update&ChannelID=" & SQL(0,i) & "' onClick=""return confirm('确定要更新此频道吗？\n\n注意：更新此频道将更新相应的JS，统计信息，及频道文件！');"">更新</a>"
			end Select
		end if
		%></td>
  </tr>
  <%
	Next
	SQL=Empty
	End if
if Cl.Web_Info(15) = "1" then
  %>
<form name="formRefresh" method="Post" action="Admin_Channel.asp">
   <tr class="tdbg">
      <td height="40" colspan="10" align="center">
		<input name="Action" type="hidden" id="Action" value="RefreshChannelJs"> 
        <input name="Submit" type="submit" value=" 刷新所有频道JS文件 "></td>
    </tr>
</form>
<%end if%>
</table>
<%
	rs.Close:set rs=Nothing
end sub

sub ChannelInfo()
	dim ChannelID,sTemp,ChkDisabled
	dim ChannelName,ReadMe,OpenType,IsShow,IsDisabled,ChannelType,LinkUrl,IsRss,IsWap
	dim ModuleID,ChannelDir,ChannelItemName,ChannelItemUnit
	dim IsCreateHtml,CreatePathType,CreateFileType,CreateFileExt,IsCreateList,AutoCreateList
	dim StyleID,CssID,UploadSetting,OtherSetting
	dim CLogo,CBanner
	dim sAction,SubmitValue

	if Action = "Modify" then
		sAction="SaveModify":SubmitValue="修 改"
		ChannelID = Trim(Request("ChannelID"))
		if Not IsNumeric(ChannelID) then
			FoundErr=True
			ErrMsg=ErrMsg & "<br /><li>请指定要修改频道ID</li>"
			exit sub
		end if
		set rs=Cl.Execute("select * from Cl_Channel where ChannelID=" & Clng(ChannelID))
		if rs.bof and rs.eof then
			FoundErr=True
			ErrMsg=ErrMsg & "<br /><li>找不到指定的频道！</li>"
			Exit sub
		end if
		ChannelName		= rs("ChannelName")		: ReadMe			= rs("ReadMe")
		OpenType		= rs("OpenType")		: ChannelType		= rs("ChannelType")
		IsShow			= rs("IsShow")			: LinkUrl			= rs("LinkUrl")
		ModuleID		= rs("ModuleID")		: ChannelDir		= rs("ChannelDir")
		ChannelItemName = rs("ChannelItemName")	: ChannelItemUnit	= rs("ChannelItemUnit")
		IsCreateHtml	= rs("IsCreateHtml")	: CreatePathType	= rs("CreatePathType")
		CreateFileType	= rs("CreateFileType")	: CreateFileExt		= rs("CreateFileExt")
		IsCreateList	= rs("IsCreateList")	: AutoCreateList	= rs("AutoCreateList")
		StyleID			= rs("StyleID")			: CssID				= rs("CssID")
		CLogo			= rs("Logo")			: CBanner			= rs("Banner")
		IsDisabled		= rs("IsDisabled"):IsRss = rs("IsRss"):IsWap = rs("IsWap")
		OtherSetting	= Split(Rs("OtherSetting"),",")
		if Ubound(OtherSetting)<9 then Redim OtherSetting(9)
		if IsNull(rs("UploadSetting")) or rs("UploadSetting")="" then
			UploadSetting=Split("1,2,3,4@Other@2@0@jpg|gif|bmp|png@100@1@swf@500@1@rm|mp3|wav|mid|avi|mpg|mpeg|asf|wma@2048@1@rar|zip|exe|doc|xls|chm@2048@1","@")
		else
			UploadSetting=Split(rs("UploadSetting"),"@")
			'if Ubound(UploadSetting)<15 then
				'UploadSetting=Split("4@Other@2@0@jpg|gif|bmp|png@100@1@swf@500@1@rm|mp3|wav|mid|avi|mpg|mpeg|asf|wma@2048@1@rar|zip|exe|doc|xls|chm@2048@1","@")
			'end if
		end if
		ChkDisabled="Disabled"
		set rs = Nothing
	else
		sAction = "SaveAdd" : SubmitValue = "添 加"
		OpenType = 1 : ChannelType = 1 : IsShow = 1 : ModuleID = 1
		IsCreateHtml = 0 : CreatePathType = 0 : CreateFileType = 0 : CreateFileExt = "html"
		IsCreateList = 1 : AutoCreateList = 1 : StyleID = Cl.StyleID : CssID = Cl.CssID
		CLogo = "" : CBanner = "" : IsDisabled = 0
		UploadSetting=Split("1,2,3,4@Other@2@0@jpg|gif|bmp|png@100@1@swf@500@1@rm|mp3|wav|mid|avi|mpg|mpeg|asf|wma@2048@1@rar|zip|exe|doc|xls|chm@2048@1","@")
		OtherSetting=Array(0,12,1,20,20,20,20,20,10,20)
		ChkDisabled=""
	end if

%>
<br />
<script language="JavaScript" type="text/javascript">
function CheckForm()
{
	if (document.form1.ChannelName.value == "") {
		alert("请输入频道名称！");
		document.form1.ChannelName.focus();
		return false;
	}
	if (document.getElementById('OuterChannel').style.display == 'none'){
		var str="<%=Action%>";
		if (document.form1.ChannelDir.value == "" && str=="Add"){
			alert("请输入频道目录！");
			document.form1.ChannelDir.focus();
			return false;
		}
		if (document.form1.ChannelItemName.value == "") {
			alert("请输入频道项目名称！");
			document.form1.ChannelItemName.focus();
			return false;
		}
		if (document.form1.ChannelItemUnit.value == "") {
			alert("请输入频道项目单位！");
			document.form1.ChannelItemUnit.focus();
			return false;
		}
	}
	else{
		if (document.form1.LinkUrl.value == "") {
			alert("请输入链接地址！");
			document.form1.LinkUrl.focus();
			return false;
		}
	}
	return true;
}
</script>
<form method="post" action="Admin_Channel.asp" name="form1" onsubmit="return CheckForm();">
  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
    <tr class="title"> 
      <td height="22" colspan="2"> <div align="center"><strong><%=SubmitValue%> 频 道</strong></div></td>
    </tr>
    <tr class="tdbg"> 
      <td width="150" align="right"><strong>频道名称：</strong></td>
      <td><input name="ChannelName" type="text" id="ChannelName" value="<%=ChannelName%>" size="49" maxlength="200"> <font color=red>*</font></td>
    </tr>
    <tr class="tdbg"> 
      <td width="150" align="right"><strong>频道说明：</strong></td>
      <td><textarea name="ReadMe" cols="40" rows="5" id="ReadMe"><%=ReadMe%></textarea></td>
    </tr>
    <tr class="tdbg"> 
      <td width="150" align="right"><strong>打开方式：</strong></td>
      <td> 
        <input type="radio" name="OpenType" value="0" <%if OpenType=0 then%>checked<%end if%>>
        原窗口 &nbsp;&nbsp;&nbsp;&nbsp; 
        <input type="radio" name="OpenType" value="1" <%if OpenType<>0 then%>checked<%end if%>>
        新窗口</td>
    </tr>
    <tr class="tdbg"> 
      <td width="150" align="right"><strong>是否显示：</strong></td>
      <td> 
        <input type="radio" name="IsShow" value="1" <%if IsShow<>0 then%>checked<%end if%>>
        显&nbsp;&nbsp;示 &nbsp;&nbsp;&nbsp;&nbsp; <input type="radio" name="IsShow" value="0" <%if IsShow=0 then%>checked<%end if%>>
        不显示
        </td>
    </tr>
    <tr class="tdbg"> 
      <td width="150" align="right"><strong>是否禁用：</strong></td>
      <td> 
        <input type="radio" name="IsDisabled" value="0" <%if IsDisabled=0 then%>checked<%end if%>>
        使&nbsp;&nbsp;用 &nbsp;&nbsp;&nbsp;&nbsp; 
        <input type="radio" name="IsDisabled" value="1" <%if IsDisabled<>0 then%>checked<%end if%>>
        禁&nbsp;&nbsp;用</td>
    </tr>
    <tr class="tdbg"> 
      <td width="150" align="right"><strong>频道类型：</strong></td>
      <td>
	  <input type="radio" name="ChannelType" value="0" Disabled <%if ChannelType=1 then%> checked<%end if%>> 系统 &nbsp;&nbsp;&nbsp;&nbsp; 
	  <input type="radio" name="ChannelType" value="1" <%=ChkDisabled%><%if ChannelType=1 then%> checked<%end if%> OnClick="ChkChannelType('1');"> 内部 &nbsp;&nbsp;&nbsp;&nbsp; 
      <input type="radio" name="ChannelType" value="2" <%=ChkDisabled%><%if ChannelType<>1 and ChannelType<>0 then%> checked<%end if%> OnClick="ChkChannelType('2');"> 外部
	</td>
    </tr>
	<tr class="tdbg" ID="OuterChannel" style="DisPlay:none">
      <td width="150" align="right"><strong>链接地址：</strong></td>
      <td><input name="LinkUrl" type="text" id="LinkUrl" size="49" maxlength="200"  value="<%=LinkUrl%>"><br /><font color=red>请输入请输入完整的URL地址。</font></td>
    </tr>
<!--==================================================================-->
    <tr class="tdbg" id="NoOuterChannel">
      <td width="150" align="right"><strong>内部频道参数：</strong></td>
      <td>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
	<tr class="tdbg">
      <td width="130"><strong>使用模块：</strong></td>
      <td> 
		<select name="ModuleID" ID="ModuleID" <%=ChkDisabled%>>
			<option value="1">文章模块</option>
			<option value="2">下载模块</option>
			<option value="3">图片模块</option>
			<%if SysTemVersion>1 or Action="Modify" then%>
			<option value="4">影视模块</option>
			<%end if%>
			<%if Action<>"Add" then%>
			<option value="5">商城模块</option>
			<option value="6">留言模块</option>
			<option value="0">网站首页</option>
			<%end if%>
		</select>
	</td>
    </tr>
	<tr class="tdbg">
      <td width="130"><strong>频道目录：</strong></td>
      <td><input name="ChannelDir" type="text" id="ChannelDir" size="20" maxlength="50" onkeyup="OutputUploadDir(this.value);" value="<%=ChannelDir%>" <%=ChkDisabled%>> <font color=red>*</font><br /><font color="#ff0033">注意：只能是英文，不能带空格或“\”、“/”等符号，此项添加后不允许更改。</font></td>
    </tr>
	<tr class="tdbg">
      <td width="130"><strong>项目名称：</strong></td>
      <td><input name="ChannelItemName" type="text" id="ChannelItemName" size="20" maxlength="50" value="<%=ChannelItemName%>"> <font color=red>*</font><br /><font color="#ff0033">如：“文章”“软件”“图片”等。</font></td>
    </tr>
	<tr class="tdbg">
      <td width="130"><strong>项目单位：</strong></td>
      <td><input name="ChannelItemUnit" type="text" id="ChannelItemUnit" size="20" maxlength="50" value="<%=ChannelItemUnit%>"> <font color=red>*</font><br /><font color="#ff0033">如：“篇”“个”“张”等。</font></td>
    </tr>
    <tr class="tdbg">
      <td width="130"><strong><font color=blue>是否生成HTML：</font></strong></td>
      <td> 
        <input type="radio" name="IsCreateHtml" value="1" <%if IsCreateHtml=1 then%>checked<%end if%> <%if Cl.Web_Info(15) <> "1" then%> Disabled<%end if%>>
        <font color=blue>生成</font> &nbsp;&nbsp;&nbsp;&nbsp; <input type="radio" name="IsCreateHtml" value="0" <%if IsCreateHtml<>1 then%>checked<%end if%> <%if Cl.Web_Info(15) <> "1" then%> Disabled<%end if%>>
        <font color=blue>不生成</font>
        </td>
    </tr>
    <tr class="tdbg">
      <td width="130"><strong>文件的扩展名：</strong></td>
      <td><input name="CreateFileExt" type="text" id="CreateFileExt" size="30" maxlength="50" value="<%=CreateFileExt%>" <%if Cl.Web_Info(15) <> "1" then%> Disabled<%end if%>> <font color=red>*</font><br /><font color="#3370CC">只填扩展名。例：要生成“*.shtml”，填“shtml”即可。</font></td>
    </tr>
    <tr class="tdbg">
      <td width="130"><strong>生成目录结构：</strong></td>
      <td>
	<input type="radio" name="CreatePathType" value="0">Html目录/频道/大类(英文目录)/小类(英文目录)/文件<br />
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#3370CC">例如：<%=Cl.htmlDir%>Article/Help/SysTem/20060325.html</font><br />
	<input type="radio" name="CreatePathType" value="1">Html目录/频道/大类(ClassID)/小类(ClassID)/文件<br />
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#3370CC">例如：<%=Cl.htmlDir%>Article/25/36/20060325.html</font><br />
	<input type="radio" name="CreatePathType" value="2">Html目录/频道/栏目(英文目录)/文件<br />
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#3370CC">例如：<%=Cl.htmlDir%>Article/Help/20060325.html</font><br />
	<input type="radio" name="CreatePathType" value="3">Html目录/频道/栏目(ClassID)/文件<br />
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#3370CC">例如：<%=Cl.htmlDir%>Article/25/20060325.html</font><br />
	<input type="radio" name="CreatePathType" value="4">Html目录/频道/文件<br />
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#3370CC">例如：<%=Cl.htmlDir%>Article/20060325.html</font><br />
	<input type="radio" name="CreatePathType" value="5">Html目录/频道/年月/文件<br />
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#3370CC">例如：<%=Cl.htmlDir%>Article/200603/20060325.html</font><br />
	<input type="radio" name="CreatePathType" value="6">Html目录/频道/年/月/文件<br />
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#3370CC">例如：<%=Cl.htmlDir%>Article/2006/03/20060325.html</font><br />
	<input type="radio" name="CreatePathType" value="7">频道/Html目录/大类(英文目录)/小类(英文目录)/文件<br />
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#3370CC">例如：Article/<%=Cl.htmlDir%>Help/SysTem/20060325.html</font><br />
	<input type="radio" name="CreatePathType" value="8">频道/Html目录/大类(ClassID)/小类(ClassID)/文件<br />
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#3370CC">例如：Article/<%=Cl.htmlDir%>25/36/20060325.html</font><br />
	<input type="radio" name="CreatePathType" value="9">频道/大类(英文目录)/小类(英文目录)/文件<br />
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#3370CC">例如：Article/Help/SysTem/20060325.html</font><br />
	<input type="radio" name="CreatePathType" value="10">频道/大类(ClassID)/小类(ClassID)/文件<br />
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#3370CC">例如：Article/25/36/20060325.html</font><br />
	<input type="radio" name="CreatePathType" value="11">频道/Html目录/栏目(英文目录)/文件<br />
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#3370CC">例如：Article/<%=Cl.htmlDir%>Help/20060325.html</font><br />
	<input type="radio" name="CreatePathType" value="12">频道/Html目录/栏目(ClassID)/文件<br />
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#3370CC">例如：Article/<%=Cl.htmlDir%>25/20060325.html</font><br />
	<input type="radio" name="CreatePathType" value="13">频道/栏目(英文目录)/文件<br />
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#3370CC">例如：Article/Help/20060325.html</font><br />
	<input type="radio" name="CreatePathType" value="14">频道/栏目(ClassID)/文件<br />
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#3370CC">例如：Article/25/20060325.html</font><br />
	<input type="radio" name="CreatePathType" value="15">频道/Html目录/文件<br />
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#3370CC">例如：Article/<%=Cl.htmlDir%>20060325.html</font><br />
	<input type="radio" name="CreatePathType" value="16">频道/Html目录/年月/文件<br />
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#3370CC">例如：Article/<%=Cl.htmlDir%>200603/20060325.html</font><br />
	<input type="radio" name="CreatePathType" value="17">频道/Html目录/年/月/文件<br />
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#3370CC">例如：Article/<%=Cl.htmlDir%>2006/03/20060325.html</font>
	</td>
    </tr>
    <tr class="tdbg">
      <td width="130"><strong>生成文件结构：</strong></td>
      <td>
	<input type="radio" name="CreateFileType" value="0">标题ID号+更新时间
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#3370CC">例如：168200603250345234.html</font><br />
	<input type="radio" name="CreateFileType" value="1">标题ID号
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#3370CC">例如：168.html</font><br />
	<input type="radio" name="CreateFileType" value="2">更新时间
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#3370CC">例如：200603250345234.html</font><br />
	<input type="radio" name="CreateFileType" value="3">栏目ID+_+标题ID号+更新时间
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#3370CC">例如：25_168200603250345234.html</font><br />
	<input type="radio" name="CreateFileType" value="4">栏目ID+_+标题ID号
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#3370CC">例如：25_168.html</font><br />
	<input type="radio" name="CreateFileType" value="5">栏目ID+_+更新时间
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#3370CC">例如：25_200603250345234.html</font>
	</td>
    </tr>

    <tr class="tdbg">
      <td width="130"><strong>是否生成相关列表：</strong></td>
      <td> 
        <input type="radio" name="IsCreateList" value="1" <%if IsCreateList=1 then%>checked<%end if%> <%if Cl.Web_Info(15) <> "1" then%> Disabled<%end if%>>
        生成 &nbsp;&nbsp;&nbsp;&nbsp; 
		<input type="radio" name="IsCreateList" value="0" <%if IsCreatelist<>1 then%>checked<%end if%> <%if Cl.Web_Info(15) <> "1" then%> Disabled<%end if%>>
        不生成<br /><font color="#3370CC">如果选择否，则除内容页外栏目等列表将使用Asp文件（对于数据量较大的站，建议选否）</font></td>
    </tr>
    <tr class="tdbg">
      <td width="130"><strong>自动生成相关列表：</strong></td>
      <td> 
        <input type="radio" name="AutoCreateList" value="1" <%if AutoCreateList=1 then%>checked<%end if%> <%if Cl.Web_Info(15) <> "1" then%> Disabled<%end if%>>
        生成 &nbsp;&nbsp;&nbsp;&nbsp; 
		<input type="radio" name="AutoCreateList" value="0" <%if AutoCreateList<>1 then%>checked<%end if%> <%if Cl.Web_Info(15) <> "1" then%> Disabled<%end if%>>
        不生成
       <br /><font color="#3370CC">添加或修改文章后，自动生成相关列表，默认为生成（对于数据量较大的站，建议选否）</font></td>
    </tr>
    <tr class="tdbg"> 
      <td width="130"><strong>频道模板/风格：</strong></td>
      <td>
		模板：<select name="Styleid">
		<%
		Dim rs_s
		set rs_s = Cl.Execute("select ID,StyleName from Cl_Style Order by ID")
		if rs_s.eof and rs_s.bof then
			response.write "请先添加模板！"
		else
			do while not rs_s.eof
				response.write "<option value="""&rs_s(0)&""""
				If rs_s(0)=StyleID Then response.write " selected"
				response.write ">"&rs_s(1)&"</option>"
				rs_s.MoveNext
			Loop
		End If
		Set rs_s=Nothing
		%>
		</select>&nbsp;&nbsp;CSS风格：<select name="Cssid">
		<%
		Dim strTempCss,strCssName
		strTempCss=Split(Cl.CacheData(15,0),"@@@")(0)
		strCssName=Split(strTempCss,"|||")
		for i=0 to ubound(strCssName)-1
			response.write "<option value="""&i&""""
			If i=CssID Then response.write " selected"
			response.write ">"&strCssName(i)&"</option>"
		next%>
		</select>
</td>
    </tr>
<!--上传设置-->
    <tr class="tdbg">
      <td width="130"><strong>允许上传用户等级：</strong></td>
      <td><input name="UploadSetting(0)" type="text" id="UploadSetting(0)" value="<%=UploadSetting(0)%>" size="66" onclick="SelectUserGroup('UploadSetting(0)');" Readonly>
		</td>
   </tr>
    <tr class="tdbg">
      <td width="130"><strong>上传文件存放目录：</strong></td>
      <td><input name="UploadSetting(1)" type="text" value="<%=UploadSetting(1)%>" ID="UploadSetting(1)" size="23">&nbsp;
		<b>分类：</b><select name="UploadSetting(2)" id="UploadSetting(2)">
		<option value="0">不使用</option>
		<option value="1">年</option>
		<option value="2">年-月</option>
		<option value="3">年\月</option>
		<option value="4">年-月-日</option>
		<option value="5">年-月\日</option>
		<option value="6">年\月\日</option>
		</select>&nbsp;
		<b>路径：</b><select name="UploadSetting(3)" id="UploadSetting(3)">
		<option value="0">绝对根路径</option>
		<option value="1">绝对全路径</option>
		</select>
		<br />
		<font color="#3370CC">目录相对于上传总目录“<%=Cl.Upload_Setting(0)%>”，绝对全路径指带域名的绝对路径</font></td>
    </tr>
    <tr class="tdbg">
      <td width="130"><strong>允许上传图片类型：</strong></td>
      <td><input name="UploadSetting(4)" type="text" id="UploadSetting(4)" size="35" value="<%=UploadSetting(4)%>">&nbsp;&nbsp;限制：<input name="UploadSetting(5)" type="text" id="UploadSetting(5)" value="<%=UploadSetting(5)%>" size="7" maxlength="6"> K&nbsp;&nbsp;重命名：<input name="UploadSetting(6)" type="checkbox" id="UploadSetting(6)" value="1" <%if UploadSetting(6)="1" then%>checked<%end if%>><br /><font color="#3370CC">即允许上传的文件扩展名，用“|”分隔</font></td>
    </tr>
    <tr class="tdbg">
      <td width="130"><strong>允许上传Flash类型：</strong></td>
      <td><input name="UploadSetting(7)" type="text" id="UploadSetting(7)" size="35" value="<%=UploadSetting(7)%>">&nbsp;&nbsp;限制：<input name="UploadSetting(8)" type="text" id="UploadSetting(8)" value="<%=UploadSetting(8)%>" size="7" maxlength="6"> K&nbsp;&nbsp;重命名：<input name="UploadSetting(9)" type="checkbox" id="UploadSetting(9)" value="1" <%if UploadSetting(9)="1" then%>checked<%end if%>><br /><font color="#3370CC">即允许上传的文件扩展名，用“|”分隔</font></td>
    </tr>
    <tr class="tdbg">
      <td width="130"><strong>允许上传媒体类型：</strong></td>
      <td><input name="UploadSetting(10)" type="text" id="UploadSetting(10)" size="35" value="<%=UploadSetting(10)%>">&nbsp;&nbsp;限制：<input name="UploadSetting(11)" type="text" id="UploadSetting(11)" value="<%=UploadSetting(11)%>" size="7" maxlength="6"> K&nbsp;&nbsp;重命名：<input name="UploadSetting(12)" type="checkbox" id="UploadSetting(12)" value="1" <%if UploadSetting(12)="1" then%>checked<%end if%>><br /><font color="#3370CC">即允许上传的文件扩展名，用“|”分隔</font></td>
    </tr>
    <tr class="tdbg">
      <td width="130"><strong>允许上传文件类型：</strong></td>
      <td><input name="UploadSetting(13)" type="text" id="UploadSetting(13)" size="35" value="<%=UploadSetting(13)%>">&nbsp;&nbsp;限制：<input name="UploadSetting(14)" type="text" id="UploadSetting(14)" value="<%=UploadSetting(14)%>" size="7" maxlength="6"> K&nbsp;&nbsp;重命名：<input name="UploadSetting(15)" type="checkbox" id="UploadSetting(15)" value="1" <%if UploadSetting(15)="1" then%>checked<%end if%>><br /><font color="#3370CC">即允许上传的文件扩展名，用“|”分隔</font></td>
    </tr>
    <tr class="tdbg">
      <td width="130"><strong>频道LOGO地址：</strong></td>
      <td><input name="Logo" type="text" id="Logo" size="66" value="<%=CLogo%>"><br /><font color="#3370CC">请使用绝对URL，网站安装目录可用“{%webdir%}”代替</font></td>
    </tr>
    <tr class="tdbg">
      <td width="130"><strong>频道Banner地址：</strong></td>
      <td><input name="Banner" type="text" id="Banner" size="66" value="<%=CBanner%>"><br /><font color="#3370CC">请使用绝对URL，网站安装目录可用“{%webdir%}”代替</font></td>
    </tr>
    <tr class="tdbg">
      <td width="130"><strong>栏目导航参数配置：</strong></td>
      <td>显示 栏目 个数：<input name="OtherSetting(0)" type="text" id="OtherSetting(0)" value="<%=OtherSetting(0)%>" size="5" maxlength="2"> 个&nbsp;&nbsp;<font color=#0000ff>注：0表示全部显示</font><br />
		多少个栏目换行：<input name="OtherSetting(1)" type="text" id="OtherSetting(1)" value="<%=OtherSetting(1)%>" size="5" maxlength="2"> 个<br />
		启用栏目无限下拉菜单：<input name="OtherSetting(2)" type="checkbox" id="OtherSetting(2)" value="1" <%if OtherSetting(2)="1" then%>checked<%end if%>>&nbsp;&nbsp;<font color=#3370CC>注：如果栏目个数多，不建议启用</font></td>
    </tr>
    <tr class="tdbg">
      <td width="130"><strong>内容列表每页记录数：</strong></td>
      <td>栏目列表：<input name="OtherSetting(3)" type="text" id="OtherSetting(3)" value="<%=OtherSetting(3)%>" size="5" maxlength="2">&nbsp;&nbsp;<font color=#3370CC>注：栏目列表的每页记录数(ShowClass.Asp)</font><br />
	  专题列表：<input name="OtherSetting(4)" type="text" id="OtherSetting(4)" value="<%=OtherSetting(4)%>" size="5" maxlength="2">&nbsp;&nbsp;<font color=#3370CC>注：专题列表的每页记录数(ShowSpecial.Asp)</font><br />
	  更新列表：<input name="OtherSetting(5)" type="text" id="OtherSetting(5)" value="<%=OtherSetting(5)%>" size="5" maxlength="2">&nbsp;&nbsp;<font color=#3370CC>注：更新列表的每页记录数(ShowUpdate.Asp)</font><br />
	  推荐列表：<input name="OtherSetting(6)" type="text" id="OtherSetting(6)" value="<%=OtherSetting(6)%>" size="5" maxlength="2">&nbsp;&nbsp;<font color=#3370CC>注：推荐列表的每页记录数(ShowElite.Asp)</font><br />
	  热门列表：<input name="OtherSetting(7)" type="text" id="OtherSetting(7)" value="<%=OtherSetting(7)%>" size="5" maxlength="2">&nbsp;&nbsp;<font color=#3370CC>注：热门列表的每页记录数(ShowHot.Asp)</font><br />
	  搜索列表：<input name="OtherSetting(8)" type="text" id="OtherSetting(8)" value="<%=OtherSetting(8)%>" size="5" maxlength="2">&nbsp;&nbsp;<font color=#3370CC>注：搜索列表的每页记录数(ShowSearch.asp)</font><br />
	  其它列表：<input name="OtherSetting(9)" type="text" id="OtherSetting(8)" value="<%=OtherSetting(9)%>" size="5" maxlength="2">&nbsp;&nbsp;<font color=#3370CC>注：其它列表的每页记录数(除以上列表外)</font></td>
    </tr>
    <tr class="tdbg">
      <td width="130"><strong>是否启用本频道Rss：</strong></td>
      <td> 
        <input type="radio" name="IsRss" value="1" <%if IsRss=1 then%>checked<%end if:if Cl.Web_Setting(50) = "No" then%> Disabled<%end if%>>
        打开 &nbsp;&nbsp;&nbsp;&nbsp; <input type="radio" name="IsRss" value="0" <%if IsRss=0 then%>checked<%end if%> >
        关闭
        </td>
    </tr>
    <tr class="tdbg">
      <td width="130"><strong>是否启用本频道Wap：</strong></td>
      <td> 
        <input type="radio" name="IsWap" value="1"  <%if IsWap=1 then%>checked<%end if:if Cl.Web_Setting(51) = "No" then%> Disabled<%end if%>  >
        打开 &nbsp;&nbsp;&nbsp;&nbsp; <input type="radio" name="IsWap" value="0" <%if IsWap=0 then%>checked<%end if%>>
        关闭
        </td>
    </tr>
<!--上传设置 end-->
  </table>
		</td>
    </tr>
<!--==================================================================-->
    <tr class="tdbg"> 
      <td colspan="2" align="center" class="tdbg">
		<input name="Action" type="hidden" id="Action" value="<%=sAction%>">
		<input name="ChannelID" type="hidden" id="ChannelID" value="<%=ChannelID%>"> 
		<%if Action = "Modify" then%>
		<input type="hidden" name="ChannelType" value="<%=ChannelType%>">
		<%end if%>
        <input  type="submit" name="Submit" value=" <%=SubmitValue%> "> &nbsp; <input name="Cancel" type="button" id="Cancel" value=" 取 消 " onClick="window.location.href='Admin_Channel.asp'" style="cursor:hand;"></td>
    </tr>
  </table>
</form>
<script language="JavaScript" type="text/javascript">
function OutputUploadDir(val){
	if (val!=''){
		document.getElementById('UploadSetting(1)').value = val;
	}
}
CheckSel('ModuleID','<%=ModuleID%>');
chkradio(document.form1.CreatePathType,'<%=CreatePathType%>');
chkradio(document.form1.CreateFileType,'<%=CreateFileType%>');
//CheckSel('CreatePathType','<%=CreatePathType%>');
//CheckSel('CreateFileType','<%=CreateFileType%>');
CheckSel('UploadSetting(2)','<%=UploadSetting(2)%>');
CheckSel('UploadSetting(3)','<%=UploadSetting(3)%>');
<%if ChannelType=2 then%>
	document.getElementById('OuterChannel').style.display = '';
	document.getElementById('NoOuterChannel').style.display = 'none';
<%end if%>
function ChkChannelType(stype){
if (stype == 2) {
	document.getElementById('OuterChannel').style.display = '';
	document.getElementById('NoOuterChannel').style.display = 'none';
}else{
	document.getElementById('OuterChannel').style.display = 'none';
	document.getElementById('NoOuterChannel').style.display = '';
}
}
</script>
<%
end sub

sub SaveChannelInfo()
	dim sTemp
	dim ChannelName,ReadMe,OpenType,IsShow,IsDisabled,IsRss,IsWap,ChannelType,LinkUrl
	dim ChannelDir,ChannelItemName,ChannelItemUnit
	dim IsCreateHtml,CreateFileExt,CreatePathType,CreateFileType,IsCreateList,AutoCreateList
	dim StyleID,CssID,sUploadSetting,OtherSetting
	dim CLogo,CBanner
	Redim UploadSetting(15)
	ChannelID		= Cl.ChkClng(request.form("ChannelID"))
	ChannelName		= Trim(request("ChannelName"))
	ReadMe			= Trim(request("ReadMe"))
	OpenType		= Cl.ChkClng(request("OpenType"))
	IsShow			= Cl.ChkClng(request("IsShow"))
	IsDisabled		= Cl.ChkClng(request("IsDisabled"))
	ChannelType		= Cl.ChkClng(request("ChannelType"))
	LinkUrl			= Trim(request("LinkUrl"))
	ModuleID		= Cl.ChkClng(request.form("ModuleID"))
	ChannelDir		= Trim(request("ChannelDir"))
	ChannelItemName	= Trim(request("ChannelItemName"))
	ChannelItemUnit	= Trim(request("ChannelItemUnit"))
	IsCreateHtml	= Cl.ChkClng(request("IsCreateHtml"))
	IsRss		= Cl.ChkClng(request("IsRss"))
	IsWap		= Cl.ChkClng(request("IsWap"))
	CreateFileExt	= Trim(request("CreateFileExt"))
	CreatePathType	= Cl.ChkClng(request("CreatePathType"))
	CreateFileType	= Cl.ChkClng(request("CreateFileType"))
	IsCreateList	= Cl.ChkClng(request("IsCreateList"))
	AutoCreateList	= Cl.ChkClng(request("AutoCreateList"))
	StyleID			= Trim(request("StyleID"))
	CssID			= Trim(request("CssID"))
	CLogo			= Trim(request("Logo"))
	CBanner			= Trim(request("Banner"))
	for i=0 to 15
		UploadSetting(i)=Replace(Trim(Request("UploadSetting("&i&")")),"@","")
	next
	for i=0 to 9
		OtherSetting= OtherSetting & Cl.ChkClng(request("OtherSetting("&i&")")) & ","
	next
	if ChannelType<>0 and ChannelType<>1 then ChannelType=2
	if Cint(IsCreateHtml)<>0 then IsCreateHtml=1
	if ChannelName="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br /><li>频道名称不能为空！</li>"
	end if
	if ChannelType=2 then
		if LinkUrl="" then
			FoundErr=True
			ErrMsg=ErrMsg & "<br /><li>链接地址不能为空！</li>"
		end if
		ModuleID = 0
	else
		if ChannelDir="" and Action<>"SaveModify" then
			FoundErr=True
			ErrMsg=ErrMsg & "<br /><li>频道目录不能为空！</li>"
		end if
		if ChannelItemName="" then
			FoundErr=True
			ErrMsg=ErrMsg & "<br /><li>项目名称不能为空！</li>"
		end if
		if ChannelItemUnit="" then
			FoundErr=True
			ErrMsg=ErrMsg & "<br /><li>项目单位不能为空！</li>"
		end if
		if IsCreateHtml=1 then
			if CreateFileExt="" then
				FoundErr=True
				ErrMsg=ErrMsg & "<br /><li>请输入要生成HTML的扩展名！</li>"
			end if
		end if
	end if
	if FoundErr=True then exit sub
	'if Not IsNumeric(UploadSetting(0)) then UploadSetting(0)=0
	if Not IsNumeric(UploadSetting(2)) then UploadSetting(2)=0
	if Not IsNumeric(UploadSetting(3)) then UploadSetting(3)=0
	if Not IsNumeric(UploadSetting(5)) then UploadSetting(5)=100
	if Not IsNumeric(UploadSetting(6)) then UploadSetting(6)=0
	if Not IsNumeric(UploadSetting(8)) then UploadSetting(8)=500
	if Not IsNumeric(UploadSetting(9)) then UploadSetting(9)=0
	if Not IsNumeric(UploadSetting(11)) then UploadSetting(11)=2048
	if Not IsNumeric(UploadSetting(12)) then UploadSetting(12)=0
	if Not IsNumeric(UploadSetting(14)) then UploadSetting(14)=2048
	if Not IsNumeric(UploadSetting(15)) then UploadSetting(15)=0
	sUploadSetting=UploadSetting(0)
	for i=1 to 15
		sUploadSetting=sUploadSetting & "@" & UploadSetting(i)
	next
	if IsCreateList<>0 and IsCreateList<>1 then IsCreateList=0
	if AutoCreateList<>0 and AutoCreateList<>1 then AutoCreateList=0
	if Not IsNumeric(StyleID) then StyleID=Cl.StyleID
	if Not IsNumeric(CssID) then CssID=Cl.CssID
	Set rs=Server.CreateObject("Adodb.RecordSet")
	if Action="SaveAdd" then
		if ChannelType<>2 then
			Dim ChkRs
			Set ChkRs=Cl.Execute("Select Top 1 ChannelID From Cl_Channel Where ChannelDir='" & ChannelDir & "'")
			if not (ChkRs.bof and ChkRs.EOF) then
				FoundErr=True
				ErrMsg=ErrMsg & "<br /><li>频道目录已经存在！</li>"
				Set ChkRs=Nothing
    			Exit sub
			end if
			Set ChkRs=Nothing
			On Error Resume Next
			Err=0
			OpenConn : Set ChkRs=Conn.Execute("Select Top 1 module_"&ChannelDir&" From Cl_Style")
			if Err=0 then
				FoundErr=True
				ErrMsg=ErrMsg & "<br /><li>频道模版已经存在！</li>"
				Set ChkRs=Nothing
    			Exit sub
			end if
			Err.Clear
			Set ChkRs=Nothing
			On Error GoTo 0
			if Cl.CheckFolder(Cl.WebDir&ChannelDir,False) then
				FoundErr=True
				ErrMsg=ErrMsg & "<br /><li>频道目录已经存在于根目录！</li>"
    			Exit sub
			end if
		end if
		Dim MaxOrderID,MaxChannelID,rsM
		MaxOrderID=Cl.Execute("select max(OrderID) from Cl_Channel")(0)
		MaxChannelID=Cl.Execute("select max(ChannelID) from Cl_Channel")(0)
		if Not IsNumeric(MaxOrderID) then MaxOrderID=0
		if Not IsNumeric(MaxChannelID) then MaxChannelID=0
		if MaxChannelID<100 then MaxChannelID=100
		OpenConn : rs.open "Select Top 1 * From Cl_Channel Where ChannelName='" & ChannelName & "'",Conn,1,3
		if not (rs.bof and rs.EOF) then
			FoundErr=True
			ErrMsg=ErrMsg & "<br /><li>频道名称已经存在！</li>"
			rs.close:set rs=Nothing
    		exit sub
		end if
		Set rsM = Cl.Execute("Select CusTom,CountConfig From Cl_Channel Where ChannelID="&ModuleID&"")
		rs.addnew
		rs("ChannelID")		= MaxChannelID+1
		rs("OrderID")		= MaxOrderID+1
		rs("ChannelType")	= ChannelType
		rs("ModuleID")		= ModuleID
		rs("ChannelDir")	= ChannelDir
		if Not rsM.Eof then
		rs("CusTom")		= rsM(0)
		rs("CountConfig")	= rsM(1)
		End if
		rsM.Close : Set rsM=Nothing
	elseif Action="SaveModify" then
		if Not IsNumeric(ChannelID) then
			FoundErr=True
			ErrMsg=ErrMsg & "<br /><li>请正确指定频道ID！</li>"
			set rs=Nothing
    		exit sub
		end if
		OpenConn : rs.open "Select * From Cl_Channel Where ChannelID=" & Clng(ChannelID),Conn,1,3
		if rs.bof and rs.EOF then
			FoundErr=True
			ErrMsg=ErrMsg & "<br /><li>找不到指定的频道！</li>"
			rs.close:set rs=Nothing
			exit sub
		end if
		ModuleID=rs("ModuleID")
	else
		FoundErr=True
		ErrMsg=ErrMsg & "<br /><li>参数错误！</li>"
		rs.close:set rs=Nothing
    	exit sub
	end if
	rs("ChannelName")		= ChannelName
	rs("ReadMe")			= Replace(ReadMe&"",Vbcrlf,"")
	rs("OpenType")			= OpenType
	rs("IsShow")			= IsShow
	rs("IsDisabled")		= IsDisabled
	rs("LinkUrl")			= LinkUrl
	rs("ChannelItemName")	= ChannelItemName
	rs("ChannelItemUnit")	= ChannelItemUnit
	if Cl.Web_Info(15) <> "1" then
		rs("IsCreateHtml")	= 0
		rs("CreatePathType")= 0
		rs("CreateFileType")= 0
		rs("CreateFileExt")	= "html"
	else
		rs("IsCreateHtml")	= IsCreateHtml
		rs("CreatePathType")= CreatePathType
		rs("CreateFileType")= CreateFileType
		rs("CreateFileExt")	= CreateFileExt
	end if
	rs("IsCreateList")		= IsCreateList
	rs("AutoCreateList")	= AutoCreateList
	rs("StyleID")			= Clng(StyleID)
	rs("CssID")				= Clng(CssID)
	rs("Logo")				= CLogo
	rs("Banner")			= CBanner
	rs("UploadSetting")		= sUploadSetting
	rs("OtherSetting")		= OtherSetting
	rs("IsRss")			= IsRss
	rs("IsWap")			= IsWap
	rs.update
	rs.Close:set rs=Nothing
	Cl.DelCahe("Channel")
	if Cl.Web_Info(15) = "1" then RefreshChannelJs
	Cl.SaveAdminLog
	if ChannelType=0 or ChannelType=1 then
		Dim sModuleName
		'if Cl.Web_Info(15) = "1" and IsCreateList=1 then
		'	if ChannelID=0 then
		'		Response.write "<iframe width='100%' height='100' frameborder='0' src='Admin_Create_Index.asp' name='MakeIndex'></iframe>"
		'	else
		'		Select Case ModuleID
		'		Case 1
		'		Response.write "<iframe width='100%' height='220' frameborder='0' src='Admin_Create_Article.asp?ChannelID="&ChannelID&"&Action=CreateIndex' name='MakeInfo'></iframe>"
		'		case 2
		'		Response.write "<iframe width='100%' height='220' frameborder='0' src='Admin_Create_Soft.asp?ChannelID="&ChannelID&"&Action=CreateIndex' name='MakeInfo'></iframe>"
		'		case 3
		'		Response.write "<iframe width='100%' height='220' frameborder='0' src='Admin_Create_Photo.asp?ChannelID="&ChannelID&"&Action=CreateIndex' name='MakeInfo'></iframe>"
		'		case 4
		'		Response.write "<iframe width='100%' height='220' frameborder='0' src='Admin_Create_Movie.asp?ChannelID="&ChannelID&"&Action=CreateIndex' name='MakeInfo'></iframe>"
		'		case 5
		'		Response.write "<iframe width='100%' height='220' frameborder='0' src='Admin_Create_Product.asp?ChannelID="&ChannelID&"&Action=CreateIndex' name='MakeInfo'></iframe>"
		'		end Select
		'	end if
		'end if
		if Action="SaveAdd" then
			Select Case ModuleID
			Case 1 : sModuleName = "Article"
			case 2 : sModuleName = "Soft"
			case 3 : sModuleName = "Photo"
			case 4 : sModuleName = "Movie"
			case 5 : sModuleName = "Product"
			case else : sModuleName="Article"
			end Select
			Cl.Execute("alter table Cl_Stylehelp add module_"&ChannelDir&" Ntext Null default'|||@@@|||@@@|||@@@|||'")
			Cl.Execute("Update Cl_Stylehelp Set module_"&ChannelDir&"=module_"&sModuleName&"")
			Cl.Execute("alter table Cl_Style add module_"&ChannelDir&" Ntext Null default'|||@@@|||@@@|||@@@|||'")
			Cl.Execute("Update Cl_Style Set module_"&ChannelDir&"=module_"&sModuleName&"")
			CreateChannelFiles ModuleID,MaxChannelID+1,ChannelDir
		end if
		Cl.DelCahe("Channel_Setting" & ChannelID)
		Response.Write "<script language='JavaScript' type='text/JavaScript'>" &vbcrlf
		Response.Write "parent.left.location.reload();window.location.href='Admin_Channel.asp';" &vbcrlf
		Response.Write "</script>"
	else
		Response.Redirect "Admin_Channel.asp" 
	end if
end sub

sub DelChannel()
	dim IsLoadLeft,ModuleID,ChannelDir
	if ChannelID=0 then Admin_ShowErr("<br /><li>请指定要删除的频道ID</li>")
	sql="Select * From Cl_Channel Where ChannelID=" & ChannelID
	Set rs=Server.CreateObject("Adodb.RecordSet")
	OpenConn : rs.open sql,Conn,1,3
	if rs.bof and rs.EOF then
		FoundErr=True
		ErrMsg=ErrMsg & "<br /><li>找不到指定的频道！</li>"
	end if
	if rs("ChannelType")=0 then
		FoundErr=True
		ErrMsg=ErrMsg & "<br /><li>系统频道，不允许删除！</li>"
		rs.Close:set rs=Nothing
		Exit Sub
	elseif rs("ChannelType")=1 then
		IsLoadLeft=True
		ModuleID=rs("ModuleID")
		ChannelDir=rs("ChannelDir")
	else
		IsLoadLeft=False
	end if
	rs.delete
	rs.update
	rs.Close:set rs=Nothing
	Cl.DelCahe("Channel")
	if Cl.Web_Info(15) = "1" then RefreshChannelJs
	Cl.SaveAdminLog
	if IsLoadLeft=True then
		Dim sModuleName
		Select Case ModuleID
		Case 1 : sModuleName = "Article"
		case 2 : sModuleName = "Soft"
		case 3 : sModuleName = "Photo"
		case 4 : sModuleName = "Movie"
		case 5 : sModuleName = "Product"
		case else : Admin_ShowErr("请正确选择参数。")
		end Select
		Cl.Execute("Alter Table [Cl_Style] Drop [module_"&ChannelDir&"]")
		Cl.Execute("Alter Table [Cl_Stylehelp] Drop [module_"&ChannelDir&"]")
		Dim Fso,sDirPath
		On Error Resume Next
		Set Fso=Server.CreateObject(Trim(Cl.Web_Info(13)))
		If Err=0 then
			sDirPath = Server.MapPath(Cl.WebDir & ChannelDir & "/")
			If Fso.FolderExists(sDirPath) then Fso.DeleteFolder sDirPath,true
		End if
		Set Fso=Nothing
		rem 删除栏目
		Cl.Execute("Delete From Cl_Class Where ChannelID="&ChannelID&"")
		rem 删除内容
		Cl.Execute("Delete From Cl_"&sModuleName&" Where ChannelID="&ChannelID&"")
		rem 删除评论
		Cl.Execute("Delete From Cl_Comment Where ChannelID="&ChannelID&"")
		rem 删除JS
		Cl.Execute("Delete From Cl_Js Where ChannelID="&ChannelID&"")
		Response.Write "<script language='JavaScript' type='text/JavaScript'>" &vbcrlf
		Response.Write "parent.left.location.reload();window.location.href='Admin_Channel.asp';" &vbcrlf
		Response.Write "</script>"
	else
		Response.Redirect "Admin_Channel.asp" 
	end if
End Sub

sub OrderID()
	Set rs=Server.CreateObject("Adodb.RecordSet")
	sql="select ChannelID,ChannelName,ChannelItemName,ChannelItemUnit,ChannelDir,LinkUrl,OrderID,ChannelType,OpenType,IsShow,IsCreateHtml,ModuleID from Cl_Channel order by OrderID"
	OpenConn : rs.Open sql,Conn,1,1
	iCount=rs.recordcount
	j=1
%>
<br />
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
  <tr class="title">
    <td width="50" align="center"><strong>频道ID</strong></td>
    <td height="22" align="center" width="80"><strong>频道名称</strong></td>
    <td align="center"><strong>目录/链接</strong></td>
    <td width="50" align="center"><strong>排序ID</strong></td>
    <td width="240" colspan="2" align="center"><strong>排序操作</strong></td>
  </tr>
  <%do while not rs.EOF %>
  <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
    <td width="50" align="center"><%=rs("ChannelID")%></td>
    <td align="center" width="80"><%=rs("ChannelName")%></td>
    <td><%
		if rs("ChannelType")=2 then
			response.write Cl.ReplaceDir(rs("LinkUrl"))
		else
			response.write rs("ChannelDir")
		end if
	%></td>
    <td width="50" align="center"><%=rs("OrderID")%></td>
    <form action='Admin_Channel.asp?Action=UpOrder' method='post'>
      <td width='120' align="center"> <% 
	if j>1 then 
		response.write "<select name=MoveNum size=1><option value=0>向上移动</option>" 
		for i=1 to j-1 
			response.write "<option value="&i&">"&i&"</option>" 
		next 
		response.write "</select>" 
		response.write "<input type=hidden name=ChannelID value="&rs("ChannelID")&">"
		response.write "<input type=hidden name=cOrderID value="&rs("OrderID")&">&nbsp;<input type=submit name=Submit value=修改>" 
	else 
		response.write "&nbsp;" 
	end if 
%> </td>
    </form>
    <form action='Admin_Channel.asp?Action=DownOrder' method='post'>
      <td width='120' align="center"> <%
	if iCount>j then 
		response.write "<select name=MoveNum size=1><option value=0>向下移动</option>" 
		for i=1 to iCount-j 
			response.write "<option value="&i&">"&i&"</option>" 
		next 
		response.write "</select>" 
		response.write "<input type=hidden name=ChannelID value="&rs("ChannelID")&">"
		response.write "<input type=hidden name=cOrderID value="&rs("OrderID")&">&nbsp;<input type=submit name=Submit value=修改>" 
	else 
		response.write "&nbsp;" 
	end if 
%> </td>
    </form>
  </tr>
  <%
     	j=j+1	
		rs.MoveNext
   	loop
  %>
</table>  
<%
	rs.Close:set rs=Nothing
end sub

sub SelectStyle()
	Dim rs_s,strTempCss,strCssName
	Set rs=Server.CreateObject("Adodb.RecordSet")
	sql="select ChannelID,ChannelName,ChannelItemName,ChannelItemUnit,ChannelDir,LinkUrl,OrderID,ChannelType,OpenType,IsShow,IsCreateHtml,StyleID,CssID,ModuleID from Cl_Channel order by OrderID"
	OpenConn : rs.Open sql,Conn,1,1
	iCount=rs.recordcount
%>
<br />
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
  <tr class="title">
    <td width="50" align="center"><strong>频道ID</strong></td>
    <td height="22" align="center" width="80"><strong>频道名称</strong></td>
    <td width="60" align="center"><strong>是否显示</strong></td>
    <td width="60" align="center"><strong>属性</strong></td>
    <td align="center"><strong>模板/CSS选择</strong></td>
    <td width="60" height="22" align="center"><strong>常规操作</strong></td>
  </tr>
  <%do while not rs.EOF %>
  <tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
    <td width="50" align="center"><%=rs("ChannelID")%></td>
    <td align="center" width="80"><%=rs("ChannelName")%></td>
    <td width="60" align="center"><%
	if rs("IsShow")=0 then
		response.write "<font color=#ff6600>不显示</font>"
	else
		response.write "显示"
	end if
	%></td>
      <td width="60" align="center">
	<%
	Select Case rs("ChannelType")
	Case 0 
		response.write "<font color=#ff0033>系统</font>"
		if rs("IsCreateHtml")=1 then response.write "/<font color=blue>Html</font>"
	Case 1
		response.write "<font color=#006600>内部</font>"
		if rs("IsCreateHtml")=1 then response.write "/<font color=blue>Html</font>"
	Case else
		response.write "外部"
	end Select
	%>
		</td>
    <form action="Admin_Channel.asp?Action=UpdateStyle" method="post" name="UpdateStyle">
      <td align="center">
	  	模板：<select name="styleid<%=rs("ChannelID")%>">
		<%
		set rs_s = Cl.Execute("select ID,StyleName from Cl_Style Order by ID")
		if rs_s.eof and rs_s.bof then
			response.write "<option value=0>请先添加模板！</option>"
		else
			do while not rs_s.eof
				response.write "<option value="""&rs_s(0)&""""
				If rs("StyleID")=rs_s(0) Then response.write " selected"
				response.write ">"&rs_s(1)&"</option>"
				rs_s.MoveNext
			Loop
		End If
		Set rs_s=Nothing
		%>
		</select>&nbsp;&nbsp;CSS风格：<select name="cssid<%=rs("ChannelID")%>">
		<%
		strTempCss=Split(Cl.CacheData(15,0),"@@@")(0)
		strCssName=Split(strTempCss,"|||")
		for i=0 to ubound(strCssName)-1
			response.write "<option value="""&i&""""
			If rs("CssID")=i Then response.write " selected"
			response.write ">"&strCssName(i)&"</option>"
		next%>
		</select>
		<input type="hidden" name="ChannelID" value="<%=rs("ChannelID")%>">&nbsp;<input type="submit" name="Submit<%=rs("ChannelID")%>" value=修改 <%if rs("ChannelType")>1 then%> Disabled<%end if%>>
	  </td>
    </form>
		<td width="60" align="center"><%
		response.write "<a href='Admin_Channel.asp?Action=Modify&ChannelID=" & rs("ChannelID") & "'>修改</a>&nbsp;"
		if rs("ChannelID")>8 then
			response.write "<a href='Admin_Channel.asp?Action=Del&ChannelID=" & rs("ChannelID") & "' onClick=""return confirm('确定要删除此频道吗？');"">删除</a>"
		else
			response.write "<a href='Admin_Channel.asp?Action=UpdateCss&ChannelID=" & rs("ChannelID") & "'>更新</a>"
		end if
		%></td>
  </tr>
  <%
		rs.MoveNext
   	loop
  %>
  <form action="Admin_Channel.asp?Action=UpdateStyleAll" method="post">
  <tr class="tdbg"><td colspan=6>
  全部频道使用以下模板，
	  	模板：<select name="styleid">
		<%
		set rs_s = Cl.Execute("select ID,StyleName from Cl_Style Order by ID")
		if rs_s.eof and rs_s.bof then
			response.write "<option value=0>请先添加模板！</option>"
		else
			do while not rs_s.eof
				response.write "<option value="""&rs_s(0)&""""
				If rs_s(0)=Cl.StyleID Then response.write " selected"
				response.write ">"&rs_s(1)&"</option>"
				rs_s.MoveNext
			Loop
		End If
		Set rs_s=Nothing
		%>
		</select>&nbsp;&nbsp;CSS风格：<select name="cssid">
		<%
		strTempCss=Split(Cl.CacheData(15,0),"@@@")(0)
		strCssName=Split(strTempCss,"|||")
		for i=0 to ubound(strCssName)-1
			response.write "<option value="""&i&""""
			If i=Cl.CssID Then response.write " selected"
			response.write ">"&strCssName(i)&"</option>"
		next%>
		</select>&nbsp;<input type="submit" name="Submit" value="全部应用">
    </td></tr>
</form>
</table>
<%
	rs.Close:set rs=Nothing
end sub

sub UpOrder()
	dim sqlOrder,rsOrder,MoveNum,cOrderID,tOrderID
	cOrderID=Trim(request("cOrderID"))
	MoveNum=Trim(request("MoveNum"))
	if ChannelID=0 then Admin_ShowErr("<br /><li>参数不足！</li>")
	if cOrderID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br /><li>错误参数！</li>"
	else
		cOrderID=Cint(cOrderID)
	end if
	if MoveNum="" then
		FoundErr=true
		ErrMsg=ErrMsg & "<br /><li>错误参数！</li>"
	else
		MoveNum=Cint(MoveNum)
		if MoveNum=0 then
			FoundErr=True
			ErrMsg=ErrMsg & "<br /><li>请选择要提升的数字！</li>"
		end if
	end if
	if FoundErr=True then exit sub
	dim mrs,MaxOrderID
	set mrs=Cl.Execute("select max(OrderID) From Cl_Channel")
	MaxOrderID=mrs(0)+1
	Cl.Execute("Update Cl_Channel set OrderID=" & MaxOrderID & " where ChannelID=" & ChannelID)  '先将当前栏目移至最后，包括子栏目
	'然后将位于当前栏目以上的栏目的OrderID依次加一，范围为要提升的数字
	sqlOrder="select * From Cl_Channel where OrderID<" & cOrderID & " order by OrderID desc"
	set rsOrder=server.CreateObject("adodb.recordset")
	OpenConn : rsOrder.open sqlOrder,Conn,1,3
	if rsOrder.bof and rsOrder.eof then
		exit sub '如果当前栏目已经在最上面，则无需移动
	end if
	i=1
	do while not rsOrder.eof
		tOrderID=rsOrder("OrderID")       '得到要提升位置的OrderID，包括子栏目
		Cl.Execute("Update Cl_Channel set OrderID=OrderID+1 where OrderID=" & tOrderID)
		i=i+1
		if i>MoveNum then
			exit do
		end if
		rsOrder.movenext
	loop
	rsOrder.close
	set rsOrder=Nothing
	Cl.Execute("Update Cl_Channel set OrderID=" & tOrderID & " where ChannelID=" & ChannelID)	'然后再将当前栏目从最后移到相应位置，包括子栏目
	Cl.DelCahe("Channel")
	RefreshChannelJs
	Cl.SaveAdminLog
	response.redirect "Admin_Channel.asp?Action=OrderID"
end sub

sub DownOrder()
	dim sqlOrder,rsOrder,MoveNum,cOrderID,tOrderID,PrevID,NextID
	cOrderID=Trim(request("cOrderID"))
	MoveNum=Trim(request("MoveNum"))
	if ChannelID=0 then Admin_ShowErr("<br /><li>参数不足！</li>")
	if cOrderID="" then
		FoundErr=true
		ErrMsg=ErrMsg & "<br /><li>错误参数！</li>"
	else
		cOrderID=Cint(cOrderID)
	end if
	if MoveNum="" then
		FoundErr=true
		ErrMsg=ErrMsg & "<br /><li>错误参数！</li>"
	else
		MoveNum=Cint(MoveNum)
		if MoveNum=0 then
			FoundErr=True
			ErrMsg=ErrMsg & "<br /><li>请选择要提升的数字！</li>"
		end if
	end if
	if FoundErr=True then exit sub
	dim mrs,MaxOrderID
	set mrs=Cl.Execute("select max(OrderID) From Cl_Channel")
	MaxOrderID=mrs(0)+1
	'先将当前栏目移至最后，包括子栏目
	Cl.Execute("Update Cl_Channel set OrderID=" & MaxOrderID & " where ChannelID=" & ChannelID)
	'然后将位于当前栏目以下的栏目的OrderID依次减一，范围为要下降的数字
	sqlOrder="select * From Cl_Channel where OrderID>" & cOrderID & " order by OrderID"
	set rsOrder=server.CreateObject("adodb.recordset")
	OpenConn : rsOrder.open sqlOrder,Conn,1,3
	if rsOrder.bof and rsOrder.eof then
		exit sub        '如果当前栏目已经在最下面，则无需移动
	end if
	i=1
	do while not rsOrder.eof
		tOrderID=rsOrder("OrderID")       '得到要提升位置的OrderID，包括子栏目
		Cl.Execute("Update Cl_Channel set OrderID=OrderID-1 where OrderID=" & tOrderID)
		i=i+1
		if i>MoveNum then
			exit do
		end if
		rsOrder.movenext
	loop
	rsOrder.close
	set rsOrder=Nothing
	'然后再将当前栏目从最后移到相应位置，包括子栏目
	Cl.Execute("Update Cl_Channel set OrderID=" & tOrderID & " where ChannelID=" & ChannelID)
	Cl.DelCahe("Channel")
	RefreshChannelJs
	Cl.SaveAdminLog
	response.redirect "Admin_Channel.asp?Action=OrderID"
end sub

sub UpdateStyle()
	dim strStyleID,strCssID
	strStyleID=Trim(request("styleid"&ChannelID))
	strCssID=Trim(request("cssid"&ChannelID))
	if strStyleID="" or strCssID="" then
		Call Cl.OutMsg("请选择模板和CSS风格！","Admin_Channel.asp?Action=SelectStyle")
	else
		strStyleID=Clng(strStyleID)
		strCssID=Clng(strCssID)
	end if
	Cl.Execute("Update Cl_Channel set StyleID=" & strStyleID & ",CssID=" & strCssID & " where ChannelID=" & ChannelID)
	Cl.DelCahe("Channel")
	Cl.DelCahe("Channel_Setting"&ChannelID)
	Cl.SaveAdminLog
	Call Cl.OutMsg("模板及CSS风格设置成功！","Admin_Channel.asp?Action=SelectStyle")
end sub
sub UpdateStyleAll()
	dim strStyleID,strCssID
	strStyleID=Trim(request("styleid"))
	strCssID=Trim(request("cssid"))
	if strStyleID="" or strCssID="" then
		Call Cl.OutMsg("请选择模板和CSS风格！","Admin_Channel.asp?Action=SelectStyle")
	else
		strStyleID=Clng(strStyleID)
		strCssID=Clng(strCssID)
	end if
	Cl.Execute("Update Cl_Channel set StyleID=" & strStyleID & ",CssID=" & strCssID & "")
	Cl.DelCahe("Channel")
	Set rs=Cl.Execute("Select ChannelID From Cl_Channel Where ChannelType<2 Order By ChannelID Desc")
	Do while Not rs.Eof
	Cl.DelCahe("Channel_Setting"&rs(0))
	rs.movenext
	Loop
	rs.close : Set rs=nothing
	Cl.SaveAdminLog
	Call Cl.OutMsg("模板及CSS风格设置成功！","Admin_Channel.asp?Action=SelectStyle")
end sub

Sub RefreshChannelJs()
	Dim strChannelJs
	Set Rs=Cl.Execute("select ChannelID,ChannelType from Cl_Channel where ChannelType=0 or ChannelType=1 order by OrderID")
	Do while not rs.Eof
		Cl.GetChannelSetting(Rs(0))
		Cl.LoadTempLates("")
		strChannelJs="document.write ('"&Replace(Cl.ShowChannel(Rs(0)),"'","")&"');"
		Cl.MakeHtml strChannelJs,Cl.WebDir&"Js/ChannelMenu/ChannelMenu_"&Rs(0)&".Js"
		Rs.MoveNext
	Loop
	Rs.Close : Set Rs=Nothing
End Sub

Sub CreateChannelFiles(Byval sMID,Byval sID,Byval sName)
	Dim Fso,Make,sCreateDir
	Dim Crs,TempData,sTempData,sFileName,sFileData,n
	Set Crs=Cl.Execute("Select Data From Cl_CreateFiles Where ID="&Clng(sMID)&"")
	if Crs.eof then Set Crs=Nothing : Exit Sub
	TempData=Crs(0)
	Set Crs=Nothing
	TempData=Split(TempData,"@#@#@")
	sCreateDir=Cl.WebDir & sName & "/"
	On Error Resume Next
	Set Fso = CreateObject(Trim(Cl.Web_Info(13)))
	Fso.CreateFolder Server.MapPath(sCreateDir)
	Fso.CreateFolder Server.MapPath(sCreateDir & "Js/")
	for n=0 to Ubound(TempData)
		sTempData=Split(TempData(n),"$%$%$")
		sFileName=sCreateDir & sTempData(0)
		sFileData=Replace(sTempData(1),"{%modulename%}",sName)
		sFileData=Replace(sFileData,"{%channelid%}",sID)
		Set Make = Fso.CreateTextFile(Server.MapPath(sFileName), True)
		Make.Write sFileData
		Set Make = Nothing
	Next
	Set Fso = Nothing
	Err=0
end Sub

Sub IsShow()
	Cl.Execute("Update Cl_Channel Set IsShow=1 where ChannelID="&ChannelID&"")
	Cl.DelCahe("Channel") : Cl.SaveAdminLog : RefreshChannelJs : Main
End Sub
Sub CIsShow()
	Cl.Execute("Update Cl_Channel Set IsShow=0 where ChannelID="&ChannelID&"")
	Cl.DelCahe("Channel") : Cl.SaveAdminLog : RefreshChannelJs : Main
End Sub
Sub IsDisabled()
	Cl.Execute("Update Cl_Channel Set IsDisabled=1 where ChannelID="&ChannelID&"")
	Cl.DelCahe("Channel") : Cl.SaveAdminLog : RefreshChannelJs : Main
End Sub
Sub CIsDisabled()
	Cl.Execute("Update Cl_Channel Set IsDisabled=0 where ChannelID="&ChannelID&"")
	Cl.DelCahe("Channel") : Cl.SaveAdminLog : RefreshChannelJs : Main
End Sub
Sub OWindow()
	Cl.Execute("Update Cl_Channel Set OpenType=0 where ChannelID="&ChannelID&"")
	Cl.DelCahe("Channel") : Cl.SaveAdminLog : RefreshChannelJs : Main
End Sub
Sub NWindow()
	Cl.Execute("Update Cl_Channel Set OpenType=1 where ChannelID="&ChannelID&"")
	Cl.DelCahe("Channel") : Cl.SaveAdminLog : RefreshChannelJs : Main
End Sub

Sub UpdateChannel()
	if ChannelID<1 then Exit Sub
	Call RefreshJs(ChannelID)
	Call RefreshCountJs()
	Call CreateClassJs(ChannelID)
	Cl.GetChannelSetting(ChannelID)
	Call CreateChannelFiles(Cl.Channel_Setting(20),ChannelID,Cl.Channel_Setting(4))
	Call Cl.OutMsg("恭喜您，更新ID为“"&ChannelID&"”的数据库成功！","Admin_Channel.Asp")
End Sub
%>
<%
'<!--
'┌───────────────────────────────────────────────────────┐
'│														 │
'│		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.	 │
'└───────────────────────────────────────────────────────┘
'-->
%>
