📄 admin_channel.asp

📁 正版创力4.1SQL商业版!!!ASP版。
💻 ASP
📖 第 1 页 / 共 5 页
字号:
上一页 1 2 3 45
		<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>
		<td align="left">
		模板：<select name="ProjectID<%=rs("ChannelID")%>" id="ProjectID<%=rs("ChannelID")%>" onchange="ChangeCss(this.options[this.selectedIndex].value,'CssID<%=rs("ChannelID")%>');">
		<option value="0">请选择模板</option>
		<%=TempOption%>
		</select>&nbsp;&nbsp;
		CSS风格：<select name="CssID<%=rs("ChannelID")%>" id="CssID<%=rs("ChannelID")%>">
		<option value="0">请选择风格</option></select>
		<input type="hidden" name="ChannelID" value="<%=rs("ChannelID")%>">&nbsp;<input type="submit" value="修改" <%if rs("ChannelType")>1 Or rs("ChannelID")=10 then%> disabled<%end if%>>
		</td>
		<td width="60" align="center"><a href="Admin_Channel.asp?Action=Modify&ChannelID=<%=rs("ChannelID")%>">修改设置</a></td>
	</tr>
	</form>
	<%
		rs.MoveNext
	Loop
	%>
	<form   action="Admin_Channel.asp?Action=UpdateStyleAll" method="post">
	<tr class="tdbg"><td colspan="6">
	全部频道使用以下模板，
		模板：<select name="ProjectID" onchange="ChangeCss(this.options[this.selectedIndex].value,'CssID');"><%=TempOption%></select>&nbsp;&nbsp;CSS风格：<select name="CssID">
		<option value="0">请选择风格</option></select>&nbsp;<input type="submit" name="Submit" value="全部应用">
	</td></tr>
	</form>
</table>
<script type="text/javascript" src="Inc/AjaxTemplate.js"></script>
<script type="text/javascript">
ChangeCss(<%=Cl.ProjectID%>,'CssID');
CheckSel('ProjectID','<%=Cl.ProjectID%>');
CheckSel('CssID','<%=Cl.CssID%>');
</script>
<%
	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 Cl.ShowErr("<br /><li>参数不足！</li>")
	if cOrderID="" then
		Cl.ShowErr("<br /><li>错误参数！</li>")
	else
		cOrderID=Cint(cOrderID)
	end if
	if MoveNum="" then
		Cl.ShowErr("<br /><li>错误参数！</li>")
	else
		MoveNum=Cint(MoveNum)
		if MoveNum=0 Then
			Cl.ShowErr("<br /><li>请选择要提升的数字！</li>")
		end if
	end if
	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
		rsOrder.close : set rsOrder=Nothing
		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.Load_ChannelList
	RefreshChannelJs
	Cl.SaveAdminLog
	response.redirect "Admin_Channel.asp?Action=OrderID"
end sub

sub DownOrder()
	dim sqlOrder,rsOrder,MoveNum,cOrderID,tOrderID
	cOrderID=Trim(request("cOrderID"))
	MoveNum=Trim(request("MoveNum"))
	if ChannelID=0 then Cl.ShowErr("<br /><li>参数不足！</li>")
	if cOrderID="" then
		Cl.ShowErr("<br /><li>错误参数！</li>")
	else
		cOrderID=Cint(cOrderID)
	end if
	if MoveNum="" then
		Cl.ShowErr("<br /><li>错误参数！</li>")
	else
		MoveNum=Cint(MoveNum)
		if MoveNum=0 then
			Cl.ShowErr("<br /><li>请选择要提升的数字！</li>")
		end if
	end if
	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
		rsOrder.close : set rsOrder=Nothing
		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.Load_ChannelList
	RefreshChannelJs
	Cl.SaveAdminLog
	response.redirect "Admin_Channel.asp?Action=OrderID"
end sub

sub UpdateStyle()
	Dim ProjectID,CssID
	Dim tProject,tCss
	ProjectID=Cl.GetClng(request("ProjectID"&ChannelID))
	CssID=Cl.GetClng(request("CssID"&ChannelID))
	if ProjectID=0 or CssID=0 then
		Call Cl.OutMsg(0,"请选择模板和CSS风格！","Admin_Channel.asp?Action=SelectStyle")
	end If
	tProject = ProjectID & "," & ProjectID & "," & ProjectID & "," & ProjectID & "," & ProjectID & "," & ProjectID & "," & ProjectID & "," & ProjectID
	tCss = CssID & "," & CssID & "," & CssID & "," & CssID & "," & CssID & "," & CssID & "," & CssID & "," & CssID
	Cl.Execute("Update Cl_Channel set DefaultProject='" & tProject & "',DefaultCss='" & tCss & "' where ChannelID=" & ChannelID)
	Cl.Load_ChannelList
	Cl.SaveAdminLog
	Call Cl.OutMsg(0,"模板及CSS风格设置成功！","Admin_Channel.asp?Action=SelectStyle")
end sub
sub UpdateStyleAll()
	Dim ProjectID,CssID
	Dim tProject,tCss
	ProjectID=Cl.GetClng(request("ProjectID"))
	CssID=Cl.GetClng(request("CssID"))
	if ProjectID=0 Or CssID=0 then
		Call Cl.OutMsg(0,"请选择模板和CSS风格！","Admin_Channel.asp?Action=SelectStyle")
	end If
	tProject = ProjectID & "," & ProjectID & "," & ProjectID & "," & ProjectID & "," & ProjectID & "," & ProjectID & "," & ProjectID & "," & ProjectID
	tCss = CssID & "," & CssID & "," & CssID & "," & CssID & "," & CssID & "," & CssID & "," & CssID & "," & CssID
	Cl.Execute("Update Cl_Channel set DefaultProject='" & tProject & "',DefaultCss='" & tCss & "'")
	Cl.Load_ChannelList
	Cl.SaveAdminLog
	Call Cl.OutMsg(0,"模板及CSS风格设置成功！","Admin_Channel.asp?Action=SelectStyle")
end sub

Sub RefreshChannelJs()
	Dim Node,TempJs
	For Each Node In Application(Cl.CacheName&"_channellist").documentElement.SelectNodes("channel[@channeltype<2]")
		TempJs="document.write ("""&Replace(Cl.ShowChannelMenu(Node.selectSingleNode("@channelid").text),chr(34),"\"&chr(34))&""");"
		Cl.MakeHtml TempJs,Cl.WebDir&"Js/ChannelMenu/ChannelMenu_"&Node.selectSingleNode("@channelid").text&".Js"
	Next
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=Replace(sTempData(0),VbCrlf,"")
		sFileName=Replace(sFileName,Chr(10),"")
		sFileName=Trim(sFileName)
		sFileData=Replace(sTempData(1),"{$modulename}",sName)
		sFileData=Replace(sFileData,"{$channelid}",sID)
		Set Make = Fso.CreateTextFile(Server.MapPath(sCreateDir & 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.Load_ChannelList
	Cl.SaveAdminLog : RefreshChannelJs : Main
End Sub
Sub CIsShow()
	Cl.Execute("Update Cl_Channel Set IsShow=0 where ChannelID="&ChannelID&"")
	Cl.Load_ChannelList
	Cl.SaveAdminLog : RefreshChannelJs : Main
End Sub
Sub IsDisabled()
	Cl.Execute("Update Cl_Channel Set IsDisabled=1 where ChannelID="&ChannelID&"")
	Cl.Load_ChannelList
	Cl.SaveAdminLog : RefreshChannelJs : Main
End Sub
Sub CIsDisabled()
	Cl.Execute("Update Cl_Channel Set IsDisabled=0 where ChannelID="&ChannelID&"")
	Cl.Load_ChannelList
	Cl.SaveAdminLog : RefreshChannelJs : Main
End Sub
Sub OWindow()
	Cl.Execute("Update Cl_Channel Set OpenType=0 where ChannelID="&ChannelID&"")
	Cl.Load_ChannelList
	Cl.SaveAdminLog : RefreshChannelJs : Main
End Sub
Sub NWindow()
	Cl.Execute("Update Cl_Channel Set OpenType=1 where ChannelID="&ChannelID&"")
	Cl.Load_ChannelList
	Cl.SaveAdminLog : RefreshChannelJs : Main
End Sub

Sub UpdateChannel()
	if ChannelID<1 then Exit Sub
	Call RefreshJs(ChannelID)
	Call CreateClassJs(ChannelID)
	Cl.Load_ChannelSetting(ChannelID)
	Call CreateChannelFiles(Cl.Channel.selectSingleNode("@moduleid").text,ChannelID,Cl.Channel.selectSingleNode("@channeldir").text)
	Call Cl.OutMsg(0,"恭喜您，更新ID为“"&ChannelID&"”的数据库成功！","Admin_Channel.asp")
End Sub

Sub ShowDIYChannel()
	Response.write "<br/>"
	Cl.Load_ChannelSetting(ChannelID)
%>
<table class="border" width="100%" border="0" align="center" cellpadding="0" cellspacing="1">
<form action="Admin_Channel.asp?Action=SaveDIY" method="post" name="form1" id="form1">
	<tr class="title"> 
	<td align="center" height="22" valign="middle"><b>自 定 义 频 道</b></td>
	</tr>
	<tr class="tdbg"> 
	  <td width="100%" height="150" valign="middle">
		<table width="100%" border="0" cellspacing="0" cellpadding="5">
		<tr>
		<td align="center"><b>请选择你不需要的频道项目：</b></td>
		</tr>
		<tr>
		<td><fieldset><legend><%=Cl.Channel.selectSingleNode("@channelname").text%>项目</legend><table width="100%" border="0" cellpadding="0" cellspacing="5">
		<%Select Case Cl.Channel.selectSingleNode("@moduleid").text
		  Case 1%>
		<tr>
		<td width="20%"> <input ID="ItemID" name="ItemID" type="checkbox" value="1" <%=CheckSelect("1",Cl.Channel.selectSingleNode("@disableitem").text)%>> 作    者</td>
		<td width="20%"> <input ID="ItemID" name="ItemID" type="checkbox" value="2" <%=CheckSelect("2",Cl.Channel.selectSingleNode("@disableitem").text)%>> 来    源</td>
		<td width="20%"> <input ID="ItemID" name="ItemID" type="checkbox" value="3" <%=CheckSelect("3",Cl.Channel.selectSingleNode("@disableitem").text)%>> <%=Cl.Channel.selectSingleNode("@channelitemname").text%>简介</td>
		<td width="20%"> <input ID="ItemID" name="ItemID" type="checkbox" value="4" <%=CheckSelect("4",Cl.Channel.selectSingleNode("@disableitem").text)%>> 转向链接</td>
		<td width="20%"> <input ID="ItemID" name
上一页 1 2 3 45
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -