<!-- #Include File="Include/AMH_Onlogin.asp" -->
<%
'=======================================================
' 欢迎使用《阿赛大型门户网站系统V2.0》，简称“AsaiMHV2”
' 技术支持、商业版咨询、官方唯一指定联系QQ“4941172”
' 官方网站：http://77ya.com      程序负责人：阿赛
'=======================================================

Admins = True
Index_Url="AsaiMHChannel"
Data_Name="AsaiMHChannel"
tit_fir="频道"
tit="管理频道"
Call AMH_Header(1)
%>
<tr><td align=center colspan=2 height=30>
  <table border=0>
  <tr>
  <td><a href='?'><%Response.Write tit%></a></td>
  <td width=10></td>
  <td><a href='?Action=Add'>添加新的<%Response.Write tit_fir%></a></td>
  <td width=10></td>
  <td><a href='?Action=Count'>统计<%Response.Write tit_fir%>数据</a></td>
  <td width=10></td>
  <td><a href='amh_menu.asp'>后台管理菜单</a></td>
  <td width=10></td>
  <td><a href='?Action=Order' onclick="javascript:return click_return('重新对网站频道菜单进行排序',0);">网站频道重新排序</a></td>
  <td width=10></td>
  </tr>
  </table>
</td></tr>
</table>
<%
Call AMH_Table(1)

Select Case LCase(Action)
Case "order"
	AsaiMHReload_Order()
Case "menu_up","menu_Down"
	AsaiMHChannel_Order()
Case "add"
	AsaiMHChannel_Add()
Case "count"
	AsaiMHChannel_Count()
Case "edit"
	AsaiMHChannel_Edit()
Case "delete"
	AsaiMHChannel_Delete()
Case "updateclass"
    AsaiMHClass_Update()
Case Else
	AsaiMHChannel_Main()
End Select
Call AMH_Ender(tit)

'//* 频道数据统计 *//
Sub AsaiMHChannel_Count()
	Dim iRs, iSQL, iSQLAdd
	Dim iChannelTable, iCount, iHits
	iSQL = "Select ChannelIDs,ChannelDataName,ModuleType From ["&Data_Name&"] Where ChannelHidden=0 And ChannelType<>2 Order By ChannelOrder,ChannelIDs"
	Set iRs = Cls.Exec(iSQL,1)
	Do While Not iRs.Eof
		iChannelIDs = iRs(0)
		iChannelTable = iRs(1)
		If iRs(2) = 1 Or iRs(2) = 2 Or iRs(2) = 3 Then
			iSQLAdd = " And ChannelIDs="&iChannelIDs
		Else
			iSQLAdd = ""
		End If
		If iRs(2)= 4 Then 
		  SQL="Select Count(*) from AsaiMHBbsTopic"
		ElseIf iRs(2) = 10 then
		  SQL="Select count(*) from AsaiMHBlog"
		Else
		  SQL="Select Count(*) From ["&iChannelTable&"] Where Hidden=1"&iSQLAdd
		End If
		Set Rs=Cls.Exec(SQL,1)
		iCount=Rs(0)
		Rs.Close
		If Not Cls.Is_Int(iCount) Then iCount=0
		If iRs(2)= 4 Then 
		  SQL="Select Count(*) from AsaiMHBbsData"
		ElseIf iRs(2) = 10 then
		  SQL="Select Sum(ID) from AsaiMHBlog"
		Else
		  SQL="Select Sum(Counter) From ["&iChannelTable&"] Where Hidden=1"&iSQLAdd
		End If
		Set Rs=Cls.Exec(SQL,1)
		iHits=Rs(0)
		Rs.Close
		If Not Cls.Is_Int(iHits) Then iHits=0
		Call Cls.Exec("Update ["&Data_Name&"] Set ChannelCount="&iCount&",ChannelHits="&iHits&" Where ChannelIDs="&iChannelIDs,0)
		iRs.MoveNext
	Loop
	iRs.Close:Set iRs=Nothing
	Call ReloadMenu(1)
	Call AMH_Msg("成功更新频道数据！","?",1)
End Sub

Sub AsaiMHClass_Update()
  If iChannelIDs<0 then   Call AMH_Msg("错误的ID，请返回！","?ChannelIDs="&iChannelIDs,1)
  Dim CF,ClassJs
  Set Cf=New Cls_FileSystem
  ClassJs = Cls.GetClassMenu(iChannelIDs)
  Cf.Create_File Cls.Web_Dir&Cls.ChannelDir&"/Menu.js",ClassJs
  Call AMH_Msg("成功更新ID为("&iChannelIDs&")的网站分类菜单！","?ChannelIDs="&iChannelIDs,1)
End Sub

'//* 频道排序 *//
Sub AsaiMHChannel_Order()
	Dim nid,m_id,mid1,mid2,mo1,mo2
	m_id=iChannelIDs
	if int(m_id)<1 then exit sub
	sql_add=""
	If Action="menu_up" Then sql_add=" desc"
	SQL = "Select ChannelIDs,ChannelOrder From ["&Data_Name&"] Order By ChannelOrder"&sql_add&",ChannelIDs"
	Set Rs = Cls.Exec(SQL,1)
	Do While Not Rs.Eof
		nid=Int(Rs(0))
		If Int(m_id)=Int(nid) Then
			mid1=nid
			mo2=Rs(1)
			Rs.MoveNext
			If Rs.Eof Then Exit Do
			mid2=Rs(0)
			mo1=Rs(1)
			Call Cls.Exec("Update ["&Data_Name&"] Set ChannelOrder="&mo1&" Where ChannelIDs="&mid1,0)
			Call Cls.Exec("Update ["&Data_Name&"] Set ChannelOrder="&mo2&" Where ChannelIDs="&mid2,0)
			Exit Do
		End If
		Rs.MoveNext
	Loop
	Rs.Close
	Call ReloadMenu(1)
	Call AsaiMHChannel_Main()
End Sub

'//* 频道重新排序 *//
Sub AsaiMHReload_Order()
	i=1
	SQL = "Select ChannelIDs From ["&Data_Name&"] Order By ChannelOrder,ChannelIDs"
	Set Rs = Cls.Exec(SQL,1)
	Do While Not Rs.Eof
		Call Cls.Exec("Update ["&Data_Name&"] Set ChannelOrder="&i&" Where ChannelIDs="&Rs("ChannelIDs"),0)
		i=i+1
		Rs.MoveNext
	Loop
	Rs.Close
	Call ReloadMenu(1)
	Call AMH_Msg("成功对网站频道进行了排序！","?",1)
End Sub

'//* 删除频道 *//
Sub AsaiMHChannel_Delete()
	Dim ChannelName, ChannelOrder, ModuleType, DelFile, dChannelDir, ChannelType
	DelFile = Cls.Code_Query("DelFile")
	Set Rs = Cls.Exec("Select Top 1 ChannelName,ChannelDir,ChannelOrder,ModuleType,ChannelType From ["&Data_Name&"] Where ChannelIDs="&iChannelIDs,1)
	If Rs.Eof Then
		Rs.Close
		Call AMH_Msg(tit_fir&"ID（"&iChannelIDs&"）不存在！","?",1)
		Exit Sub
	End If
	ChannelName = Rs("ChannelName")
	ChannelOrder = Rs("ChannelOrder")
	dChannelDir = Rs("ChannelDir")
	ModuleType = Rs("ModuleType")
	ChannelType = Rs("ChannelType")
	Rs.Close
	Call Cls.Exec("Delete From ["&Data_Name&"] Where ChannelIDs="&iChannelIDs,0)
	Call Cls.Exec("Update ["&Data_Name&"] Set ChannelOrder=ChannelOrder-1 Where ChannelOrder>"&ChannelOrder,0)
	'删除相关数据
	If ChannelType = 1 Then
	Select Case ModuleType
	Case 1
	Call Cls.Exec("Delete From [AsaiMHArticle] Where ChannelIDs="&iChannelIDs,0)
	Case 2
	Call Cls.Exec("Delete From [AsaiMHDown] Where ChannelIDs="&iChannelIDs,0)
	Case 5
	Call Cls.Exec("Delete From [AsaiMHPhoto] Where ChannelIDs="&iChannelIDs,0)
	Case 8
	Call Cls.Exec("Delete From [AsaiMHNews] Where ChannelIDs="&iChannelIDs,0)
	Case 9
	Call Cls.Exec("Delete From [AsaiMHOk] Where ChannelIDs="&iChannelIDs,0)
	End Select
	Call Cls.Exec("Delete From [AsaiMHTemplate] Where t_cid="&iChannelIDs,0)
	Call Cls.Exec("Delete From [AsaiMHClass] Where ChannelIDs="&iChannelIDs,0)
	Call Cls.Exec("Delete From [AsaiMHReview] Where ChannelIDs="&iChannelIDs,0)
	Call Cls.Exec("Delete From [AsaiMHSpecial] Where ChannelIDs="&iChannelIDs,0)
	Call Cls.Exec("Delete From [AsaiMHKeyWord] Where ChannelIDs="&iChannelIDs,0)
	Call Cls.Exec("Delete From [AsaiMHErr] Where ChannelIDs="&iChannelIDs,0)
	Call Cls.Exec("Delete From [AsaiMHCast] Where ChannelIDs="&iChannelIDs,0)
	If DelFile = "1" Then
	   Dim Cfso
	   Set Cfso = New Cls_FileSystem
	       Cfso.Del_Folder Cls.Web_Dir & dChannelDir		   
	   Set Cfso = nothing
	End If
    Call AMH_Event("删除"&tit_fir&"（"&ChannelName&"）频道。")
    Call ReloadMenu(1)
    If DelFile = "1" Then 
	   Call AMH_Msg("成功删除"&tit_fir&"（"&ChannelName&"）所有数据库数据及相关文件！","?",1)
	   Else
	   Call AMH_Msg("成功删除"&tit_fir&"（"&ChannelName&"）所有数据库数据,请手动删除相关文件！","?",1)
	End If
    Else
	   Call AMH_Msg("成功删除"&tit_fir&"（"&ChannelName&"）频道！","?",1)
    End If
End Sub

'//* 网站频道管理首页 *//
Sub AsaiMHChannel_Main()
	Dim ChannelName, ChannelSName, OpenType, ChannelType, ChannelTypes, ModuleType, canUpdate
%>
<tr align=center>
<td class=td width=3%>ID</td>
<td class=td width=15%><%Response.Write tit_fir%>名称</td>
<td class=td width=10%>打开方式</td>
<td class=td width=10%><%Response.Write tit_fir%>类型</td>
<td class=td width=15%><%Response.Write tit_fir%>地址/目录</td>
<td class=td width=7%>生成html</td>
<td class=td width=10%>功能模块</td>
<td class=td width=5%>状态</td>
<td class=td width=5%>显示</td>
<td class=td width=5%>排序</td>
<td class=td width=15%>操作</td>
</tr>
<%
	SQL = "Select * From ["&Data_Name&"] Order By ChannelOrder,ChannelIDs"
	Set Rs = Cls.Exec(SQL,1)
	Do While Not Rs.Eof
		iChannelIDs = Rs("ChannelIDs")
		ChannelName = Rs("ChannelName")
		ChannelType = Rs("ChannelType")
		OpenType = Rs("ChannelOpenType")
		If OpenType = 0 Then
			OpenType = "<font class=blue>原窗口</font>"
		Else
			OpenType = "<font class=red>新窗口</font>"
		End If
		Select Case Int(ChannelType)
		Case 0
			ChannelTypes = "<font class=blue>系统频道</font>"
		Case 1
			ChannelTypes = "<font color=green>克隆频道</font>"
		Case 2
			ChannelTypes = "<font class=red>外部频道</font>"
		Case Else
			ChannelTypes = "未知类型"
		End Select
		Select Case Int(Rs("ModuleType"))
		Case 1:ModuleType = "文章":canUpdate = True
		Case 2:ModuleType = "下载":canUpdate = True
		Case 3:ModuleType = "商城":canUpdate = True
		Case 4:ModuleType = "论坛":canUpdate = False
		Case 5:ModuleType = "贴图":canUpdate = True
		Case 6:ModuleType = "影视":canUpdate = True
		Case 7:ModuleType = "市场":canUpdate = True
		Case 8:ModuleType = "新闻":canUpdate = True
		Case 9:ModuleType = "爱问":canUpdate = True
		Case 10:ModuleType = "博客":canUpdate = True
		Case 11:ModuleType = "音乐":canUpdate = True
		Case 12:ModuleType = "企业":canUpdate = True
		Case Else:ModuleType = "自定义":canUpdate = False
		End Select
	If Rs("ChannelHidden") Then canUpdate = False
%>
<tr align=center>
<td class=Gys><%Response.Write iChannelIDs%></td>
<td><%Response.Write "<a href='?Action=Edit&ChannelIDs="&iChannelIDs&"'>"&ChannelName&"</a>"%></td>
<td><%Response.Write OpenType%></td>
<td><%Response.Write ChannelTypes%></td>
<td align=left>
	<%
	If Int(Rs("ChannelType"))=2 Then
		Response.Write "链接：<font class=red>"&Rs("LinkUrl")&"</font>"
	Else
		Response.Write "目录：<font class=blue>"&Rs("ChannelDir")&"</font>"
	End If
	%>
</td>
<td class=Gys>
	<%
	If Rs("IsCreateHtml") Then
		Response.Write "<font class=blue>√</font>"
	Else
		Response.Write "<font class=red>×</font>"
	End If
	%>
</td>
<td class=Gys><%Response.Write ModuleType%></td>
<td>
	<%
	If Rs("ChannelHidden") Then
		Response.Write "<font class=red>×</font>"
	Else
		Response.Write "<font class=blue>√</font>"
	End If
	%>
</td>
<td>
	<%
	If Not Rs("ChannelHidden") And Rs("ShowName") Then
		Response.Write "<font class=blue>√</font>"
	Else
		Response.Write "<font class=red>×</font>"
	End If
	%>
</td>
<td align=center>
<a href='?Action=menu_up&ChannelIDs=<%=iChannelIDs%>'><%=img_admin("up_2","向上移动此菜单")%></a>&nbsp;<a href='?Action=menu_down&ChannelIDs=<%=iChannelIDs%>'><%=img_admin("down_2","向下移动此菜单")%></a>
</td>
<td align=left>
&nbsp;&nbsp;<a href='?Action=Edit&ChannelIDs=<%=iChannelIDs%>' title='编辑频道'>编辑</a>&nbsp;&nbsp;
	<%
	If Int(ChannelType) <> 0 Then
		Response.Write "<a href='AMH_channel.asp' onclick=""javascript:return click_delchannel("&ichannelids&");"" title='删除频道'>删除</a>"
		'Response.Write "<a href='AMH_Channel.asp?Action=Delete&ChannelIDs="&iChannelIDs&"&DelFile=1' onclick=""return click_return('删除此频道同时删除此频道相关文件',0);""'>删除</a>"
	Else
	    Response.Write "<a href='AMH_TempLate.Asp?skintype=1&ChannelIDs="&iChannelIDs&"' title='配置模板'>模板</a>"
	End If
	If canUpdate Then Response.Write "&nbsp;&nbsp;<a href='?Action=updateclass&ChannelIDs="&iChannelIDs&"' title='更新频道分类'>更新</a>"
	%>
</td>
</tr>
<%
		Rs.MoveNext
	Loop
	Rs.Close
%>
  </table>
</td>
</tr>
<Script language="javascript" type="text/javascript"> 
function click_delchannel(chid){ 
var isdel = window.confirm("是否确认删除此频道? 执行此操作后将不可恢复！ 单击“确定”继续。单击“取消”停止。"); 
if (isdel){ 
var isfile = window.confirm("删除此频道时，是否同时删除此频道相关文件? 执行此操作后将不可恢复！ 单击“确定”删除文件。单击“取消”不删除。"); 
if (isfile) 
{ 
window.location.href="AMH_channel.asp?action=delete&channelids="+chid+"&delfile=1"; 
return false; 
} 
else 
{ 
window.location.href="AMH_channel.asp?action=delete&channelids="+chid; 
return false; 
} 
}else 
return false; 
} 
</Script>
<%
End Sub

'//* 频道编辑 *//
Sub AsaiMHChannel_Edit()
	Dim ChannelName, ChannelPicUrl, ChannelRemark, ChannelColor, ChannelBold, ChannelOpenType, ChannelHidden, ChannelType
	Dim LinkUrl, ModuleType, ChannelDir, ChannelTit, ChannelUnit, ChannelListNum, ShowName, ChannelSetup
	Dim ChannelLeftCuteNum, ChannelCuteNum, IsNewWindow, BornClassRowNum
	Dim ClassDepth, RssField
	Dim UploadType, UploadDir, MaxFileSize, UpFileType
	Dim PicHeight, PicWidth
	Dim Sii, UpFileTypes, IsChangeCreateHtml,j,ChannelPower,Tmp1,FreeUserGroup,Tmp2,PutFreeExempts,Tmp3
	Dim IsCreateHtml, HtmlExtName, HtmlPrefix, HtmlPath , HtmlForm, tempstr
	Set Rs = Cls.Exec("Select Top 1 * From ["&Data_Name&"] Where ChannelIDs="&iChannelIDs,1)
	If Rs.Eof Then
		Rs.Close
		Call AMH_Msg(tit_fir&"ID（"&iChannelIDs&"）不存在！","?",1)
		Exit Sub
	End If
	ChannelName = Cls.Code_Html(Rs("ChannelName"),1,0)
	ChannelPicUrl = Rs("ChannelPicUrl")
	ChannelRemark = Cls.Code_Html(Rs("ChannelRemark"),1,0)
	ChannelColor = Rs("ChannelColor")
	ChannelBold = Rs("ChannelBold")
	ChannelOpenType = Rs("ChannelOpenType")
	ChannelHidden = CBool(Rs("ChannelHidden"))
	ChannelType = Int(Rs("ChannelType"))
	LinkUrl = Rs("LinkUrl")
	ModuleType = int(Rs("ModuleType"))
	ChannelDir = Rs("ChannelDir")
	ChannelTit = Rs("ChannelTit")
	ChannelUnit = Rs("ChannelUnit")
	ChannelListNum = Int(Rs("ChannelListNum"))
	ChannelCuteNum = Int(Rs("CuteNum"))
	BornClassRowNum = Int(Rs("BornClassRowNum"))
	ChannelLeftCuteNum = Int(Rs("LeftCuteNum"))
	ShowName = Int(Rs("ShowName"))
	ChannelSetup = Rs("ChannelSetup")
	ClassDepth = Rs("ClassDepth")
	RssField = Rs("RssField")
	UploadType = Rs("UploadType")
	PicHeight = Rs("PicHeight")
	PicWidth = Rs("PicWidth")
	UploadDir = Rs("UploadDir")
	MaxFileSize = Int(Rs("MaxFileSize"))
	UpFileType = Rs("UpFileType")
	ChannelPower = Rs("ChannelPower")
	FreeUserGroup = Rs("FreeUserGroup")
	PutFreeExempts = Rs("PutFreeExempts")
	IsCreateHtml = Rs("IsCreateHtml")
	HtmlExtName = Rs("HtmlExtName")
	HtmlPrefix = Rs("HtmlPrefix")
	HtmlPath = Rs("HtmlPath")
	HtmlForm = Rs("HtmlForm")
	IsNewWindow = Rs("IsNewWindow")
	Rs.Close
	tempstr = Cls.HtmlRndFileName
	Call AMH_Td("编辑频道（"&ChannelName&"）")
	If Chk() Then
		ChannelSetup = ""
		UpFileType = ""
		ChannelPower = ""
		FreeUserGroup = ""
		PutFreeExempts = ""
		ChannelName = Cls.Code_Admin("ChannelName",1,20)
		If ChannelName = "" Then
			Call AMH_Error("请填写" & Tit_Fir & "名称！")
			Exit Sub
		End If
		ChannelPicUrl = Cls.Code_Admin("ChannelPicUrl",1,200)
		ChannelRemark = Cls.Code_Admin("ChannelRemark",1,200)
		ChannelColor = Cls.Code_Admin("ChannelColor",1,6)
		If ChannelColor <> "" And Len(ChannelColor) <> 6 Then
			Call AMH_Error("请正确填写菜单显示颜色，只能为6位数 RGB 颜色代码！")
			Exit Sub
		End If
		ChannelBold = False
		If Cls.Code_Form("ChannelBold") = "yes" Then ChannelBold = True
		ChannelOpenType = False
		If Cls.Code_Form("ChannelOpenType") = "yes" Then ChannelOpenType = True
		ChannelHidden = False
		If Cls.Code_Form("ChannelHidden") = "yes" Then ChannelHidden = True
		'ChannelType = Cls.Code_Int("ChannelType",1)
		If ChannelType = 2 Then
			LinkUrl = Cls.Code_Admin("LinkUrl",1,200)
			If LinkUrl = "" Then
				Call AMH_Error("外部" & Tit_Fir & "请填写链接地址！")
				Exit Sub
			End If
			SQL = "Select Top 1 * From ["&Data_Name&"] Where ChannelIDs="&iChannelIDs
			Call Cls.Exe_Conn(Rs,SQL,3)
				Rs("ChannelName") = ChannelName
				Rs("ChannelPicUrl") = ChannelPicUrl
				Rs("ChannelRemark") = ChannelRemark
				Rs("ChannelColor") = ChannelColor
				Rs("ChannelBold") = ChannelBold
				Rs("ChannelOpenType") = ChannelOpenType
				Rs("ChannelHidden") = ChannelHidden
				Rs("ChannelType") = ChannelType
				Rs("LinkUrl") = LinkUrl
			Rs.Update
			Rs.Close
			Call ReloadMenu(1)
			Call AMH_Msg("成功编辑一个外部" & Tit_Fir, "?", 1)
		Else
			ChannelTit = Cls.Code_Admin("ChannelTit",1,10)
			If ChannelTit = "" Then
				Call AMH_Error(Tit_Fir & "简称必须填写！")
				Exit Sub
			End If
			ChannelUnit = Cls.Code_Admin("ChannelUnit",1,20)
			ChannelListNum = Cls.Code_Int("ChannelListNum",20)
			ChannelCuteNum = Cls.Code_Int("ChannelCuteNum",20)
			ChannelLeftCuteNum = Cls.Code_Int("ChannelLeftCuteNum",15)
			BornClassRowNum = Cls.Code_Int("BornClassRowNum",20)
			ShowName = False
			If Cls.Code_Form("ShowName") = "yes" Then ShowName = True
			IsNewWindow = False
			If Cls.Code_Form("IsNewWindow") = "yes" Then IsNewWindow = True
			ClassDepth = Cls.Code_Int("ClassDepth",0)
			RssField = Cls.Code_Admin("RssField",1,50)
			If RssField = "" And Cls.Code_Int("ChannelSetup_6",0) = 1 Then
				Call AMH_Error(Tit_Fir & "支持 RSS 时，需要填写 Rss 字段名！")
				Exit Sub
			End If
			UploadType = Cls.Code_Int("UploadType",2)
			UploadDir = Cls.Code_Admin("UploadDir",1,50)
			If UploadDir = "" And (UploadType = 1 Or UploadType = 2) Then
				Call AMH_Error("当开放上传功能时，需要填写上传目录名！")
				Exit Sub
			End If
			MaxFileSize = Cls.Code_Int("MaxFileSize",1024)
			PicWidth = Cls.Code_Int("PicWidth",120)
			PicHeight = Cls.Code_Int("PicHeight",90)
			Tmp1=Replace(Cls.Code_Admin("Channel_Power",1,0)," ","")
			If Len(Tmp1)>0 Then
				Tmp1=Replace(Tmp1,",",".")
				ChannelPower=ChannelPower&Tmp1
				End If
			If Right(ChannelPower,1)="." Then ChannelPower=Left(ChannelPower,Len(ChannelPower)-1)
			Tmp2=Replace(Cls.Code_Admin("FreeUserGroup",1,0)," ","")
			If Len(Tmp2)>0 Then
				Tmp2=Replace(Tmp2,",",".")
				FreeUserGroup=FreeUserGroup&Tmp2
				End If
			If Right(FreeUserGroup,1)="." Then FreeUserGroup=Left(FreeUserGroup,Len(FreeUserGroup)-1)
			Tmp3=Replace(Cls.Code_Admin("PutFreeExempts",1,0)," ","")
			If Len(Tmp3)>0 Then
				Tmp3=Replace(Tmp3,",",".")
				PutFreeExempts=PutFreeExempts&Tmp3
				End If
			If Right(PutFreeExempts,1)="." Then PutFreeExempts=Left(PutFreeExempts,Len(PutFreeExempts)-1)
			For Sii = 0 To 19
				ChannelSetup = ChannelSetup & Cls.Code_Int("ChannelSetup_"&Sii,0)
			Next
			For Each UpFileTypes In Request.form("UpFileType")
				UpFileType = UpFileType & Replace(UpFileTypes,"@@@","") & "@@@"
			Next
			If Right(UpFileType,3) = "@@@" Then UpFileType = Left(UpFileType,Len(UpFileType)-3)
			'网站Html部分
			IsChangeCreateHtml =False
			If CBool(Cls.Code_Int("IsCreateHtml",0)) <> IsCreateHtml Then IsChangeCreateHtml = True
	        IsCreateHtml = False
			If Cls.Code_Int("IsCreateHtml",0)=1 then 
			    IsCreateHtml=true
                if ModuleType<>1 and ModuleType<>2 and ModuleType<>3 and ModuleType<>5 and ModuleType<>6 and ModuleType<>8 and ModuleType<>11 and ModuleType<>12 then 
				   Call AMH_Error("目前此类频道暂不支持HTML生成！")
				   Exit Sub
			    end if
			End If
            HtmlExtName = Cls.Code_Admin("HtmlExtName",1,20)
            HtmlPrefix = Cls.Code_Admin("HtmlPrefix",1,20)
            HtmlPath = Cls.Code_Int("HtmlPath",0)
            HtmlForm = Cls.Code_Int("HtmlForm",0)
			SQL = "Select Top 1 * From ["&Data_Name&"] Where ChannelIDs="&iChannelIDs
			Call Cls.Exe_Conn(Rs,SQL,3)
				Rs("ChannelName") = ChannelName
				Rs("ChannelPicUrl") = ChannelPicUrl
				Rs("ChannelRemark") = ChannelRemark
				Rs("ChannelColor") = ChannelColor
				Rs("ChannelBold") = ChannelBold
				Rs("ChannelOpenType") = ChannelOpenType
				Rs("ChannelHidden") = ChannelHidden
				Rs("ChannelType") = ChannelType
				Rs("ChannelTit") = ChannelTit
				Rs("ChannelUnit") = ChannelUnit
				Rs("ChannelListNum") = ChannelListNum
				Rs("CuteNum") = ChannelCuteNum
				Rs("LeftCuteNum") = ChannelLeftCuteNum
				Rs("ShowName") = ShowName
				Rs("ClassDepth") = ClassDepth
				Rs("RssField") = RssField
				Rs("UploadType") = UploadType
				Rs("UploadDir") = UploadDir
				Rs("MaxFileSize") = MaxFileSize
				Rs("PicWidth") = PicWidth
				Rs("PicHeight") = PicHeight
				Rs("ChannelSetup") = ChannelSetup
				Rs("UpFileType") = UpFileType
				Rs("ChannelPower") = ChannelPower
				Rs("FreeUserGroup") = FreeUserGroup
				Rs("PutFreeExempts") = PutFreeExempts
				Rs("BornClassRowNum") = BornClassRowNum
	            Rs("IsCreateHtml") = IsCreateHtml
                Rs("HtmlExtName")= HtmlExtName
                Rs("HtmlPrefix")= HtmlPrefix
                Rs("HtmlPath")= HtmlPath
                Rs("HtmlForm")	= HtmlForm
				Rs("IsNewWindow") = IsNewWindow  
			Rs.Update
			Rs.Close
			Call Cls.Cache_Del("Class_"&iChannelIDs)
			Call ReloadMenu(1)
			If IsChangeCreateHtml Then 
			   Call AMH_Msg("成功编辑一个内部" & Tit_Fir &"\n\n注：你已经更改是否生成HTML选项，\n请更新网站缓存，并刷新后台管理窗口!\n以保证频道功能的正常运行!", "?", 1)
		    Else
			   Call AMH_Msg("成功编辑一个内部" & Tit_Fir, "?", 1)
			End If
		End If
		Exit Sub
End If
	Call Form_First()
%>
<form name=ChannelFrm action='?Action=Edit&ChannelIDs=<%=iChannelIDs%>' method=post>
<input type=hidden name=chk value='yes'>
<tr>
<td width='20%'><%Response.Write tit_fir%>名称：</td>
<td width='80%'><input name=ChannelName type=text value='<%=Cls.Code_Html(ChannelName,1,0)%>' size=30 maxlength=20>&nbsp;&nbsp;<font class=red>20个字符</font></td>
</tr>
<tr>
<td><%Response.Write tit_fir%>图片：</td>
<td><input name=ChannelPicUrl type=text value='<%=ChannelPicUrl%>' size=30 maxlength=200>&nbsp;&nbsp;<font class=red>如果添加菜单以图片方式显示，请注意路径格式</font></td>
</tr>
<tr>
<td><%Response.Write tit_fir%>提示：</td>
<td><input type=text name=ChannelRemark value='<%=ChannelRemark%>' size=30 maxlength=200>&nbsp;&nbsp;<font class=red>鼠标移至频道名称上时将显示设定的说明文字（不支持HTML）</font></td>
</tr>
<tr>
<td>菜单特效：</td>
<td>文字颜色：<%=ShowColor("ChannelColor",ChannelColor)%>&nbsp;&nbsp;&nbsp;&nbsp;文字加粗：<input type=checkbox name=ChannelBold value='yes'<%If ChannelBold = True Then Response.Write " checked"%>>&nbsp;&nbsp;如：<b><a href='javascript:;' class=blue>技术文栏</a></b></td>
</tr>
<tr>
<td>打开方式：</td>
<td><input type=radio name=ChannelOpenType value='no'<%If ChannelOpenType = False Then Response.Write " checked"%>>原窗口&nbsp;&nbsp;&nbsp;&nbsp;<input name=ChannelOpenType type=radio value='yes'<%If ChannelOpenType = True Then Response.Write " checked"%>>新窗口</td>
</tr>
<%If ChannelType <> 2 Then%>
<tr>
<td>显示频道名称：</td>
<td><input name=ShowName type=radio value='yes'<%If ShowName = True Then Response.Write " checked"%>>是 &nbsp;&nbsp;&nbsp;&nbsp;<input name=ShowName type=radio value='no'<%If ShowName = False Then Response.Write " checked"%>>否  <font class="red">选择是,此频道名称就会显示在网站菜单上</font></td>
</tr>
<%End If%>
<tr>
<td>禁用本<%Response.Write tit_fir%>：</td>
<td><input type=radio name=ChannelHidden value='yes'<%If ChannelHidden = True Then Response.Write " checked"%>>是 &nbsp;&nbsp;&nbsp;&nbsp;<input name=ChannelHidden type=radio value='no'<%If ChannelHidden = False Then Response.Write " checked"%>>否</td>
</tr>
<input name=ChannelType type=hidden value='<%=ChannelType%>'>
<tr><td colspan="4">
<%If ChannelType = 2 Then%>
<fieldset><legend><font color=blue><b>外部频道</b></font></legend>&nbsp;&nbsp;&nbsp;&nbsp;外部频道指链接到本系统以外的地址中。当此频道准备链接到网站中的其他系统时，请使用这种方式。<br />&nbsp;&nbsp;&nbsp;&nbsp;外部频道的链接地址：<input name=LinkUrl id='LinkUrl' type=text value='<%=LinkUrl%>' size=40 maxlength=200><br /><br /></fieldset><br />
<%Else%>
<fieldset><legend><font color=blue><b>内部参数</b></font></legend>
<table id='ChannelSetting' cellpadding=4 cellspacing=1 class=table>
<tr class=tr1><td colspan=2><font class=red>系统内部频道指的是在本系统现有功能模块（文章、下载等）基础上添加新的频道，具有以所选功能模块完全相同的功能。</font></td></tr>
<tr>
<td width='30%'>频道使用的功能模块：</td>
<td width='70%'>
<select name=ModuleType disabled >
<option value='1'<%If ModuleType = 1 Then Response.Write " selected"%>>文章</option>
<option value='2'<%If ModuleType = 2 Then Response.Write " selected"%>>下载</option>
<option value='5'<%If ModuleType = 5 Then Response.Write " selected"%>>贴图</option>
</select>
</td>
</tr>
<tr>
<td>频道目录：（英文名）</td>
<td><input name=ChannelDir type=text value='<%=ChannelDir%>' size=20 maxlength=50 disabled > <font class=red>只能是英文，不能带空格或“\”、“/”等符号。</font><font class=blue>样例：</font>Article、Down</td>
</tr>
<tr>
<td>频道简称：</td>
<td><input name=ChannelTit value='<%=ChannelTit%>' type=text size=20 maxlength=10> <font class=blue>例如：</font>“文章”或“教程”</td>
</tr>
<tr>
<td>项目单位：</td>
<td><input name=ChannelUnit value='<%=ChannelUnit%>' type=text size=10 maxlength=30> <font class=blue>例如</font>：“篇”、“条”、“个”</td>
</tr>
<tr>
<td>默认每页显示项目数：</td>
<td><input name=ChannelListNum value='<%=ChannelListNum%>' type=text size=10 maxlength=3> <font class=red>大于 0 的整数</font></td>
</tr>
<tr>
<td>默认列表截断字符数：</td>
<td>&nbsp;中间：&nbsp;<input name=ChannelCuteNum value='<%=ChannelCuteNum%>' type=text size=10 maxlength=3>&nbsp;左边：&nbsp;<input name=ChannelLeftCuteNum value='<%=ChannelLeftCuteNum%>' type=text size=10 maxlength=3> <font class=red>设置为 0 时不截断</font></td>
</tr>
<tr>
<td>默认列表打开方式：</td>
<td><input name=IsNewWindow type=radio value='yes'<%If IsNewWindow <> 0 Then Response.Write " checked"%>>新窗口 &nbsp;&nbsp;<input name=IsNewWindow type=radio value='no'<%If IsNewWindow = 0 Then Response.Write " checked"%>>原窗口</td></td>
</tr>
<tr>
<td>图片大小（宽高）：</td>
<td>&nbsp;宽度：&nbsp;<input name=PicWidth value='<%=PicWidth%>' type=text size=10 maxlength=3>&nbsp;像素&nbsp;&nbsp;高度：&nbsp;<input name=PicHeight value='<%=PicHeight%>' type=text size=10 maxlength=3>&nbsp;像素</td>
</tr>
<%if ModuleType<>4 Then%>
<tr>
<td>生成下拉列表行数：</td>
<td>&nbsp;每行：&nbsp;<input name=BornClassRowNum value='<%=BornClassRowNum%>' type=text size=10 maxlength=3>&nbsp;个&nbsp;&nbsp;(下拉分类列表Js每行个数)</td>
</tr>
<%End if%>
<tr>
<td>默认浏览权限：(与“登陆浏览”挂钩)</td>
<td>
<%if ModuleType=1 or ModuleType=2 or ModuleType=5 or ModuleType=6 or ModuleType=7 or ModuleType=8 or ModuleType=11 Then%>
<%
    Dim Dim_ug
	Dim_ug=Cls.Cache_Get("User_Group")
    For j = 0 To Ubound(Dim_ug,2)
	  Tmp1=ChannelPower
      Response.Write vbcrlf&"<input type=checkbox name=Channel_Power value='"&j+1&"'"
      If Instr(1,"."&Tmp1&".","."&j+1&".")>0 Then Response.Write " checked"
      Response.Write ">"&Dim_ug(1, j)
    Next
    Erase Dim_ug
%>
<input type=checkbox name=Channel_Power value='0'<%If Instr(1,"."&Tmp1&".",".0.")>0 Then Response.Write " checked"%>>游客
<%Else%>
<font class=red>此频道不支持此参数(商城，论坛，爱问，博客，企业)</font>
<%End if%>
</td>
</tr>
<tr>
<td>频道浏览免费用户组：</td>
<td>
<%if ModuleType=1 or ModuleType=2 or ModuleType=5 or ModuleType=6 or ModuleType=7 or ModuleType=8 or ModuleType=11 Then%>
<%
    Dim Dim_ug2
	Dim_ug2=Cls.Cache_Get("User_Group")
    For j = 0 To Ubound(Dim_ug2,2)
	  Tmp2=FreeUserGroup
      Response.Write vbcrlf&"<input type=checkbox name=FreeUserGroup value='"&j+1&"'"
      If Instr(1,"."&Tmp2&".","."&j+1&".")>0 Then Response.Write " checked"
      Response.Write ">"&Dim_ug2(1, j)
    Next
    Erase Dim_ug2
%>
<input type=checkbox name=FreeUserGroup value='0'<%If Instr(1,"."&Tmp2&".",".0.")>0 Then Response.Write " checked"%>>游客
<%Else%>
<font class=red>此频道不支持此参数(商城，论坛，爱问，博客，企业)</font>
<%End if%>
</td>
</tr>
<tr>
<td>频道发布免审核用户组：</td>
<td>
<%if ModuleType=1 or ModuleType=2 or ModuleType=5 or ModuleType=7 or ModuleType=8 or ModuleType=9 or ModuleType=12 Then%>
<%
    Dim Dim_ug3
	Dim_ug3=Cls.Cache_Get("User_Group")
    For j = 0 To Ubound(Dim_ug3,2)
	  Tmp3=PutFreeExempts
      Response.Write vbcrlf&"<input type=checkbox name=PutFreeExempts value='"&j+1&"'"
      If Instr(1,"."&Tmp3&".","."&j+1&".")>0 Then Response.Write " checked"
      Response.Write ">"&Dim_ug3(1, j)
    Next
    Erase Dim_ug3
%>
<input type=checkbox name=PutFreeExempts value='0'<%If Instr(1,"."&Tmp3&".",".0.")>0 Then Response.Write " checked"%>>游客
<%Else%>
<font class=red>此频道不支持此参数(商城，论坛，影院，博客，音乐)</font>
<%End if%>
</td>
</tr>
<tr>
<td>前台用户发布信息功能：</td>
<td>
<%if ModuleType=1 or ModuleType=2 or ModuleType=5 or ModuleType=7 or ModuleType=8 or ModuleType=9 or ModuleType=12 Then%>
<input name=ChannelSetup_0 type=radio value='0'<%If Cls.Get_ChannelSetup(ChannelSetup,0) = 0 Then Response.Write " checked"%> >&nbsp;不能发布&nbsp;<input type=radio name=ChannelSetup_0 value='1'<%If Cls.Get_ChannelSetup(ChannelSetup,0) = 1 Then Response.Write " checked"%>>&nbsp;可以发布
<%Else%>
<font class=red>此频道不支持此参数(商城，影院，博客，音乐)</font>
<%End if%>
</td>
</tr>
<%if ModuleType<>4 Then%>
<tr>
<td>是否支持分类：</td>
<td><input name=ChannelSetup_1 type=radio value='1'<%If Cls.Get_ChannelSetup(ChannelSetup,1) = 1 Then Response.Write " checked"%> onClick="ClassDepths.style.display=''">&nbsp;&nbsp;是&nbsp;&nbsp;<input type=radio name=ChannelSetup_1 value='0'<%If Cls.Get_ChannelSetup(ChannelSetup,1) = 0 Then Response.Write " checked"%> onClick="ClassDepths.style.display='none'">&nbsp;&nbsp;否</td>
</tr>
<%End if%>
<tr id='ClassDepths'<%If Cls.Get_ChannelSetup(ChannelSetup,1)=0 Then Response.Write "style='display:none'"%>>
<td>分类深度：</td>
<td><select name=ClassDepth size=1><option value='0'<%If ClassDepth = 0 Then Response.Write " selected"%>>无限级分类</option><option value='1'<%If ClassDepth = 1 Then Response.Write " selected"%>>一级分类</option><option value='2'<%If ClassDepth = 2 Then Response.Write " selected"%>>二级分类</option><option value='3'<%If ClassDepth = 3 Then Response.Write " selected"%>>三级分类</option></select>&nbsp;&nbsp;<font class=red>因为频道类型不同，所以有时分类深度也不相同，请注意选择。</font></td>
</tr>
<tr>
<td>是否过滤不健康字符：</td>
<td><input name=ChannelSetup_8 type=radio value='1'<%If Cls.Get_ChannelSetup(ChannelSetup,8) = 1 Then Response.Write " checked"%>>&nbsp;&nbsp;是&nbsp;&nbsp;<input type=radio name=ChannelSetup_8 value='0'<%If Cls.Get_ChannelSetup(ChannelSetup,8) = 0 Then Response.Write " checked"%>>&nbsp;&nbsp;否</td>
</tr>
<%if ModuleType<>4 Then%>
<tr>
<td>是否支持评论功能：</td>
<td><input name=ChannelSetup_2 type=radio value='1'<%If Cls.Get_ChannelSetup(ChannelSetup,2) = 1 Then Response.Write " checked"%>>&nbsp;&nbsp;是&nbsp;&nbsp;<input type=radio name=ChannelSetup_2 value='0'<%If Cls.Get_ChannelSetup(ChannelSetup,2) = 0 Then Response.Write " checked"%>>&nbsp;&nbsp;否</td>
</tr>
<%End if%>
<tr>
<td>是否支持专题功能：</td>
<td><input name=ChannelSetup_3 type=radio value='1'<%If Cls.Get_ChannelSetup(ChannelSetup,3) = 1 Then Response.Write " checked"%>>&nbsp;&nbsp;是&nbsp;&nbsp;<input type=radio name=ChannelSetup_3 value='0'<%If Cls.Get_ChannelSetup(ChannelSetup,3) = 0 Then Response.Write " checked"%>>&nbsp;&nbsp;否</td>
</tr>
<tr>
<td>是否支持关键字功能：</td>
<td><input name=ChannelSetup_4 type=radio value='1'<%If Cls.Get_ChannelSetup(ChannelSetup,4) = 1 Then Response.Write " checked"%>>&nbsp;&nbsp;是&nbsp;&nbsp;<input type=radio name=ChannelSetup_4 value='0'<%If Cls.Get_ChannelSetup(ChannelSetup,4) = 0 Then Response.Write " checked"%>>&nbsp;&nbsp;否</td>
</tr>
<%if ModuleType<>10 Then%>
<tr>
<td>是否支持报错功能：</td>
<td><input name=ChannelSetup_5 type=radio value='1'<%If Cls.Get_ChannelSetup(ChannelSetup,5) = 1 Then Response.Write " checked"%>>&nbsp;&nbsp;是&nbsp;&nbsp;<input type=radio name=ChannelSetup_5 value='0'<%If Cls.Get_ChannelSetup(ChannelSetup,5) = 0 Then Response.Write " checked"%>>&nbsp;&nbsp;否</td>
</tr>
<%End if%>
<tr>
<td>是否支持公告功能：</td>
<td><input name=ChannelSetup_13 type=radio value='1'<%If Cls.Get_ChannelSetup(ChannelSetup,13) = 1 Then Response.Write " checked"%>>&nbsp;&nbsp;是&nbsp;&nbsp;<input type=radio name=ChannelSetup_13 value='0'<%If Cls.Get_ChannelSetup(ChannelSetup,13) = 0 Then Response.Write " checked"%>>&nbsp;&nbsp;否</td>
</tr>
<tr>
<td>是否支持Rss功能：</td>
<td><input name=ChannelSetup_6 type=radio value='1'<%If Cls.Get_ChannelSetup(ChannelSetup,6) = 1 Then Response.Write " checked"%> onclick="RssFields.style.display='';">&nbsp;&nbsp;是&nbsp;&nbsp;<input type=radio name=ChannelSetup_6 value='0'<%If Cls.Get_ChannelSetup(ChannelSetup,6) = 0 Then Response.Write " checked"%> onclick="RssFields.style.display='none';">&nbsp;&nbsp;否</td>
</tr>
<tr id=RssFields <%If Cls.Get_ChannelSetup(ChannelSetup,6) = 0 Then Response.Write " style='display:none'"%>>
<td>Rss相关字段：</td>
<td><input name=RssField type=text size=40 value='<%=RssField%>' maxlength=50></td>
</tr>
<%if ModuleType=1 or ModuleType=2 or ModuleType=3 or ModuleType=5 or ModuleType=6 or ModuleType=8 or ModuleType=11 or ModuleType=12 Then%>
<tr class="Tr1">
<td ><div class="divbody">是否生成HTML：</div></td>
<td>
<input type="radio" name="IsCreateHtml" value="0" <%If IsCreateHtml = 0 Then Response.Write (" checked")%>  onClick="DisPlayHtml()"> 不生成&nbsp;&nbsp;<input type="radio" name="IsCreateHtml" value="1" <%If IsCreateHtml <> 0 Then Response.Write (" checked")%>  onClick="DisPlayHtml2()"> 生成</td>
</tr>
<tr id="HtmlTrue1"  <%If IsCreateHtml = 0 Then Response.Write " style='display:none'"%>>
<td><div class="divbody">生成HTML文件的扩展名：</div></td>
<td><input type="text" name="HtmlExtName" size="10" value="<%=HtmlExtName%>"> <font color=blue>* 如：“.html”，“.htm”，“.shtml”，“.asp”</font></td>
</tr>
<tr id="HtmlTrue2" <%If IsCreateHtml = 0 Then Response.Write " style='display:none'"%>>
<td><div class="divbody">生成HTML文件的前缀：</div></td>
<td><input type="text" name="HtmlPrefix" size="10" value="<%=HtmlPrefix%>"> <font color=blue>* 格式如：“Article_12345.html”，“Article_list123_1.html”</font></td>
</tr>
<tr id="HtmlTrue3" <%If IsCreateHtml = 0 Then Response.Write " style='display:none'"%>>
<td><div class="divbody">按日期保存HTML文件的路径格式：</div></td>
<td>
<select size="1" name="HtmlPath" onChange="chkselect(options[selectedIndex].value,'know2');">
<option value="0"<%If HtmlPath = 0 Then Response.Write (" selected")%>>不使用日期目录</option>
<option value="1"<%If HtmlPath = 1 Then Response.Write (" selected")%>><%=Cls.ShowDatePath(tempstr,1)%></option>
<option value="2"<%If HtmlPath = 2 Then Response.Write (" selected")%>><%=Cls.ShowDatePath(tempstr,2)%></option>
<option value="3"<%If HtmlPath = 3 Then Response.Write (" selected")%>><%=Cls.ShowDatePath(tempstr,3)%></option>
<option value="4"<%If HtmlPath = 4 Then Response.Write (" selected")%>><%=Cls.ShowDatePath(tempstr,4)%></option>
<option value="5"<%If HtmlPath = 5 Then Response.Write (" selected")%>><%=Cls.ShowDatePath(tempstr,5)%></option>
<option value="6"<%If HtmlPath = 6 Then Response.Write (" selected")%>><%=Cls.ShowDatePath(tempstr,6)%></option>
<option value="7"<%If HtmlPath = 7 Then Response.Write (" selected")%>><%=Cls.ShowDatePath(tempstr,7)%></option>
<option value="8"<%If HtmlPath = 8 Then Response.Write (" selected")%>><%=Cls.ShowDatePath(tempstr,8)%></option>
</select> <font color=blue>此目录是根据添加内容的日期生成，相对于各分类目录下面</font><div id="know2" style="color: red;font-weight:bold;"></div></td>
</tr>
<tr id="HtmlTrue4" <%If IsCreateHtml = 0 Then Response.Write " style='display:none'"%>>
<td><div class="divbody">保存HTML文件的格式：</div></td>
<td>
<select size="1" name="HtmlForm" onChange="chkselect(options[selectedIndex].value,'know1');">
<option value="0"<%If HtmlForm = 0 Then Response.Write (" selected")%>>日期和时间</option>
<option value="1"<%If HtmlForm = 1 Then Response.Write (" selected")%>><%=ChannelTit%>ID</option>
<option value="2"<%If HtmlForm = 2 Then Response.Write (" selected")%>>文件前缀+<%=ChannelTit%>ID</option>
<option value="3"<%If HtmlForm = 3 Then Response.Write (" selected")%>>日期+<%=ChannelTit%>ID</option>
<option value="4"<%If HtmlForm = 4 Then Response.Write (" selected")%>>随机数+<%=ChannelTit%>ID</option>
</select><div id="know1" style="color: red;font-weight:bold;"></div></td>
</tr>
<div id="Issubport0" style="display:none"><%=Cls.ReadFileName(tempstr,9988,HtmlExtName,HtmlPrefix,0,"")%></div>
<div id="Issubport1" style="display:none"><%=Cls.ReadFileName(tempstr,9988,HtmlExtName,HtmlPrefix,1,"")%></div>
<div id="Issubport2" style="display:none"><%=Cls.ReadFileName(tempstr,9988,HtmlExtName,HtmlPrefix,2,"")%></div>
<div id="Issubport3" style="display:none"><%=Cls.ReadFileName(tempstr,9988,HtmlExtName,HtmlPrefix,3,"")%></div>
<div id="Issubport4" style="display:none"><%=Cls.ReadFileName(tempstr,9988,HtmlExtName,HtmlPrefix,4,"")%></div>
<div id="Issubport5" style="display:none">不使用日期目录,HTML文件将保存到分类目录下面<br /><%=Cls.Web_Dir&ChannelName%>/分类目录/<%=Cls.ReadFileName(tempstr,9988,HtmlExtName,HtmlPrefix,HtmlForm,"")%></div>
<div id="Issubport6" style="display:none"><%=Cls.Web_Dir%><%=ChannelName%>/分类目录/<%=Cls.ShowDatePath(tempstr,1)%><%=Cls.ReadFileName(tempstr,9988,HtmlExtName,HtmlPrefix,HtmlForm,"")%></div>
<div id="Issubport7" style="display:none"><%=Cls.Web_Dir%><%=ChannelName%>/分类目录/<%=Cls.ShowDatePath(tempstr,2)%><%=Cls.ReadFileName(tempstr,9988,HtmlExtName,HtmlPrefix,HtmlForm,"")%></div>
<div id="Issubport8" style="display:none"><%=Cls.Web_Dir%><%=ChannelName%>/分类目录/<%=Cls.ShowDatePath(tempstr,3)%><%=Cls.ReadFileName(tempstr,9988,HtmlExtName,HtmlPrefix,HtmlForm,"")%></div>
<div id="Issubport9" style="display:none"><%=Cls.Web_Dir%><%=ChannelName%>/分类目录/<%=Cls.ShowDatePath(tempstr,4)%><%=Cls.ReadFileName(tempstr,9988,HtmlExtName,HtmlPrefix,HtmlForm,"")%></div>
<div id="Issubport10" style="display:none"><%=Cls.Web_Dir%><%=ChannelName%>/分类目录/<%=Cls.ShowDatePath(tempstr,5)%><%=Cls.ReadFileName(tempstr,9988,HtmlExtName,HtmlPrefix,HtmlForm,"")%></div>
<div id="Issubport11" style="display:none"><%=Cls.Web_Dir%><%=ChannelName%>/分类目录/<%=Cls.ShowDatePath(tempstr,6)%><%=Cls.ReadFileName(tempstr,9988,HtmlExtName,HtmlPrefix,HtmlForm,"")%></div>
<div id="Issubport12" style="display:none"><%=Cls.Web_Dir%><%=ChannelName%>/分类目录/<%=Cls.ShowDatePath(tempstr,7)%><%=Cls.ReadFileName(tempstr,9988,HtmlExtName,HtmlPrefix,HtmlForm,"")%></div>
<div id="Issubport13" style="display:none"><%=Cls.Web_Dir%><%=ChannelName%>/分类目录/<%=Cls.ShowDatePath(tempstr,8)%><%=Cls.ReadFileName(tempstr,9988,HtmlExtName,HtmlPrefix,HtmlForm,"")%></div>
<script language="javascript" type="text/javascript">
<!--
function chkselect(s,divid)
{
	var divname='Issubport';
	var chkreport;
	s=Number(s)
	if (divid=="know1")
	{
		divname=divname+s;
	}
	if (divid=="know2")
	{
		s+=5;
		divname=divname+s;
	}
	document.getElementById(divid).innerHTML=divname;
	chkreport=document.getElementById(divname).innerHTML;
	document.getElementById(divid).innerHTML=chkreport;
}
function DisPlayHtml()
{
HtmlTrue1.style.display='none'
HtmlTrue2.style.display='none'
HtmlTrue3.style.display='none'
HtmlTrue4.style.display='none'
}
function DisPlayHtml2()
{
HtmlTrue1.style.display=''
HtmlTrue2.style.display=''
HtmlTrue3.style.display=''
HtmlTrue4.style.display=''
}
function DisPlayUpload()
{
UploadTrue1.style.display='none'
UploadTrue2.style.display='none'
UploadTrue3.style.display='none'
UploadTrue4.style.display='none'
UploadTrue5.style.display='none'
UploadTrue6.style.display='none'
UploadTrue7.style.display='none'
}
function DisPlayUpload2()
{
UploadTrue1.style.display=''
UploadTrue2.style.display=''
UploadTrue3.style.display=''
UploadTrue4.style.display=''
UploadTrue5.style.display=''
UploadTrue6.style.display=''
UploadTrue7.style.display=''
}
//-->
</SCRIPT>
<%End if%>
<tr class=tr1>
<td>文件上传设置：</td>
<td><input name='UploadType' type='radio' value='0'<%If UploadType = 0 Then Response.Write " checked"%> onClick="DisPlayUpload()">&nbsp;&nbsp;关闭上传&nbsp;&nbsp;<input type='radio' name='UploadType'  value='1'<%If UploadType = 1 Then Response.Write " checked"%> onClick="DisPlayUpload2()">&nbsp;&nbsp;开启上传</td>
</tr>
<tr id='UploadTrue1' <%If UploadType = 0 Then Response.Write " style='display:none'"%>>
<td>上传文件的保存目录：</td>
<td><input name=UploadDir type=text value='<%=UploadDir%>' size=20 maxlength=20></td>
</tr>
<tr id='UploadTrue2' <%If UploadType = 0 Then Response.Write " style='display:none'"%>>
<td>上传图片加水印功能：</td>
<td><input name=ChannelSetup_11 type=radio value='1'<%If Cls.Get_ChannelSetup(ChannelSetup,11) = 1 Then Response.Write " checked"%>>&nbsp;&nbsp;是&nbsp;&nbsp;<input type=radio name=ChannelSetup_11 value='0'<%If Cls.Get_ChannelSetup(ChannelSetup,11) = 0 Then Response.Write " checked"%>>&nbsp;&nbsp;否</td>
</tr>
<tr id='UploadTrue3' <%If UploadType = 0 Then Response.Write " style='display:none'"%>>
<td>远程图片自动保存功能：</td>
<td><input name=ChannelSetup_12 type=radio value='1'<%If Cls.Get_ChannelSetup(ChannelSetup,12) = 1 Then Response.Write " checked"%>>&nbsp;&nbsp;是&nbsp;&nbsp;<input type=radio name=ChannelSetup_12 value='0'<%If Cls.Get_ChannelSetup(ChannelSetup,12) = 0 Then Response.Write " checked"%>>&nbsp;&nbsp;否&nbsp;&nbsp;<font class=red>仅限 HTML 编辑时使用</font></td>
</tr>
<tr id='UploadTrue4' <%If UploadType = 0 Then Response.Write " style='display:none'"%>>
<td>上传文件命名形式：</td>
<td><input name=ChannelSetup_15 type=radio value='1'<%If Cls.Get_ChannelSetup(ChannelSetup,15) = 1 Then Response.Write " checked"%>>&nbsp;&nbsp;重命名&nbsp;&nbsp;<input type=radio name=ChannelSetup_15 value='0'<%If Cls.Get_ChannelSetup(ChannelSetup,15) = 0 Then Response.Write " checked"%>>&nbsp;&nbsp;原文件名&nbsp;&nbsp;<font class=red>重命名则按年月日时分秒+随机数命名。</font></td>
</tr>
<tr id='UploadTrue5' <%If UploadType = 0 Then Response.Write " style='display:none'"%>>
<td>是否使用自动目录分类：</td>
<td><input name=ChannelSetup_16 type=radio value='1'<%If Cls.Get_ChannelSetup(ChannelSetup,16) = 1 Then Response.Write " checked"%>>&nbsp;&nbsp;使用&nbsp;&nbsp;<input type=radio name=ChannelSetup_16 value='0'<%If Cls.Get_ChannelSetup(ChannelSetup,16) = 0 Then Response.Write " checked"%>>&nbsp;&nbsp;不使用&nbsp;&nbsp;<font class=red>如使用则按“年-月”分类，需FSO支持。</font></td>
</tr>
<tr id='UploadTrue6' <%If UploadType = 0 Then Response.Write " style='display:none'"%>>
<td>允许上传的最大文件大小：</td>
<td><input name=MaxFileSize type=text value='<%=MaxFileSize%>' size=10 maxlength=10> KB&nbsp;&nbsp;&nbsp;&nbsp;<font color=blue>提示：1 KB = 1024 Byte，1 MB = 1024 KB</font></td>
</tr>
<tr id='UploadTrue7' <%If UploadType = 0 Then Response.Write " style='display:none'"%>>
<td>允许上传的文件类型：<br />多种文件类型之间以“|”分隔</td>
<td>
	<%
		If UpFileType = "" Then UpFileType = "@@@@@@@@@@@@"
		UpFileType = Split(UpFileType,"@@@")
	%>
	<table>
	<tr>
	<td>图片类型：</td>
	<td><input name=UpFileType type=text value='<%=UpFileType(0)%>' size='30' maxlength='200'></td>
	</tr>
	<tr>
	<td>Flash文件：</td>
	<td><input name=UpFileType type=text value='<%=UpFileType(1)%>' size='30' maxlength='50'></td>
	</tr>
	<tr>
	<td>多媒体文件：</td>
	<td><input name=UpFileType type=text value='<%=UpFileType(2)%>' size='30' maxlength='200'></td>
	</tr>
	<tr>
	<td>其他文件：</td>
	<td><input name=UpFileType type=text value='<%=UpFileType(3)%>' size='30' maxlength='200'></td>
	</tr>
	<tr>
	<td>远程类型：</td>
	<td><input name=UpFileType type=text value='<%=UpFileType(4)%>' size='30' maxlength='200'> </td>
	</tr>
	</table>
	<%
		Erase UpFileType
	%>
</td>
</tr>
</div>
</table><br /></fieldset>
<%
End If
%>
</td></tr>
<%
	Call Submit_Edit()
End Sub

'//* 频道添加 *//
Sub AsaiMHChannel_Add()
	Dim nChannelID, ChannelName, ChannelPicUrl, ChannelRemark, ChannelColor, ChannelBold, ChannelOpenType, ChannelHidden, ChannelType, ChannelOrder
	Dim LinkUrl, ModuleType, ChannelDir, ChannelDataName, ChannelTit, ChannelUnit, ChannelListNum, ShowName, ChannelSetup, ChannelOption
	Dim ChannelCuteNum, ChannelLeftCuteNum
	Dim ClassDepth, RssField
	Dim UploadType, UploadDir, MaxFileSize, UpFileType
	Dim PicHeight, PicWidth
	Dim Sii, UpFileTypes
	Dim IsCreateHtml, HtmlExtName, HtmlPrefix, HtmlPath , HtmlForm, IsNewWindow
	Call AMH_Td("增加频道")
	If Chk() Then
		ChannelName = Cls.Code_Admin("ChannelName",1,20)
		If ChannelName = "" Then
			Call AMH_Error("请填写" & Tit_Fir & "名称！")
			Exit Sub
		End If
		ChannelPicUrl = Cls.Code_Admin("ChannelPicUrl",1,200)
		ChannelRemark = Cls.Code_Admin("ChannelRemark",1,200)
		ChannelColor = Cls.Code_Admin("ChannelColor",1,6)
		If ChannelColor <> "" And Len(ChannelColor) <> 6 Then
			Call AMH_Error("请正确填写菜单显示颜色，只能为6位数 RGB 颜色代码！")
			Exit Sub
		End If
		ChannelBold = False
		If Cls.Code_Form("ChannelBold") = "yes" Then ChannelBold = True
		ChannelOpenType = False
		If Cls.Code_Form("ChannelOpenType") = "yes" Then ChannelOpenType = True
		ChannelHidden = False
		If Cls.Code_Form("ChannelHidden") = "yes" Then ChannelHidden = True
		ChannelType = Cls.Code_Int("ChannelType",1)
		ChannelOrder = 0
		SQL = "Select Top 1 ChannelOrder From ["&Data_Name&"] Order By ChannelOrder Desc"
		Set Rs = Cls.Exec(SQL,1)
		If Not(Rs.Eof) Then ChannelOrder = Rs(0)+1
		Rs.Close
		If ChannelType = 2 Then
			LinkUrl = Cls.Code_Admin("LinkUrl",1,200)
			If LinkUrl = "" Then
				Call AMH_Error("外部" & Tit_Fir & "请填写链接地址！")
				Exit Sub
			End If
			SQL = "Select * From ["&Data_Name&"]"
			Call Cls.Exe_Conn(Rs,SQL,3)
			Rs.AddNew
				Rs("ChannelName") = ChannelName
				Rs("ChannelPicUrl") = ChannelPicUrl
				Rs("ChannelRemark") = ChannelRemark
				Rs("ChannelColor") = ChannelColor
				Rs("ChannelBold") = ChannelBold
				Rs("ChannelOpenType") = ChannelOpenType
				Rs("ChannelHidden") = ChannelHidden
				Rs("ChannelType") = ChannelType
				Rs("LinkUrl") = LinkUrl
				Rs("ChannelOrder") = ChannelOrder
			Rs.Update
			Rs.Close
			Call ReloadMenu(1)
			Call AMH_Msg("成功添加一个新的外部" & Tit_Fir, "?", 1)
		Else
			ChannelDir = Cls.Code_Admin("ChannelDir",1,50)
			If ChannelDir = "" Or InStr(ChannelDir,"/") <> 0 Or InStr(ChannelDir,"\") <> 0 Then
				Call AMH_Error(Tit_Fir & "目录必须填写！并且不能含有“/”与“\”字符！")
				Exit Sub
			End If
			ChannelTit = Cls.Code_Admin("ChannelTit",1,10)
			If ChannelTit = "" Then
				Call AMH_Error(Tit_Fir & "简称必须填写！")
				Exit Sub
			End If
			ModuleType = Cls.Code_Int("ModuleType",1)
			If ModuleType <> 2 And ModuleType <> 5 Then ModuleType = 1			
			Select Case ModuleType
			Case 1
				ChannelDataName = "AsaiMHArticle"
				ChannelUnit="篇"
				ChannelListNum=20
				ChannelCuteNum=30
				ChannelLeftCuteNum=20
				ChannelSetup="11111000000110011000"
				ChannelOption=""
			Case 2
				ChannelDataName = "AsaiMHDown"
				ChannelUnit="个"
				ChannelListNum=10
				ChannelCuteNum=30
				ChannelLeftCuteNum=20
				ChannelSetup="11111100000110011000"
				ChannelOption="Win98:Winnt:Win2k:Winxp:Linux:Unix:MacOS|免费软件:共享软件:授权软件:其它类型"
			Case 5
				ChannelDataName = "AsaiMHPhoto"
				ChannelUnit="张"
				ChannelListNum=10
				ChannelCuteNum=30
				ChannelLeftCuteNum=20
				ChannelSetup="11111000000110011000"	
				ChannelOption="1"
			End Select
				ShowName=true
				ClassDepth=0
				RssField=true
				UploadType=1
				PicWidth=120
				PicHeight=90
				UploadDir=ChannelDir
				MaxFileSize=1024
			    UpFileType="jpg|bmp|gif|png@@@swf@@@mid|mp3|wmv|asf|avi|mpg|ram|rm|ra@@@rar|exe|doc|zip@@@gif|jpg|jpeg|bmp"
				if  ModuleType=5 then UpFileType="jpg|bmp|gif|png@@@swf@@@mid|mp3|wmv|asf|avi|mpg|ram|rm|ra@@@jpg|jpeg|bmp|gif|png@@@gif|jpg|jpeg|bmp"
                IsCreateHtml=False
                HtmlExtName=".html"
                HtmlPrefix=ChannelDir&"_"
                HtmlPath=0
                HtmlForm=1
			    IsNewWindow=False				
			SQL = "Select * From ["&Data_Name&"]"
			Call Cls.Exe_Conn(Rs,SQL,3)
			Rs.AddNew
				Rs("ChannelName") = ChannelName
				Rs("ChannelPicUrl") = ChannelPicUrl
				Rs("ChannelRemark") = ChannelRemark
				Rs("ChannelColor") = ChannelColor
				Rs("ChannelBold") = ChannelBold
				Rs("ChannelOpenType") = ChannelOpenType
				Rs("ChannelHidden") = ChannelHidden
				Rs("ChannelType") = ChannelType
				Rs("ChannelOrder") = ChannelOrder
				Rs("ModuleType") = ModuleType
				Rs("ChannelDir") = ChannelDir
				Rs("ChannelTit") = ChannelTit
				Rs("ChannelDataName") = ChannelDataName
				Rs("ChannelUnit") = ChannelUnit
				Rs("ChannelListNum") = ChannelListNum
				Rs("CuteNum") = ChannelCuteNum
				Rs("LeftCuteNum") = ChannelLeftCuteNum
				Rs("ShowName") = ShowName
				Rs("ClassDepth") = ClassDepth
				Rs("RssField") = RssField
				Rs("UploadType") = UploadType
				Rs("PicWidth") = PicWidth
				Rs("PicHeight") = PicHeight
				Rs("UploadDir") = UploadDir
				Rs("MaxFileSize") = MaxFileSize
				Rs("ChannelSetup") = ChannelSetup
				Rs("ChannelOption") = ChannelOption
				Rs("ChannelPreset")	= "||||||"
				Rs("UpFileType") = UpFileType
			    Rs("IsCreateHtml") = IsCreateHtml
                Rs("HtmlExtName")= HtmlExtName
                Rs("HtmlPrefix")= HtmlPrefix
                Rs("HtmlPath")= HtmlPath
                Rs("HtmlForm")	= HtmlForm
				Rs("IsNewWindow") = IsNewWindow  
			Rs.Update
			    nChannelID=rs("ChannelIDs")
			Rs.Close
			'开始复制文件
			Dim Cfs,TheModuleID,newChannelDir,oldChannelDir
			Set Cfs = New Cls_FileSystem
			Select Case ModuleType
			'文章频道
			Case 1
			TheModuleID=1
		    oldChannelDir = Cls.Web_Dir & "Article"
	        newChannelDir = Cls.Web_Dir & ChannelDir
			'创建目录
			Cfs.Make_Dir(newChannelDir)
			Cfs.Make_Dir(newChannelDir & "/Images")
			'复制文件
			Call Cfs.Copy_File(oldChannelDir&"/Index.asp",newChannelDir&"/Index.asp")
			Call Cfs.Copy_File(oldChannelDir&"/List.asp",newChannelDir&"/List.asp")
			Call Cfs.Copy_File(oldChannelDir&"/Print.asp",newChannelDir&"/Print.asp")
			Call Cfs.Copy_File(oldChannelDir&"/Put.asp",newChannelDir&"/Put.asp")
			Call Cfs.Copy_File(oldChannelDir&"/Special.asp",newChannelDir&"/Special.asp")
			Call Cfs.Copy_File(oldChannelDir&"/View.asp",newChannelDir&"/View.asp")
			'创建文件
			Call Cfs.Create_File(newChannelDir&"/Common.asp","<"&"%"&vbcrlf&"ChannelIDs = "&nChannelID&vbcrlf&"%"&">")
			'下载频道
			Case 2
			TheModuleID=2
			oldChannelDir = Cls.Web_Dir & "Down"
	        newChannelDir = Cls.Web_Dir & ChannelDir
			'创建目录
			Cfs.Make_Dir(newChannelDir)
			Cfs.Make_Dir(newChannelDir & "/Images")
			'复制文件
			Call Cfs.Copy_File(oldChannelDir&"/Index.asp",newChannelDir&"/Index.asp")
			Call Cfs.Copy_File(oldChannelDir&"/List.asp",newChannelDir&"/List.asp")
			Call Cfs.Copy_File(oldChannelDir&"/Put.asp",newChannelDir&"/Put.asp")
			Call Cfs.Copy_File(oldChannelDir&"/Special.asp",newChannelDir&"/Special.asp")
			Call Cfs.Copy_File(oldChannelDir&"/View.asp",newChannelDir&"/View.asp")
			'创建文件
			Call Cfs.Create_File(newChannelDir&"/Common.asp","<"&"%"&vbcrlf&"ChannelIDs = "&nChannelID&vbcrlf&"%"&">")
			'贴图频道
			Case 5
			TheModuleID=5
			oldChannelDir = Cls.Web_Dir & "Photo"
	        newChannelDir = Cls.Web_Dir & ChannelDir
			'创建目录
			Cfs.Make_Dir(newChannelDir)
			Cfs.Make_Dir(newChannelDir & "/Images")
			'复制文件
			Call Cfs.Copy_File(oldChannelDir&"/Index.asp",newChannelDir&"/Index.asp")
			Call Cfs.Copy_File(oldChannelDir&"/List.asp",newChannelDir&"/List.asp")
			Call Cfs.Copy_File(oldChannelDir&"/Put.asp",newChannelDir&"/Put.asp")
			Call Cfs.Copy_File(oldChannelDir&"/Special.asp",newChannelDir&"/Special.asp")
			Call Cfs.Copy_File(oldChannelDir&"/View.asp",newChannelDir&"/View.asp")			
			'创建文件
			Call Cfs.Create_File(newChannelDir&"/Common.asp","<"&"%"&vbcrlf&"ChannelIDs = "&nChannelID&vbcrlf&"%"&">")
			End Select
			Set Cfs = Nothing
			'复制模板操作
	        SQL = "Select Top 1 * From [AsaiMHTemplate] Where t_cid="&TheModuleID&" And IsDefault=1"
        	Call Cls.Exe_Conn(Rs,SQL,3)
	        If Rs.Eof Then
		    Call AMH_Msg("成功添加一个新的内部" & Tit_Fir&",但模板复制失败","?ChannelIDs="&iChannelIDs,1)
		    Exit Sub
        	End If
			Dim Rsc
			Set Rsc=Server.CreateObject("Adodb.Recordset")
			SQL = "Select * From [AsaiMHTemplate]"
			Call Cls.Exe_Conn(Rsc,SQL,3)
		    Rsc.AddNew
			Rsc("t_cid")	= nChannelID
			Rsc("t_name")	= ChannelTit
			Rsc("t_dir")	= ""
			Rsc("t_Css")    = Rs("t_Css")
			Rsc("t_sid")    = Rs("t_sid")
			Rsc("t_main")	= Rs("t_main")
			Rsc("T_Config")	= Rs("T_Config")
            Rsc("IsDefault")	= True
		    Rsc.Update
		    Rsc.Close
			Rs.Close
			Call ReloadMenu(1)
			Call AMH_Msg("成功添加一个新的内部" & Tit_Fir , "?", 1)
		End If
		Exit Sub
	End If
	Call Form_First()
%>
<form name=ChannelFrm action='?Action=Add' method=post>
<input type=hidden name=chk value='yes'>
<tr>
<td width='20%'><%Response.Write tit_fir%>名称：</td>
<td width='80%'><input name='ChannelName' type=text size=30 maxlength=20><%Response.Write Redx%>&nbsp;&nbsp;<font class=red>20个字符</font></td>
</tr>
<tr>
<td><%Response.Write tit_fir%>图片：</td>
<td><input name='ChannelPicUrl' type=text size=30 maxlength=200>&nbsp;&nbsp;<font class=red>如果添加菜单以图片方式显示，请注意路径格式。</font></td>
</tr>
<tr>
<td><%Response.Write tit_fir%>提示：</td>
<td><input type=text name='ChannelRemark' size=30 maxlength=200>&nbsp;&nbsp;<font class=red>鼠标移至频道名称上时将显示设定的说明文字（不支持HTML）</font></td>
</tr>
<tr>
<td>菜单颜色：</td>
<td><%=ShowColor("ChannelColor","")%></td>
</tr>
<tr>
<td>菜单粗体：</td>
<td><input type=checkbox name=ChannelBold value='yes'>&nbsp;可选，是否对该菜单显示名称加粗，如：<b><a href='javascript:;' class=blue>技术文栏</a></b></td>
</tr>
<tr>
<td>打开方式：</td>
<td><input type=radio name=ChannelOpenType value='no' checked>&nbsp;&nbsp;原窗口&nbsp;&nbsp;<input name=ChannelOpenType type=radio value='yes'>&nbsp;&nbsp;新窗口</td>
</tr>
<tr>
<td>禁用本<%Response.Write tit_fir%>：</td>
<td><input type=radio name=ChannelHidden value='yes'>&nbsp;&nbsp;是&nbsp;&nbsp;<input name=ChannelHidden type=radio value='no' checked>&nbsp;&nbsp;否</td>
</tr>
		<tr>
			<td><div class="divbody">频道类型</div></td>
			<td>
			<input type="radio" value="2" checked name="ChannelType" onClick="ChannelType1.style.display='';ChannelType2.style.display='none';ChannelType3.style.display='none';ChannelType4.style.display='none';"> 外部频道&nbsp;&nbsp; 
			<input type="radio" name="ChannelType" value="1" onClick="ChannelType1.style.display='none';ChannelType2.style.display='';ChannelType3.style.display='';ChannelType4.style.display='';"> 内部频道</td>
		</tr>
<tr id=ChannelType1>
<td>外部链接地址：</td>
<td><input name=LinkUrl id='LinkUrl' type=text value='' size='40' maxlength='200'>   </td>
</tr>
<tr id=ChannelType2 style='display:none'>
<td>频道功能模块：</td>
<td>
<select name=ModuleType>
<option value='1'>文章</option>
<option value='2'>下载</option>
<option value='5'>贴图</option>
</select>&nbsp;&nbsp;&nbsp;&nbsp;<font color=red>请慎重选择，频道一旦添加后就不能修改此项。</font>
</td>
</tr>
<tr id=ChannelType3 style='display:none'>
<td>频道目录：</td>
<td><input name=ChannelDir type=text size=20 maxlength=50><font class=red>只能是英文，不能带空格或“\”、“/”等符号。</font><font class=blue>样例：</font>Article、Down</td>
</tr>
<tr id=ChannelType4 style='display:none'>
<td>频道简称：<br />例：“文章”或“教程”</td>
<td><input name=ChannelTit value='' type=text size=20 maxlength=10><%=Redx%></td>
</tr>
<tr>
<td  colspan="2">
外部频道指链接到本系统以外的地址中。当此频道准备链接到网站中的其他系统时，请使用这种方式。<br />
系统内部频道指的是在本系统现有功能模块（文章、下载等）基础上添加新的频道，新频道具备和所使用功能模块完全相同的功能。
</td>
</tr>
<%
	Call Submit_Add()
End Sub
%>
