admin_channel.asp

正版创力4.1SQL商业版!!!ASP版。

				Cl.ShowErr("<br /><li>频道目录已经存在！</li>")
			end if
			ChkRs.Close : Set ChkRs=Nothing
			if Cl.CheckFolder(Cl.WebDir&ChannelDir,False) then
				Cl.ShowErr("<br /><li>频道目录已经存在于根目录！</li>")
			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<10 then MaxChannelID=10
		Set rs=Server.CreateObject("Adodb.RecordSet")
		OpenConn : rs.open "Select Top 1 * From Cl_Channel Where ChannelName='" & ChannelName & "'",Conn,1,3
		if not (rs.bof and rs.EOF) then
			rs.close : set rs=Nothing
			Cl.ShowErr("<br /><li>频道名称已经存在！</li>")
		end if
		Set rsM = Cl.Execute("Select CusTom 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)
		End if
		rsM.Close : Set rsM=Nothing
	elseif Action="SaveModify" then
		if Not IsNumeric(ChannelID) then
			Cl.ShowErr("<br /><li>请正确指定频道ID！</li>")
		end If
		Set rs=Server.CreateObject("Adodb.RecordSet")
		OpenConn : rs.open "Select * From Cl_Channel Where ChannelID=" & Clng(ChannelID),Conn,1,3
		if rs.bof and rs.EOF then
			rs.close:set rs=Nothing
			Cl.ShowErr("<br /><li>找不到指定的频道！</li>")
		end if
		ModuleID=rs("ModuleID")
	else
		Cl.ShowErr("<br /><li>参数错误！</li>")
	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("Logo")              = CLogo
	rs("Banner")            = CBanner
	rs("UploadSetting")     = sUploadSetting
	rs("OtherSetting")      = OtherSetting
	rs("IsRss")         = IsRss
	rs("IsWap")         = IsWap
	rs("ServerProjectID")   = ServerProjectID
	rs("DefaultProject")  = DefaultProject
	rs("DefaultTemplate") = DefaultTemplate
	rs("DefaultCss")      = DefaultCss
	rs.update
	rs.Close:set rs=Nothing
	Cl.Load_ChannelList
	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
			CreateChannelFiles ModuleID,MaxChannelID+1,ChannelDir
		end If
		Response.Write "<script language='JavaScript' type='text/JavaScript'>" &vbcrlf
		Response.Write "parent.left.location.reload();history.go(-2);//window.location.href='Admin_Channel.asp';" &vbcrlf
		Response.Write "</script>"
	else
		Call Cl.OutMsg(0,"恭喜您，操作成功，请按确定返回！","-2")
	end if
end sub

sub DelChannel()
	dim IsLoadLeft,ModuleID,ChannelDir
	if ChannelID=0 then Cl.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
		rs.Close:set rs=Nothing
		Cl.ShowErr("<br /><li>找不到指定的频道！</li>")
	end if
	if rs("ChannelType")=0 then
		rs.Close:set rs=Nothing
		Cl.ShowErr("<br /><li>系统频道，不允许删除！</li>")
	elseif rs("ChannelType")=1 then
		ModuleID=rs("ModuleID")
		ChannelDir=rs("ChannelDir")
		rs.Close:set rs=Nothing
		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 : rs.Close : set rs=Nothing : Cl.ShowErr("请正确选择参数。")
		end Select
		On Error Resume Next
		Dim Fso,sDirPath
		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_Template Where ChannelID="&ChannelID&"")
		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&"")
		On Error GoTo 0
		IsLoadLeft=True
	else
		IsLoadLeft=False
		rs.Close:set rs=Nothing
	end if
	Cl.Execute("delete from Cl_Channel Where ChannelID="&ChannelID&"")
	Cl.Load_ChannelList
	if Cl.Web_Info(15) = "1" then RefreshChannelJs
	Cl.SaveAdminLog
	if IsLoadLeft=True then
		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,ModuleID from Cl_Channel where ChannelType<2 and ChannelID<>10 order by OrderID"
	OpenConn : rs.Open sql,Conn,1,1
	iCount=rs.recordcount
	Dim TempOption,TempChangeJs
	set rs_s = Cl.Execute("select ProjectID,ProjectName From Cl_TemplateProject Order by ProjectID")
	do while not rs_s.eof
		TempOption = TempOption & "<option value='"&rs_s(0)&"'>"&rs_s(1)&"</option>"
		rs_s.MoveNext
	Loop
	Set rs_s=Nothing
%>
<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%>
	<form   action="Admin_Channel.asp?Action=UpdateStyle" method="post">
	<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>