admin_class.asp

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

	Set Rs = Cl.Execute("Select * From Cl_Class where ChannelID="&ChannelID&" and ParentID=" & ParentID & " And (ClassName='" & ClassName & "' or ClassDir='"&ClassDir&"')")
	if not(rs.bof and rs.eof) then
		if ParentID=0 then
			ErrMsg = "<br /><li>已经存在一级栏目名：" & ClassName & " 或者已经存在目录：" & ClassDir & "。</li>"
		else
			ErrMsg = "<br /><li>“" & ParentName & "”中已经存在子栏目“" & ClassName & "” 或者已经存在目录：" & ClassDir & "。</li>"
		end if
		rs.close : set rs=Nothing
		Cl.ShowErr(ErrMsg)
	end if
	rs.close : set rs=Nothing
	if IsElite="Yes" then IsElite=True else IsElite=False end if
	if ShowOnTop="Yes" then ShowOnTop=True else ShowOnTop=False end if
	if CommentIsChk="Yes" then CommentIsChk=True else CommentIsChk=False end if
	if AddIsChk="Yes" then AddIsChk=True else AddIsChk=False end if
	if Readme<>"" or Not IsNull(Readme) then Readme=Replace(Readme,VbCrlf,"")
	set rs=server.CreateObject("adodb.recordset")
	sql="Select top 1 * From Cl_Class"
	OpenConn : rs.open sql,Conn,1,3
	rs.addnew
	rs("ClassID")		= ClassID
	rs("ChannelID")		= ChannelID
	rs("ClassName")		= ClassName
	rs("ParentID")		= ParentID
	rs("ParentPath")	= ParentPath
	rs("ClassDir")		= ClassDir
	rs("ParentDir")		= ParentDir
	if ParentID>0 then
		rs("Depth")		= ParentDepth+1
	else
		rs("Depth")		= 0
	end if
	rs("RootID")		= RootID
	rs("Child")			= 0
	rs("arrChildID")	= ClassID
	rs("PrevID")		= PrevID
	rs("NextID")		= 0
	rs("OrderID")		= PrevOrderID
	rs("Readme")		= Readme
	rs("ClassMaster")	= ClassMaster
	'rs("ClassPicUrl")	= ClassPicUrl
	rs("BrowsePurview")	= BrowsePurview
	rs("AddPoint")		= AddPoint
	rs("CommentGroup")	= CommentGroup
	rs("IsElite")		= IsElite
	rs("ShowOnTop")		= ShowOnTop
	rs("CommentIsChk")	= CommentIsChk
	rs("AddIsChk")		= AddIsChk
	rs("MaxLimit")		= MaxLimit
	rs("IsOuter")		= IsOuter
	rs("LinkUrl")		= LinkUrl
	rs("DisabledAdd")	= DisabledAdd
	rs("VipUser")		= VipUser
	rs("ProjectID")		= ProjectID
	rs("TemplateID")	= TemplateID
	rs("CssID")			= CssID
	rs.update
	rs.Close : Set rs=Nothing
	'更新与本栏目同一父栏目的上一个栏目的“NextID”字段值
	if PrevID>0 then
		Cl.Execute("Update Cl_Class set NextID=" & ClassID & " where ChannelID="&ChannelID&" and ClassID=" & PrevID)
	end if
	if ParentID>0 then
		'更新其父类的子栏目数
		Cl.Execute("Update Cl_Class set Child=Child+1 where ChannelID="&ChannelID&" and ClassID="&ParentID)
		'更新其父类以上栏目的“arrChildID”
		Dim rsParentID
		Set rsParentID=server.CreateObject("Adodb.recordset")
		OpenConn : rsParentID.open "Select ClassID,arrChildID From Cl_Class where ChannelID="&ChannelID&" and ClassID in ("&ParentPath&")",conn,1,3
		do While not rsParentID.Eof
			rsParentID("arrChildID")=""&rsParentID(1)&","&ClassID&""
			rsParentID.UpDate
			rsParentID.movenext
		Loop
		rsParentID.Close : Set rsParentID=Nothing
		'更新该栏目排序以及大于本需要和同在本分类下的栏目排序序号
		Cl.Execute("Update Cl_Class set OrderID=OrderID+1 where ChannelID="&ChannelID&" and RootID=" & RootID & " and OrderID>" & PrevOrderID)
		Cl.Execute("Update Cl_Class set OrderID=" & PrevOrderID & "+1 where ChannelID="&ChannelID&" and ClassID=" & ClassID)
	end If
	Cl.Load_ClassList
	CreateClassJs(ChannelID)
	Cl.SaveAdminLog
	Call Cl.ShowSuc("恭喜你，栏目添加成功！返回 <a href='"&FileName&"'>栏目管理首页</a> 。")
end sub

Sub SaveModify()
	Dim ClassName,ClassDir,Readme,IsElite,ShowOnTop,ClassMaster,ClassPicUrl
	Dim trs,rs,CommentGroup,CommentIsChk,AddIsChk,AddPoint,MaxLimit
	Dim ClassID,rsClass,i,sChind,TClassDir
	Dim IsOuter,LinkUrl,ProjectID,TemplateID,CssID,DisabledAdd,VipUser
	ClassID			= Cl.GetClng(request("ClassID"))
	ClassName		= Trim(request("ClassName"))
	ClassDir		= Trim(request("ClassDir"))
	IsElite			= Trim(request("IsElite"))
	ShowOnTop		= Trim(request("ShowOnTop"))
	CommentIsChk	= Trim(request("CommentIsChk"))
	AddIsChk		= Trim(request("AddIsChk"))
	Readme			= Trim(request("Readme"))
	ClassMaster		= Trim(request("ClassMaster"))
	'ClassPicUrl	= Trim(request("ClassPicUrl"))
	BrowsePurview	= Cl.GetClng(request("BrowsePurview"))
	CommentGroup	= Trim(request("CommentGroup"))
	AddPoint		= Cl.GetClng(request("AddPoint"))
	MaxLimit		= Cl.GetClng(request("MaxLimit"))
	IsOuter			= Cl.GetClng(request("IsOuter"))
	LinkUrl			= Trim(request("LinkUrl"))
	DisabledAdd		= Cl.GetClng(request("DisabledAdd"))
	VipUser			= Trim(request("VipUser"))
	ProjectID		= Cl.GetClng(request("ProjectID"))
	TemplateID		= Cl.GetClng(request("TemplateID"))
	CssID			= Cl.GetClng(request("CssID"))
	if Not IsNull(VipUser) then VipUser	= Replace(VipUser,VbCrlf,"|")
	if ClassID=0 then
		Cl.ShowErr("<br /><li>参数不足！</li>")
	end if
	if ClassName="" then
		Cl.ShowErr("<br /><li>栏目名称不能为空！</li>")
	end if
	if IsOuter=0 then
		if ClassDir="" then
			Cl.ShowErr("<br /><li>栏目目录不能为空！</li>")
		end if
	else
		IsOuter=1
		if LinkUrl="" then
			Cl.ShowErr("<br /><li>栏目链接地址不能为空！</li>")
		end if
		ClassDir="Class" & ClassID
	end if

	sql="select * From Cl_Class where ChannelID="&ChannelID&" and ClassID=" & ClassID
	set rsClass=server.CreateObject ("Adodb.recordset")
	OpenConn : rsClass.open sql,Conn,1,3
	if rsClass.bof and rsClass.eof then
		rsClass.close:set rsClass=Nothing
		Cl.ShowErr("<br /><li>找不到指定的栏目！</li>")
	end if
	sChind=rsClass("Child")
	if rsClass("IsOuter")<>IsOuter then
		if rsClass("IsOuter")=0 and IsOuter=1 then
			rsClass.close:set rsClass=Nothing
			Cl.ShowErr("<br /><li>此栏目为内部栏目，所以，不能再设为外部栏目。</li>")
		end if
		if sChind>0 then
			if IsOuter=1 then
			ErrMsg="<br /><li>本栏目有子栏目，所以不能设为外部链接地址。</li>"
			else
			ErrMsg="<br /><li>本栏目有子栏目，所以不能设为内部栏目。</li>"
			end if
			rsClass.close:Set rsClass=Nothing
			Cl.ShowErr(ErrMsg)
		end if
		if rsClass("ParentID")>0 then
			Dim sParent
			Set sParent=Cl.Execute("Select IsOuter From Cl_Class Where ClassID=" & rsClass("ParentID"))
			if Not (sParent.Bof and sParent.Eof) then
				if sParent(0)=1 and IsOuter=0 then
					ErrMsg="<br /><li>本栏目父栏目为外部栏目，所以不能设为内部栏目。</li>"
					rsClass.close : Set rsClass = Nothing
					sParent.Close : Set sParent = Nothing
					Cl.ShowErr(ErrMsg)
				end if
			end If
			sParent.Close : Set sParent = Nothing
		end if
	end if
	if IsElite="Yes" then IsElite=True else IsElite=False end if
	if ShowOnTop="Yes" then ShowOnTop=True else ShowOnTop=False end if
	if CommentIsChk="Yes" then CommentIsChk=True else CommentIsChk=False end if
	if AddIsChk="Yes" then AddIsChk=True else AddIsChk=False end if
	TClassDir=rsClass("ClassDir")
	if Readme<>"" or Not IsNull(Readme) then Readme=Replace(Readme,VbCrlf,"")
	rsClass("ClassName")	= ClassName
	rsClass("ClassDir")		= ClassDir
	rsClass("Readme")		= Readme
	rsClass("ClassMaster")	= ClassMaster
	'rsClass("ClassPicUrl")	= ClassPicUrl
	rsClass("BrowsePurview")= BrowsePurview
	rsClass("CommentGroup")	= CommentGroup
	rsClass("AddPoint")		= AddPoint
	rsClass("IsElite")		= IsElite
	rsClass("ShowOnTop")	= ShowOnTop
	rsClass("CommentIsChk")	= CommentIsChk
	rsClass("AddIsChk")		= AddIsChk
	rsClass("MaxLimit")		= MaxLimit
	rsClass("IsOuter")		= IsOuter
	rsClass("LinkUrl")		= LinkUrl
	rsClass("DisabledAdd")	= DisabledAdd
	rsClass("VipUser")		= VipUser
	rsClass("ProjectID")	= ProjectID
	rsClass("TemplateID")	= TemplateID
	rsClass("CssID")		= CssID
	rsClass.update
	rsClass.close : set rsClass=Nothing
	if sChind>0 and TClassDir<>ClassDir then UpDateClassData
	Cl.Load_ClassList
	CreateClassJs(ChannelID)
	Cl.SaveAdminLog
	Call Cl.ShowSuc("恭喜你，栏目修改成功！返回 <a href='"&FileName&"'>栏目管理首页</a> 。")
end sub

sub DeleteClass()
	dim PrevID,NextID,ParentPath,ClassID
	ClassID=Cl.GetClng(Trim(Request("ClassID")))
	if ClassID="" then Cl.ShowErr("<br /><li>参数不足！</li>")
	sql="select ClassID,RootID,Depth,ParentID,ParentPath,Child,PrevID,NextID From Cl_Class where ChannelID="&ChannelID&" and ClassID="&ClassID
	set rs=server.CreateObject ("Adodb.recordset")
	OpenConn : rs.open sql,Conn,1,3
	if rs.bof and rs.eof then
		FoundErr=True
		ErrMsg="<br /><li>栏目不存在，或者已经被删除</li>"
	else
		if rs("Child")>0 then
			FoundErr=True
			ErrMsg="<br /><li>该栏目含有子栏目，请删除其子栏目后再进行删除本栏目的操作</li>"
		end if
	end if
	if FoundErr=True then
		rs.close:set rs=Nothing
		Cl.ShowErr(ErrMsg)
	end if
	PrevID=rs("PrevID")
	NextID=rs("NextID")
	ParentPath=rs("ParentPath")
	if rs("Depth")>0 then
		Cl.Execute("Update Cl_Class set Child=Child-1 where ChannelID="&ChannelID&" and ClassID=" & rs("ParentID"))
	end if
	rs.delete
	rs.update
	rs.close:set rs=Nothing
	'更新其父类以上栏目的“arrChildID”
	Dim rsParentID
	Set rsParentID=server.CreateObject("Adodb.recordset")
	OpenConn : rsParentID.open "Select ClassID,arrChildID From Cl_Class where ChannelID="&ChannelID&" and ClassID in ("&ParentPath&")",conn,1,3
	do While not rsParentID.Eof
		rsParentID("arrChildID")=""&Replace(rsParentID(1),","&ClassID&"","")&""
		rsParentID.UpDate
		rsParentID.movenext
	Loop
	rsParentID.Close:Set rsParentID=Nothing
	'删除本栏目的所有内容
	Select Case Clng(Cl.Channel.selectSingleNode("@moduleid").text)
	Case 1
		Set Rs=Cl.Execute("select InfoID From Cl_Article where ClassID=" & ClassID)
		Do While Not Rs.Eof
			Cl.Execute("delete from Cl_Comment where ChannelID="&ChannelID&" and InfoID=" & Rs(0))
			Rs.MoveNext
		Loop
		rs.Close : Set Rs=Nothing
		Cl.Execute("delete from Cl_Article where ClassID=" & ClassID)
	Case 2
		Set Rs=Cl.Execute("select InfoID From Cl_Article where ClassID=" & ClassID)
		Do While Not Rs.Eof
			Cl.Execute("delete from Cl_Comment where ChannelID="&ChannelID&" and InfoID=" & Rs(0))
			Rs.MoveNext
		Loop
		rs.Close : Set Rs=Nothing
		Cl.Execute("delete from Cl_Soft where ClassID=" & ClassID)
	Case 3
		Set Rs=Cl.Execute("select InfoID From Cl_Article where ClassID=" & ClassID)
		Do While Not Rs.Eof
			Cl.Execute("delete from Cl_Comment where ChannelID="&ChannelID&" and InfoID=" & Rs(0))
			Rs.MoveNext
		Loop
		rs.Close : Set Rs=Nothing
		Cl.Execute("delete from Cl_Photo where ClassID=" & ClassID)
	Case 4
		Set Rs=Cl.Execute("select InfoID From Cl_Article where ClassID=" & ClassID)
		Do While Not Rs.Eof
			Cl.Execute("delete from Cl_Comment where ChannelID="&ChannelID&" and InfoID=" & Rs(0))
			Rs.MoveNext
		Loop
		rs.Close : Set Rs=Nothing
		Cl.Execute("delete from Cl_Movie where ClassID=" & ClassID)
	Case 5
		Set Rs=Cl.Execute("select InfoID From Cl_Article where ClassID=" & ClassID)
		Do While Not Rs.Eof
			Cl.Execute("delete from Cl_Comment where ChannelID="&ChannelID&" and InfoID=" & Rs(0))
			Rs.MoveNext
		Loop
		rs.Close : Set Rs=Nothing
		Cl.Execute("delete from Cl_Product where ClassID=" & ClassID)
	End Select
	'修改上一栏目的NextID和下一栏目的PrevID
	if PrevID>0 then
		Cl.Execute "Update Cl_Class set NextID=" & NextID & " where ChannelID="&ChannelID&" and ClassID=" & PrevID
	end if
	if NextID>0 then
		Cl.Execute "Update Cl_Class set PrevID=" & PrevID & " where ChannelID="&ChannelID&" and ClassID=" & NextID
	end If
	Cl.Load_ClassList
	Cl.SaveAdminLog
	response.redirect FileName
end sub