📄 admin_channel.asp

📁 淘客网上商店网站程序淘客网上商店网站程序淘客网上商店网站程序
💻 ASP
📖 第 1 页 / 共 5 页
字号:
上一页 1 2 3 45
		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>
		<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 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").tex
上一页 1 2 3 45
⌨️ 快捷键说明

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