📄 admin_special.asp

📁 正版创力4.1SQL商业版!!!ASP版。
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
	SpecialName=Trim(request.Form("SpecialName"))
	ReadMe=Trim(request("ReadMe"))
	ViewGroup=Trim(request("ViewGroup"))
	AddGroup=Trim(request("AddGroup"))
	if SpecialName="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br /><li>专题名称不能为空！</li>"
	end if
	'if Not IsNumeric(strChannelID) then
		'FoundErr=True
		'ErrMsg=ErrMsg & "<br /><li>请指定所属频道！</li>"
	'end if
	if FoundErr=True then
		Exit Sub
	end if
	set mrs=Cl.Execute("select max(OrderID) from Cl_Special")
	MaxOrderID=mrs(0)
	if isnull(MaxOrderID) or Not IsNumeric(MaxOrderID) then MaxOrderID=0
	set mrs=Cl.Execute("select max(SpecialID) from Cl_Special")
	MaxSID=mrs(0)
	if isnull(MaxSID) or Not IsNumeric(MaxSID) then MaxSID=0
	Set rs=Server.CreateObject("Adodb.RecordSet")
	OpenConn : rs.open "Select * From Cl_Special Where SpecialName='" & SpecialName & "'",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
	rs.addnew
	rs("SpecialID")=MaxSID+1
	rs("ChannelID")=ChannelID
	rs("OrderID")=MaxOrderID+1
	rs("SpecialName")=SpecialName
	rs("ReadMe")=ReadMe
	rs("ViewGroup")=ViewGroup
	rs("AddGroup")=AddGroup
	rs.update
	rs.Close:set rs=Nothing
	Cl.SaveAdminLog
	Response.Redirect "Admin_Special.asp"  
End Sub

Sub SaveModify()
	dim SpecialID,SpecialName,ReadMe,ViewGroup,AddGroup
	SpecialID=Trim(request("SpecialID"))
	if SpecialID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br /><li>请指定要修改的专题ID！</li>"
		Exit Sub
	else
		SpecialID=Clng(SpecialID)
	end if
	SpecialName=Trim(request.Form("SpecialName"))
	Readme=Trim(request("Readme"))
	ViewGroup=Trim(request("ViewGroup"))
	AddGroup=Trim(request("AddGroup"))
	if SpecialName="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br /><li>专题名称不能为空！</li>"
	end if
	if FoundErr=True then
		Exit Sub
	end if
	
	sql="Select * From Cl_Special Where SpecialID=" & SpecialID
	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>"
		rs.close
		set rs=Nothing
	else
		rs("ChannelID")=ChannelID
	    rs("SpecialName")=SpecialName
		rs("ReadMe")=ReadMe
		rs("ViewGroup")=ViewGroup
		rs("AddGroup")=AddGroup
		rs.update
		rs.close:Set rs=Nothing
		Cl.SaveAdminLog
		Response.Redirect "Admin_Special.asp"  
	end if
End Sub

Sub DelSpecial()
	dim SpecialID,sqlD,rsD,TempD
	SpecialID=Trim(request("SpecialID"))
	if SpecialID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br /><li>请指定要修改的专题ID！</li>"
		Exit Sub
	else
		SpecialID=Replace(SpecialID," ","")
		if Not Isnumeric(Replace(SpecialID,",","")) then
			FoundErr=True
			ErrMsg=ErrMsg & "<br /><li>请指定要修改的专题ID！</li>"
			Exit Sub
		end if
		if Instr(SpecialID,",")>0 then
			sqlD="select * from Cl_Special where SpecialID In (" & SpecialID & ")"
		else
			sqlD="select * from Cl_Special where SpecialID=" & SpecialID & ""
		end if
	end if
	Set rsD= Server.CreateObject("ADODB.Recordset")
	OpenConn : rsD.open sqlD,Conn,1,3
	do while not rsD.eof
		Cl.Execute("Update Cl_Article set SpecialID='0' where SpecialID Like '%," & rsD("SpecialID") & ",%'")
		Cl.Execute("Update Cl_Soft set SpecialID='0' where SpecialID Like '%," & rsD("SpecialID") & ",%'")
		Cl.Execute("Update Cl_Photo set SpecialID='0' where SpecialID Like '%," & rsD("SpecialID") & ",%'")
		Cl.Execute("Update Cl_Movie set SpecialID='0' where SpecialID Like '%," & rsD("SpecialID") & ",%'")
		Cl.Execute("Update Cl_Product set SpecialID='0' where SpecialID Like '%," & rsD("SpecialID") & ",%'")
		rsD.delete
		rsD.movenext
	loop
	rsD.close:set rsD=Nothing
	Cl.SaveAdminLog
	response.redirect "Admin_Special.asp"
End Sub

Sub ClearSpecial()
	dim SpecialID
	SpecialID=Trim(request("SpecialID"))
	if SpecialID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br /><li>请指定要修改的专题ID！</li>"
		Exit Sub
	else
		SpecialID=Clng(SpecialID)
	end if
	Cl.Execute("Update Cl_Article set SpecialID='0' where SpecialID like '%" & SpecialID & ",%'")
	Cl.SaveAdminLog
	response.redirect "Admin_Special.asp"
End Sub

Sub UpOrder()
	dim SpecialID,sqlOrder,rsOrder,MoveNum,cOrderID,tOrderID
	SpecialID=Trim(request("SpecialID"))
	cOrderID=Trim(request("cOrderID"))
	MoveNum=Trim(request("MoveNum"))
	if SpecialID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br /><li>参数不足！</li>"
	else
		SpecialID=CLng(SpecialID)
	end if
	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
	end if

	dim mrs,MaxOrderID
	set mrs=Cl.Execute("select max(OrderID) From Cl_Special")
	MaxOrderID=mrs(0)+1
	'先将当前栏目移至最后，包括子栏目
	Cl.Execute("Update Cl_Special set OrderID=" & MaxOrderID & " where SpecialID=" & SpecialID)
	
	'然后将位于当前栏目以上的栏目的OrderID依次加一，范围为要提升的数字
	sqlOrder="select * From Cl_Special 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_Special 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_Special set OrderID=" & tOrderID & " where SpecialID=" & SpecialID)
	Cl.SaveAdminLog
	response.redirect "Admin_Special.asp"
End Sub

Sub DownOrder()
	dim SpecialID,sqlOrder,rsOrder,MoveNum,cOrderID,tOrderID
	SpecialID=Trim(request("SpecialID"))
	cOrderID=Trim(request("cOrderID"))
	MoveNum=Trim(request("MoveNum"))
	if SpecialID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br /><li>参数不足！</li>"
	else
		SpecialID=CLng(SpecialID)
	end if
	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
	end if

	dim mrs,MaxOrderID
	set mrs=Cl.Execute("select max(OrderID) From Cl_Special")
	MaxOrderID=mrs(0)+1
	'先将当前栏目移至最后，包括子栏目
	Cl.Execute("Update Cl_Special set OrderID=" & MaxOrderID & " where SpecialID=" & SpecialID)
	
	'然后将位于当前栏目以下的栏目的OrderID依次减一，范围为要下降的数字
	sqlOrder="select * From Cl_Special 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_Special 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_Special set OrderID=" & tOrderID & " where SpecialID=" & SpecialID)
	Cl.SaveAdminLog
	response.redirect "Admin_Special.asp"
End Sub

Sub ShowSpecial()
	dim rsSpecial
	set rsSpecial=Cl.Execute("select SpecialID,SpecialName from Cl_Special")
	if rsSpecial.bof and rsSpecial.eof then
		response.write "<option value=''>请先添加专题</option>"
	else
		do while not rsSpecial.eof
			response.write "<option value='" & rsSpecial(0) & "'>" & rsSpecial(1) & "</option>"
			rsSpecial.movenext
		loop
	end if
	set rsSpecial=Nothing
End Sub

Function ShowChannelList(sChannelID)
	Dim strList,Node
	strList="<option value='-1'>所有频道</option>"
	For Each Node In Application(Cl.CacheName & "_channellist").DocumentElement.SelectNodes("channel[@channelid>0][@channeltype<2]")
		strList=strList & "<option value='" & Node.SelectSingleNode("@channelid").text & "'"
		if sChannelID=CLng(Node.SelectSingleNode("@channelid").text) then
		strList=strList & " selected"
		end if
		strList=strList & " >"& Node.SelectSingleNode("@channelname").text & "</option>"
	Next
	ShowChannelList=strList
End Function

Sub UniteSpecial()
	dim SpecialID,TargetSpecialID,SuccessMsg
	SpecialID=Trim(request("SpecialID"))
	TargetSpecialID=Trim(request("TargetSpecialID"))
	if SpecialID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br /><li>请指定要合并的专题！</li>"
	else
		SpecialID=CLng(SpecialID)
	end if
	if TargetSpecialID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br /><li>请指定目标专题！</li>"
	else
		TargetSpecialID=CLng(TargetSpecialID)
	end if
	if SpecialID=TargetSpecialID then
		FoundErr=True
		ErrMsg=ErrMsg & "<br /><li>请不要在相同专题内进行操作</li>"
	end if
	if FoundErr=True then Exit Sub
	'更新文章\……所属专题
	Cl.Execute("Update Cl_Article set SpecialID="&TargetSpecialID&" where SpecialID="&SpecialID)
	Cl.Execute("Update Cl_Soft set SpecialID="&TargetSpecialID&" where SpecialID="&SpecialID)
	Cl.Execute("Update Cl_Photo set SpecialID="&TargetSpecialID&" where SpecialID="&SpecialID)
	Cl.Execute("Update Cl_Movie set SpecialID="&TargetSpecialID&" where SpecialID="&SpecialID)
	Cl.Execute("Update Cl_Product set SpecialID="&TargetSpecialID&" where SpecialID="&SpecialID)
	'删除被合并专题
	Cl.Execute("delete from Cl_Special where SpecialID="&SpecialID)
	Cl.SaveAdminLog
	SuccessMsg="专题合并成功！已经将被合并专题的所有数据转入目标专题中。"
	Call Cl.ShowSuc(SuccessMsg)
End Sub

%>
<%
'<!--
'┌───────────────────────────────────────────────────────┐
'│														 │
'│		CreateLive CMS Version 4.0						 │
'│　　　　　　　　				Powered by Aspoo.CN	 	 │
'│　		　　　　　　　　　　						 │
'│　	邮箱: support@aspoo.cn		Info@aspoo.cn　　	 │
'│		ＱＱ: 3315263				596197794			 │
'│		网站: www.aspoo.cn			www.aspoo.com		 │
'│		论坛: bbs.aspoo.cn			bbs.aspoo.com		 │
'│														 │
'│	Copyright (C) 2005-2007 Aspoo.CN All Rights Reserved.	 │
'└───────────────────────────────────────────────────────┘
'-->
%>
上一页 12
⌨️ 快捷键说明

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