无限分类移动修改栏目

最新推荐文章于 2024-09-25 11:06:23 发布
最新推荐文章于 2024-09-25 11:06:23 发布
阅读量85 收藏
点赞数
文章标签： 数据库


<%

'系统页面加载初始化参数设定

ClassID=request("ClassID")
if ClassID="" or not isnumeric(ClassID) then
response.Write("<script>alert('传递参数错误!系统即将返回!');history.go(-1);</script>")
response.End()
end if

'类别列表读取函数

Function ShowClassFormOption(sChannelID,CurrentID,sClassDepth)
dim rsClass,sqlClass,sTemp,tmpClassDepth,i,n
dim arrShowLine(10)

for i=0 to ubound(arrShowLine)
arrShowLine(i)=False
next

sTemp="<option value=""0"""
if CurrentID=0 then sTemp=sTemp & " selected"">顶级类别</option>"


sqlClass="Select ClassID,ClassName,ClassDepth,ChannelID,RootID,OrderID From SoftClass "

if sClassDepth>0 then
sqlClass=sqlClass & " where ClassDepth<"&sClassDepth&" order by OrderID"
else
sqlClass=sqlClass & " order by OrderID"
end if

set rsClass=conn.Execute(sqlClass)

if rsClass.bof and rsClass.bof then
ShowClassFormOption = sTemp & "<option value="""">添加顶级类别</option>"
rsClass.close
set rsClass=Nothing
Exit Function
else
sTemp="<option value=""0"""">顶级类别</option>"
ClassRecord=rsClass.GetRows(-1)
'获取最后一行记录
'数据字段1，类别ID,ClassID
'数据字段2，类别名称,ClassName
'数据字段3，类别深度,ClassDepth
'数据字段4，类别ID,Class
rsClass.close
set rsClass=Nothing
End if


Dim sChecked, tempClassName

For i=0 to Ubound(ClassRecord,2)
tmpClassDepth=ClassRecord(2,i)
'数据字段3，类别深度,ClassDepth
if ClassRecord(3,i)>0 then
arrShowLine(tmpClassDepth)=True
else
arrShowLine(tmpClassDepth)=False
end if

sChecked = "" : tempClassName = ""
if ClassRecord(0,i)=CurrentID then sChecked = " selected"

if tmpClassDepth>0 then
for n=1 to tmpClassDepth
tempClassName = tempClassName & "&nbsp;&nbsp;"
if n=tmpClassDepth then
if ClassRecord(3,i)>0 then
tempClassName = tempClassName & "├&nbsp;"
else
tempClassName = tempClassName & "└&nbsp;"
end if
else
if arrShowLine(n)=True then
tempClassName = tempClassName & "│"
else
tempClassName = tempClassName & "&nbsp;"
end if
end if
next
end if

tempClassName = tempClassName & ClassRecord(1,i)
sTemp=sTemp & "<option value=""" & ClassRecord(0,i) & """ "&sChecked&">" & tempClassName & "</option>"
Next

ShowClassFormOption=sTemp
ClassRecord=Empty
End Function

if request("action")="EditSave" then

ChannelID=cint(trim(Request.Form("ChannelID")))
newParentClassID=Cint(trim(Request.Form("ParentID")))
ClassName=trim(Request.Form("ClassName"))
ClassFolderName=trim(Request.Form("ClassFolderName"))
ClassMemo=trim(Request.Form("ClassMemo"))
ClassKeyWords=trim(Request.Form("ClassKeyWords"))
ClassDescription=trim(Request.Form("ClassDescription"))
IsCreateFolder=trim(Request.Form("IsCreateFolder"))

if ClassName="" Then
response.write("<script>alert('系统出错！请返回填写栏目类别名称');history.go(-1);</script>")
response.End()
end if

if ClassFolderName="" Then
response.write("<script>alert('系统出错！请返回填写栏目类别目录文件夹');history.go(-1);</script>")
response.End()
end if

if ClassMemo="" Then
response.write("<script>alert('系统出错！请返回填写栏目类别说明');history.go(-1);</script>")
response.End()
end if

if ClassKeyWords="" Then
response.write("<script>alert('系统出错！请返回填写栏目类别搜索关键字');history.go(-1);</script>")
response.End()
end if

if ClassDescription="" Then
response.write("<script>alert('系统出错！请返回填写栏目类别搜索描述词');history.go(-1);</script>")
response.End()
end if


If IsValidWindowsFolderName(ClassFolderName)=False Then
response.Write("<script language=javascript>alert('目录名格式不正确,按确定返回重新填写');history.back();</script>")
response.End()
end if

ClassFolderName=Replace(PCase(ClassFolderName)," ","-")

'查询网站频道项目
set rs=server.CreateObject("Adodb.recordset")
sql="select * from SystemChannelList Where ChannelID="&ChannelID
rs.open sql,conn,1,3
if rs.eof and rs.bof then
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write("<script>alert('无此数据,系统即将返回！');location.href='ClassList.asp';</script>")
response.End()
else
ChannelName =rs("ChannelName")
ChannelFolderUrl=rs("ChannelFolderUrl")
ChannelFolderPath=rs("ChannelFolderPath")
end if
rs.close
set rs=nothing

'查询父类别ID是否改变
'读取要修改的ClassID类别数据
set rsClass=server.CreateObject("Adodb.recordset")
sqlClass="select * from SoftClass where ClassID="&ClassID
rsClass.open sqlClass,conn,1,3
if rsClass.eof and rsClass.bof then
response.write("<script>alert('错误！未查询到对应类别！系统即将返回');location.href='ClassList.asp';</script>")
response.End()
else

if rsClass("ParentID")<>newParentClassID then '更改了所属栏目，则要做一系列检查
rstUpdateQuried=1
if ParentClassID=rsClass("ClassID") then
response.write("<script>alert('所属栏目不能为自己！！系统即将返回');location.href='ClassList.asp';</script>")
response.End()
end if
'判断所指定的栏目是否为本栏目的下属栏目
if rsClass("ParentID")=0 then
if newParentClassID>0 then
set trs=conn.execute("select RootID,ClassID From SoftClass where ClassID="&newParentClassID)
if trs.bof and trs.eof then
response.write("<script>alert('找不到要移动到的父栏目！系统即将返回');location.href='ClassList.asp';</script>")
response.End()
else
if rsClass("RootID")=trs(0) and rsClass("RootID")<>0 then
response.write("<script>alert('不能指定顶级栏目的父栏目为其下属栏目！系统即将返回');location.href='ClassList.asp';</script>")
response.End()
end if
end if
trs.close
set trs=nothing
end if
else
set trs=conn.execute("select ClassID From SoftClass where ParentIDPath like '"&rsClass("ParentIDPath")&"," & rsClass("ClassID") & ",%' and ClassID="&newParentClassID)
if not (trs.eof and trs.bof) then
response.write("<script>alert('不能指定父栏目的下属栏目作为所属栏目！系统即将返回');location.href='ClassList.asp';</script>")
response.End()
end if
trs.close
set trs=nothing
end if

else
rstUpdateQuried=0
end if

'读取类别相关历史数据

oldClassDepth=Clng(rsClass("ClassDepth"))
oldChild=Clng(rsClass("Child"))
oldRootID=Clng(rsClass("RootID"))
oldParentID=Clng(rsClass("ParentID"))
oldParentIDPath=rsClass("ParentIDPath")
oldPrevClassID=Clng(rsClass("PrevID"))
oldNextID=Clng(rsClass("NextID"))
oldClassOrderID=Clng(rsClass("ClassOrderID"))
oldRootOrderID=Clng(rsClass("RootOrderID"))
oldOrderID=Clng(rsClass("OrderID"))
end if
rsClass.close
set rsClass=nothing


IF newParentClassID=0 then
'查询新父类相关数据
newParentClassName="" '父类名
newParentClassFolderName="" '父类目录名
newClassDepth=0
newParentClassID=0
newParentClassRootID=0
ClassFolderPath=ClassFolderName
ClassLocalPath=ChannelFolderPath&"/"&ClassFolderPath
ClassFolderUrl=ChannelFolderUrl&"/"&Replace(ClassFolderPath,"/","/")
else
'查询新父类相关数据
set rsParent=server.CreateObject("Adodb.recordset")
sqlParent="select * from SoftClass where ClassID="&newParentClassID
rsParent.open sqlParent,conn,1,3
if rsParent.eof and rsParent.bof then
response.write("<script>alert('未能查询到新父类类别对应的数据！系统即将返回上一页');history.go(-1);</script>")
response.End()
else
newParentClassID=Clng(rsParent("ClassID"))
newParentClassName=rsParent("ClassName") '父类名

newParentClassFolderName=rsParent("ClassFolderName") '新父类目录名
newParentClassFolderPath=rsParent("ClassFolderPath") '新父类目录名
newParentClassFolderUrl=rsParent("ClassFolderUrl") '新父类访问路径
newParentClassIDPath=rsParent("ParentIDPath")

newParentClassDepth=Clng(rsParent("ClassDepth"))

newParentClassRootID=Clng(rsParent("RootID"))
newParentClassChild=Clng(rsParent("Child"))

newParentOrderID=Clng(rsParent("OrderID"))
newParentClassOrderID=Clng(rsParent("ClassOrderID"))
newParentRootOrderID=Clng(rsParent("RootOrderID"))
end if
rsParent.close
set rsParent=nothing

'根据父类数据得到当前路径相关参数
ClassFolderPath=newParentClassFolderPath&"/"&ClassFolderName
ClassLocalPath=ChannelFolderPath&"/"&ClassFolderPath
ClassFolderUrl=ChannelFolderUrl&"/"&Replace(ClassFolderPath,"/","/")

end if

'如果改变了父类，则要更新相关一些数据
IF rstUpdateQuried=1 then
'首先更新历史父栏目的子栏目数量
'如果是顶类栏目，下面的语句是不执行的
conn.execute("update SoftClass set Child=Child-1 where ClassID="&oldParentID)

'******************************************
'由一级别移动到1级别下面
'******************************************
IF oldParentID=0 and newParentClassRootID=0 and newParentClassID>0 then
'分顶类栏目往前移动和往后移动
if oldClassOrderID>newParentClassOrderID then
MovetoBehind=0'顶类栏目往前移动
response.Write("<br>顶类栏目往前移动到系统根栏目")
else
MovetoBehind=1'顶类栏目往后移动
response.Write("<br>顶类栏目往后移动到系统根栏目")
end if
response.Write("<br>顶类栏目移动方向:"&MovetoBehind)
'查询当前移动栏目的子类别数量
set rs1=conn.execute("select Count(*) from SoftClass where ParentIDPath like '0,"&ClassID&",%'")
if isnull(rs1(0)) then
ChildClassNumber=0
else
ChildClassNumber=rs1(0)
end if
set rs1=nothing
TotalMovingNumber=ChildClassNumber+1
response.Write("<br>当前移动栏目包含子栏目的栏目数量"&TotalMovingNumber)
newClassDepth=1
newRootID=newParentClassID

if newParentClassChild>0 then
'*************************************
'不同顶类栏目中的顶类栏目移动到别的包含子栏目顶类栏目下
'*************************************
response.Write("<br>不同顶类栏目中的顶类栏目移动到别的包含子栏目顶类栏目下:")
'获取新父栏目的子栏目中的当前类别的前一栏目
newPrevClassOrderID=conn.execute("select Max(ClassOrderID) from SoftClass where ParentID="&newParentClassID)(0)
PrevClassID=conn.execute("select ClassID,ClassOrderID from SoftClass where ClassOrderID="&newPrevClassOrderID&" and ParentID="&newParentClassID)(0)
conn.execute("Update SoftClass set NextID="&ClassID&" where ClassID="&PrevClassID)
newClassOrderID=newPrevClassOrderID+1
'获取同一顶类栏目中的排列顺序
set rs1=conn.execute("select Max(RootOrderID) from SoftClass where ParentIDPath like '0,"&newRootID&","&PrevClassID&",%'")
if isnull(rs1(0)) then
newMaxRootOrderID=conn.execute("select RootOrderID,ClassID from SoftClass where ClassID="&PrevClassID)(0)
else
newMaxRootOrderID=rs1(0)
end if
newRootOrderID=newMaxRootOrderID+1
set rs1=nothing
response.Write("<br>最大前一栏目的RootOrderID:"&newMaxRootOrderID)

if MovetoBehind=0 then'顶类栏目往前移动
'获取所有栏目中的排列顺序
set rs1=conn.execute("select Max(OrderID) from SoftClass where ParentIDPath like '0,"&newRootID&","&PrevClassID&",%'")
if isnull(rs1(0)) then
newMaxOrderID=conn.execute("select OrderID,ClassID from SoftClass where ClassID="&PrevClassID)(0)
else
newMaxOrderID=rs1(0)
end if
newOrderID=newMaxOrderID+1
set rs1=nothing
response.Write("<br>最大前一栏目的OrderID:"&newMaxOrderID)
'更新同一顶类栏目的RootOrderID
conn.execute("update SoftClass set RootOrderID=RootOrderID+"&TotalMovingNumber&" where RootOrderID>"&newMaxRootOrderID&" and ParentIDPath like '0,"&newRootID&",%'")
'更新所有栏目的OrderID
conn.execute("update SoftClass set OrderID=OrderID+"&TotalMovingNumber&" where OrderID>"&newMaxOrderID&" and OrderID<"&oldOrderID)
'更新同一父栏目的上一个栏目的“NextID”字段值
conn.execute("update SoftClass set NextID=" & ClassID & " where ClassID=" & PrevClassID)
'更新父栏目中的子栏目数量
conn.execute("Update SoftClass Set Child=Child+1 where ClassID="&newParentClassID)

else'顶类栏目往后移动
set rs1=conn.execute("select Max(OrderID) from SoftClass where ParentIDPath like '0,"&newRootID&","&PrevClassID&",%'")
if isnull(rs1(0)) then
newMaxOrderID=conn.execute("select OrderID,ClassID from SoftClass where ClassID="&PrevClassID)(0)
else
newMaxOrderID=rs1(0)
end if
newOrderID=newMaxOrderID-TotalMovingNumber
set rs1=nothing
response.Write("<br>最大前一栏目的OrderID:"&newMaxOrderID)
'更新同一顶类栏目的RootOrderID
conn.execute("update SoftClass set RootOrderID=RootOrderID+"&TotalMovingNumber&" where RootOrderID>"&newMaxRootOrderID&" and ParentIDPath like '0,"&newRootID&",%'")
'更新所有栏目的OrderID
conn.execute("update SoftClass set OrderID=OrderID-"&TotalMovingNumber&" where OrderID>"&oldOrderID&" and OrderID<="&newMaxOrderID&" and (ParentIDPath not like '0,"&newRootID&",%')")
'更新父栏目中的子栏目数量
conn.execute("Update SoftClass Set Child=Child+1 where ClassID="&newParentClassID)
'更新同一父栏目的上一个栏目的“NextID”字段值
conn.execute("update SoftClass set NextID=" & ClassID & " where ClassID=" & PrevClassID)

end if'移动的栏目包含子栏目且顶类栏目往前往后移动代码结束
'*********************************
'批量更新所有移动的子栏目的排序
'*********************************
response.Write("<br>批量更新所有移动的子栏目的排序--顶类栏目往前移动")
set rs=conn.execute("select * From SoftClass where ParentIDPath like '0,"&ClassID&",%'")
i=0
do while not rs.eof
i=i+1
tempParentIDPath=replace(rs("ParentIDPath"),"0,","0,"&newParentClassID&",")
conn.execute("update SoftClass set ClassDepth=ClassDepth+"&newClassDepth&"+1,RootOrderID="&newRootOrderID&"+"&i&",RootID="&newRootID&",ParentIDPath='"&tempParentIDPath&"'")
rs.movenext
loop
rs.close
set rs=nothing
else
'*************************************************************
'不同顶类栏目中的顶类栏目移动到别的不包含子栏目顶类栏目下
'*************************************************************
response.Write("<br>不同顶类栏目中的顶类栏目移动到别的不包含子栏目顶类栏目下:")
'获取新父栏目的子栏目中的当前类别的前一栏目
PrevClassID=0
'获取同一父类栏目中的排列顺序
newClassOrderID=1
'获取同一顶类栏目中的排列顺序
set rs1=conn.execute("select Max(RootOrderID) from SoftClass where ParentIDPath like '0,"&newParentClassID&",%'")
if isnull(rs1(0)) then
newMaxRootOrderID=conn.execute("select RootOrderID,ClassID from SoftClass where ClassID="&newParentClassID)(0)
else
newMaxRootOrderID=rs1(0)
end if
newRootOrderID=newMaxRootOrderID+1
set rs1=nothing
response.Write("<br>最大前一栏目的RootOrderID:"&newMaxRootOrderID)

if MovetoBehind=0 then'顶类栏目往前移动
'获取所有栏目中的排列顺序
set rs1=conn.execute("select Max(OrderID) from SoftClass where ParentIDPath like '0,"&newParentClassID&",%'")
if isnull(rs1(0)) then
newMaxOrderID=conn.execute("select OrderID,ClassID from SoftClass where ClassID="&newParentClassID)(0)
else
newMaxOrderID=rs1(0)
end if
newOrderID=newMaxOrderID+1
set rs1=nothing
response.Write("<br>最大前一栏目的OrderID:"&newMaxOrderID)
'更新同一顶类栏目的RootOrderID
conn.execute("update SoftClass set RootOrderID=RootOrderID+"&TotalMovingNumber&" where RootOrderID>"&newMaxRootOrderID&" and ParentIDPath like '0,"&newParentClassID&",%'")
'更新所有栏目的OrderID
conn.execute("update SoftClass set OrderID=OrderID+"&TotalMovingNumber&" where OrderID>"&newMaxOrderID&" and OrderID<"&oldOrderID)
'更新父栏目中的子栏目数量
conn.execute("Update SoftClass Set Child=Child+1 where ClassID="&newParentClassID)

else'顶类栏目往后移动
set rs1=conn.execute("select Max(OrderID) from SoftClass where ParentIDPath like '0,"&newParentClassID&",%'")
if isnull(rs1(0)) then
newMaxOrderID=conn.execute("select OrderID,ClassID from SoftClass where ClassID="&newParentClassID)(0)
newOrderID=newMaxOrderID-TotalMovingNumber
else
newMaxOrderID=rs1(0)
newOrderID=newMaxOrderID-TotalMovingNumber
end if
set rs1=nothing
'更新同一顶类栏目的RootOrderID
conn.execute("update SoftClass set RootOrderID=RootOrderID+"&TotalMovingNumber&" where RootOrderID>"&newMaxRootOrderID&" and ParentIDPath like '0,"&newParentClassID&",%'")
'更新所有栏目的OrderID
conn.execute("update SoftClass set OrderID=OrderID-"&TotalMovingNumber&" where OrderID>"&oldOrderID&" and OrderID<"&newMaxOrderID&" and (ParentIDPath not like '0,"&newParentClassID&",%')")
'更新父栏目中的子栏目数量
conn.execute("Update SoftClass Set Child=Child+1 where ClassID="&newParentClassID)
end if'顶类栏目往后移动分类代码结束

'批量更新所有移动的子栏目的排序
set rs=conn.execute("select * From SoftClass where ParentIDPath like '0,"&ClassID&",%'")
i=0
do while not rs.eof
i=i+1
tempParentIDPath=replace(rs("ParentIDPath"),"0,",newParentClassID)
conn.execute("update SoftClass set ClassDepth=ClassDepth+"&newClassDepth&"+1,RootOrderID="&newRootOrderID&"+"&i&",RootID="&newRootID&",ParentIDPath='"&tempParentIDPath&"'")
rs.movenext
loop
rs.close
set rs=nothing


end if'新父栏目包含与不包含子栏目分类代码结束

'******************************************
'由一级别移动到N级别(N>1)
'******************************************
ELSEIF oldParentID=0 and newParentClassRootID>0 then
response.Write("<br>由一级别移动到N级别(N>1)")
'分顶类栏目往前移动和往后移动
if oldClassOrderID>newParentClassOrderID then
MovetoBehind=0'顶类栏目往前移动
response.Write("<br>顶类栏目往前移动到N级栏目")
else
MovetoBehind=1'顶类栏目往后移动
response.Write("<br>顶类栏目往后移动到N级栏目")
end if
'查询当前移动栏目的子类别数量
set rs1=conn.execute("select Count(*) from SoftClass where ParentIDPath like '"&oldParentIDPath&","&ClassID&",%'")
if isnull(rs1(0)) then
ChildClassNumber=0
else
ChildClassNumber=rs1(0)
end if
set rs1=nothing
TotalMovingNumber=ChildClassNumber+1
response.Write("<br>当前移动栏目的栏目数量"&TotalMovingNumber)
newClassDepth=newParentClassDepth+1
newRootID=newParentClassRootID

if newParentClassChild>0 then
'*************************************************************
'不同顶类栏目中的顶类栏目移动到别的包含子栏目N级栏目下
'*************************************************************
response.Write("<br>不同顶类栏目中的顶类栏目移动到别的包含子栏目N级栏目下:")
'获取新父栏目的子栏目中的当前类别的前一栏目
newPrevClassOrderID=conn.execute("select Max(ClassOrderID) from SoftClass where ParentID="&newParentClassID)(0)
PrevClassID=conn.execute("select ClassID,ClassOrderID from SoftClass where ClassOrderID="&newPrevClassOrderID&" and ParentID="&newParentClassID)(0)
response.Write("<br>前一子栏目ID"&PrevClassID)
conn.execute("Update SoftClass set NextID="&ClassID&" where ClassID="&PrevClassID)
newClassOrderID=newPrevClassOrderID+1
response.Write("<br>当前父栏目已经存在的子栏目数量"&newPrevClassOrderID)
'获取同一顶类栏目中的排列顺序
set rs1=conn.execute("select Max(RootOrderID) from SoftClass where ParentIDPath like '"&newParentClassIDPath&newParentClassID&","&PrevClassID&",%'")
if isnull(rs1(0)) then
newMaxRootOrderID=conn.execute("select RootOrderID,ClassID from SoftClass where ClassID="&PrevClassID)(0)
else
newMaxRootOrderID=rs1(0)
end if
newRootOrderID=newMaxRootOrderID+1
set rs1=nothing
response.Write("<br>当前同一顶类最大排序:"&newMaxRootOrderID)

if MovetoBehind=0 then'移动的栏目包含子栏目且顶类栏目往前移动

'获取所有栏目中的排列顺序
set rs1=conn.execute("select Max(OrderID) from SoftClass where ParentIDPath like '"&newParentClassIDPath&newParentClassID&","&PrevClassID&",%'")
if isnull(rs1(0)) then
newMaxOrderID=conn.execute("select OrderID,ClassID from SoftClass where ClassID="&PrevClassID)(0)
else
newMaxOrderID=rs1(0)
end if
newOrderID=newMaxOrderID+1
set rs1=nothing
response.Write("<br>前一栏目总排序:"&newMaxOrderID)
response.Write("<br>新父栏目的顶类栏目CLASSID:"&newParentClassRootID)
'更新同一顶类栏目的RootOrderID
conn.execute("update SoftClass set RootOrderID=RootOrderID+"&TotalMovingNumber&" where RootOrderID>"&newMaxRootOrderID&" and RootID="&newRootID)
'更新所有栏目的OrderID
conn.execute("update SoftClass set OrderID=OrderID+"&TotalMovingNumber&" where OrderID>"&newMaxOrderID&" and OrderID<"&oldOrderID)
'更新父栏目中的子栏目数量
conn.execute("Update SoftClass Set Child=Child+1 where ClassID="&newParentClassID)

else'移动的栏目包含子栏目且顶类栏目往后移动

set rs1=conn.execute("select Max(OrderID) from SoftClass where ParentIDPath like '"&newParentClassIDPath&newParentClassID&","&PrevClassID&",%'")
if isnull(rs1(0)) then
newMaxOrderID=conn.execute("select OrderID,ClassID from SoftClass where ClassID="&PrevClassID)(0)
else
newMaxOrderID=rs1(0)
end if
newOrderID=newMaxOrderID-TotalMovingNumber
set rs1=nothing
'更新同一顶类栏目的RootOrderID
conn.execute("update SoftClass set RootOrderID=RootOrderID+"&TotalMovingNumber&" where RootOrderID>"&newMaxRootOrderID&" and ParentIDPath like '0,"&newParentClassRootID&",%'")
'更新所有栏目的OrderID
conn.execute("update SoftClass set OrderID=OrderID-"&TotalMovingNumber&" where OrderID>"&oldOrderID&" and OrderID<="&newMaxOrderID&" and (ParentIDPath not like '"&newParentClassIDPath&","&ClassID&",%')")
'更新父栏目中的子栏目数量
conn.execute("Update SoftClass Set Child=Child+1 where ClassID="&newParentClassID)
'更新同一父栏目的上一个栏目的“NextID”字段值
conn.execute("update SoftClass set NextID=" & ClassID & " where ClassID=" & PrevClassID)
end if'移动的栏目包含子栏目且顶类栏目往前往后移动代码结束

else
'*************************************************************
'不同顶类栏目中的顶类栏目移动到别的不包含子栏目N级栏目下
'*************************************************************
response.Write("<br>不同顶类栏目中的顶类栏目移动到别的不包含子栏目N级栏目下:")
'获取新父栏目的子栏目中的当前类别的前一栏目
PrevClassID=0
'获取同一父类栏目中的排列顺序
newClassOrderID=1

'获取同一顶类栏目中的排列顺序
newMaxRootOrderID=conn.execute("select RootOrderID,ClassID from SoftClass where ClassID="&newParentClassID)(0)
newRootOrderID=newMaxRootOrderID+1
response.Write("<br>最大存在上一顶类栏目的RootOrderID"&newMaxRootOrderID)

if MovetoBehind=0 then'新父类栏目不包含子栏目且顶类栏目往前移动
'获取所有栏目中的排列顺序
newMaxOrderID=conn.execute("select OrderID,ClassID from SoftClass where ClassID="&newParentClassID)(0)
newOrderID=newMaxOrderID+1

'更新同一顶类栏目的RootOrderID
conn.execute("update SoftClass set RootOrderID=RootOrderID+"&TotalMovingNumber&" where RootOrderID>"&newMaxRootOrderID&" and ParentIDPath like '0,"&newParentClassRootID&",%'")
'更新所有栏目的OrderID
conn.execute("update SoftClass set OrderID=OrderID+"&TotalMovingNumber&" where OrderID>"&newMaxOrderID&" and OrderID<"&oldOrderID)
'更新父栏目中的子栏目数量
conn.execute("Update SoftClass Set Child=Child+1 where ClassID="&newParentClassID)
else'新父类栏目不包含子栏目且顶类栏目往后移动
newMaxOrderID=conn.execute("select OrderID,ClassID from SoftClass where ClassID="&newParentClassID)(0)
newOrderID=newMaxOrderID-TotalMovingNumber
'更新同一顶类栏目的RootOrderID
conn.execute("update SoftClass set RootOrderID=RootOrderID+"&TotalMovingNumber&" where RootOrderID>"&newMaxRootOrderID&" and ParentIDPath like '0,"&newParentClassRootID&",%'")
'更新所有栏目的OrderID
conn.execute("update SoftClass set OrderID=OrderID-"&TotalMovingNumber&" where OrderID>"&oldOrderID&" and OrderID<="&newMaxOrderID&" and (ParentIDPath not like '"&newParentClassIDPath&","&ClassID&",%')")
'更新父栏目中的子栏目数量
conn.execute("Update SoftClass Set Child=Child+1 where ClassID="&newParentClassID)
end if'顶类栏目往后移动分类代码结束

end if'移动的栏目包含与不包含子栏目分类代码结束

'******************************************
'由N级别移动到1级别栏目下
'******************************************
ELSEIF oldParentID>0 and newParentClassRootID=0 and newParentClassID>0 then

'查询当前移动栏目的子类别数量
set rs1=conn.execute("select Count(*) from SoftClass where ParentIDPath like '"&oldParentIDPath&","&ClassID&",%'")
if isnull(rs1(0)) then
ChildClassNumber=0
else
ChildClassNumber=rs1(0)
end if
set rs1=nothing
TotalMovingNumber=ChildClassNumber+1
response.Write("<br>当前移动栏目的栏目数量"&TotalMovingNumber)
newRootID=newParentClassID

if newParentClassChild>0 then
'*************************************************************
'不同顶类栏目中的N级栏目移动到别的包含子栏目的1级栏目下
'*************************************************************
response.Write("<br>不同顶类栏目中的N级栏目移动到别的包含子栏目的1级栏目下:")
'获取新父栏目的子栏目中的当前类别的前一栏目
newPrevClassOrderID=conn.execute("select Max(ClassOrderID) from SoftClass where ParentID="&newParentClassID)(0)
PrevClassID=conn.execute("select ClassID,ClassOrderID from SoftClass where ClassOrderID="&newPrevClassOrderID&" and ParentID="&newParentClassID)(0)
response.Write("<br>前一子栏目ID"&PrevClassID)
conn.execute("Update SoftClass set NextID="&ClassID&" where ClassID="&PrevClassID)
newClassOrderID=newPrevClassOrderID+1
response.Write("<br>当前父栏目已经存在的子栏目数量"&newPrevClassOrderID)
'获取同一顶类栏目中的排列顺序
set rs1=conn.execute("select Max(RootOrderID) from SoftClass where ParentIDPath like '"&newParentClassIDPath&","&PrevClassID&",%'")
if isnull(rs1(0)) then
newMaxRootOrderID=conn.execute("select RootOrderID,ClassID from SoftClass where ClassID="&newParentClassID)(0)
else
newMaxRootOrderID=rs1(0)
end if
newRootOrderID=newMaxRootOrderID+1
set rs1=nothing
response.Write("<br>当前同一顶类最大排序:"&newMaxRootOrderID)

set rs1=conn.execute("select Max(OrderID) from SoftClass where ParentIDPath like '"&newParentClassIDPath&","&PrevClassID&",%'")
if isnull(rs1(0)) then
newMaxOrderID=conn.execute("select OrderID,ClassID from SoftClass where ClassID="&PrevClassID)(0)
newOrderID=newMaxOrderID-TotalMovingNumber
else
newMaxOrderID=rs1(0)
newOrderID=newMaxOrderID-TotalMovingNumber
end if
set rs1=nothing
'更新同一顶类栏目的RootOrderID
conn.execute("update SoftClass set RootOrderID=RootOrderID+"&TotalMovingNumber&" where RootOrderID>"&newMaxRootOrderID&" and ParentIDPath like '0,"&newParentClassID&",%'")
'更新所有栏目的OrderID
conn.execute("update SoftClass set OrderID=OrderID-"&TotalMovingNumber&" where OrderID>"&oldOrderID&" and OrderID<="&newMaxOrderID&" and (ParentIDPath not like '0,"&newParentClassID&",%')")


else
'*************************************************************
'不同顶类栏目中的N级栏目移动到别的不包含子栏目1级栏目下
'*************************************************************
response.Write("<br>不同顶类栏目中的N级栏目移动到别的不包含子栏目1级栏目下:")
'获取新父栏目的子栏目中的当前类别的前一栏目
PrevClassID=0
'获取同一父类栏目中的排列顺序
newClassOrderID=1
response.Write("<br>当前父类ClassID:"&newParentClassID)
'获取同一顶类栏目中的排列顺序
set rs1=conn.execute("select Max(RootOrderID) from SoftClass where ParentIDPath like '0,"&newParentClassID&",%'")
if isnull(rs1(0)) then
newMaxRootOrderID=conn.execute("select RootOrderID,ClassID from SoftClass where ClassID="&newParentClassID)(0)
else
newMaxRootOrderID=rs1(0)
end if
newRootOrderID=newMaxRootOrderID+1
set rs1=nothing
response.Write("<br>前一栏目的RootOrderID"&newMaxRootOrderID)
set rs1=conn.execute("select Max(OrderID) from SoftClass where ParentIDPath like '0,"&newParentClassID&",%'")
if isnull(rs1(0)) then
newMaxOrderID=conn.execute("select OrderID,ClassID from SoftClass where ClassID="&newParentClassID)(0)
else
newMaxOrderID=rs1(0)
end if
newOrderID=newMaxOrderID-TotalMovingNumber
set rs1=nothing
response.Write("<br>前一栏目的OrderID"&newMaxOrderID)
'更新同一顶类栏目的RootOrderID
conn.execute("update SoftClass set RootOrderID=RootOrderID+"&TotalMovingNumber&" where RootOrderID>"&newMaxRootOrderID&" and ParentIDPath like '0,"&newParentClassID&",%'")
'更新所有栏目的OrderID
conn.execute("update SoftClass set OrderID=OrderID-"&TotalMovingNumber&" where OrderID>"&oldOrderID&" and OrderID<="&newMaxOrderID&" and (ParentIDPath not like '0,"&newParentClassID&","&ClassID&",%')")

end if'移动的栏目包含与不包含子栏目分类代码结束

'******************************************
'由N级别移动到根目录下
'******************************************
ELSEIF oldParentID>0 and newParentClassID=0 then
'*************************************************************
'不同顶类栏目中的N级栏目移动到根目录下
'*************************************************************]
response.Write("<br>由N级别移动到根目录下:")
'查询当前移动栏目的子类别数量
set rs1=conn.execute("select Count(*) from SoftClass where ParentIDPath like '"&oldParentIDPath&","&ClassID&",%'")
if isnull(rs1(0)) then
ChildClassNumber=0
else
ChildClassNumber=rs1(0)
end if
set rs1=nothing
TotalMovingNumber=ChildClassNumber+1
response.Write("<br>当前移动栏目的栏目数量:"&TotalMovingNumber)
newClassDepth=0
newRootID=0

'获取新父栏目的子栏目中的当前类别的前一栏目
newPrevClassOrderID=conn.execute("select Max(ClassOrderID) from SoftClass where ParentID=0")(0)
PrevClassID=conn.execute("select ClassID,ClassOrderID from SoftClass where ClassOrderID="&newPrevClassOrderID&" and ParentID=0")(0)
response.Write("<br>前一顶类栏目的ClassID"&PrevClassID)
conn.execute("Update SoftClass set NextID="&ClassID&" where ClassID="&PrevClassID)
newClassOrderID=newPrevClassOrderID+1
response.Write("<br>根栏目中的当前栏目的排序:"&newClassOrderID)
'获取同一顶类栏目中的排列顺序
newRootOrderID=1

newMaxOrderID=conn.execute("select Max(OrderID) from SoftClass where ParentIDPath like '0,"&PrevClassID&",%'")(0)
if newMaxOrderID=oldOrderID then
newOrderID=newMaxOrderID
else
newOrderID=newMaxOrderID-TotalMovingNumber
end if
set rs1=nothing
'更新历史同一顶类栏目的RootOrderID
conn.execute("update SoftClass set RootOrderID=RootOrderID-"&TotalMovingNumber&" where RootOrderID>"&oldRootOrderID&" and RootID="&oldRootID&" and (ParentIDPath not like '"&oldParentIDPath&",%')")
if newOrderID<>oldOrderID then
'更新所有栏目的OrderID
conn.execute("update SoftClass set OrderID=OrderID-"&TotalMovingNumber&" where OrderID>"&oldOrderID&" and OrderID<="&newOrderID&" and (ParentIDPath not like '"&oldParentIDPath&",%')")
end if

'批量更新所有移动的子栏目的排序
set rs=conn.execute("select * From SoftClass where ParentIDPath like '"&oldParentIDPath&",%'")
i=0
do while not rs.eof
if rs("ClassDepth")>1 then
tempParentIDPath=replace(rs("ParentIDPath"),oldParentIDPath,"0,")
conn.execute("update SoftClass set ClassDepth=ClassDepth-"&oldClassDepth&"+1,RootOrderID="&newRootOrderID&"+"&i&",RootID="&ClassID&",ParentIDPath='"&tempParentIDPath&"'")
end if
rs.movenext
i=i+1
loop
rs.close
set rs=nothing

'******************************************
'类别由N级别移动到N级别(N>1)
'******************************************
ELSE '(oldParentID>0 and newParentClassRootID>0)
'分移动到相同顶类的栏目跟不同顶类的栏目下
'移动到不同顶类目录下分往前移动和往后移动两类
newClassDepth=newParentClassDepth+1

if oldRootID<>newParentClassRootID then

'分顶类栏目往前移动和往后移动
oldTopClassOrderID=Clng(conn.execute("select ClassOrderID,ClassID from SoftClass where RootID="&oldRootID)(0))
if oldTopClassOrderID>newParentClassOrderID then
MovetoBehind=0'顶类栏目往前移动
else
MovetoBehind=1'顶类栏目往后移动
end if

'查询当前移动栏目的子类别数量
set rs1=conn.execute("select Count(*) from SoftClass where ParentIDPath like '"&oldParentIDPath&","&ClassID&",%'")
if isnull(rs1(0)) then
ChildClassNumber=0
else
ChildClassNumber=rs1(0)
end if
set rs1=nothing
TotalMovingNumber=ChildClassNumber+1
MaxOldChildOrderID=oldOrderID+ChildClassNumber

if newParentClassChild>0 then'移动到包含子栏目的N级类别下
'*************************************************************
'不同顶类栏目中的N级栏目移动到别的包含子栏目N级栏目下
'*************************************************************
response.Write("<br>不同顶类栏目中的N级栏目移动到别的包含子栏目N级栏目下:")
'获取新父栏目的子栏目中的当前类别的前一栏目
PrevClassID=conn.execute("select Max(ClassID) from SoftClass where ParentID="&newParentClassID)(0)
conn.execute("Update SoftClass set NextID="&ClassID&" where ClassID="&PrevClassID)
'获取同一父类栏目中的排列顺序
newPrevClassOrderID=conn.execute("select Max(ClassOrderID) from SoftClass where ParentID="&newParentClassID)(0)

newClassOrderID=newPrevClassOrderID+1

'获取同一顶类栏目中的排列顺序
set rs1=conn.execute("select Max(RootOrderID) from SoftClass where ParentIDPath like '"&newParentClassIDPath&","&PrevClassID&",%'")
if isnull(rs1(0)) then
newMaxRootOrderID=conn.execute("select RootOrderID,ClassID from SoftClass where ClassID="&PrevClassID)(0)
else
newMaxRootOrderID=rs1(0)
end if
newRootOrderID=newMaxRootOrderID+1
set rs1=nothing
response.Write("<br>前一栏目的RootOrderID"&newMaxRootOrderID)

if MovetoBehind=0 then'移动栏目包含子栏目且其顶类栏目往前移动
'获取所有栏目中的排列顺序
set rs1=conn.execute("select Max(OrderID) from SoftClass where ParentIDPath like '"&newParentClassIDPath&","&PrevClassID&",%'")
if isnull(rs1(0)) then
newMaxOrderID=conn.execute("select OrderID,ClassID from SoftClass where ClassID="&newParentClassID)(0)
else
newMaxOrderID=rs1(0)
end if
newOrderID=newMaxOrderID+1
set rs1=nothing
response.Write("<br>前一栏目的OrderID"&newMaxOrderID)
'更新同一顶类栏目的RootOrderID
conn.execute("update SoftClass set RootOrderID=RootOrderID+"&TotalMovingNumber&" where RootOrderID>"&newMaxRootOrderID&" and ParentIDPath like '0,"&newParentClassRootID&",%'")
'更新所有栏目的OrderID
conn.execute("update SoftClass set OrderID=OrderID+"&TotalMovingNumber&" where OrderID>"&newOrderID&" and OrderID<"&MaxOldChildOrderID&" and ParentIDPath not like '"&oldParentIDPath&","&ClassID&",%' ")
'更新父栏目中的子栏目数量
conn.execute("Update SoftClass Set Child=Child+1 where ClassID="&newParentClassID)
'更新同一父栏目的上一个栏目的“NextID”字段值
conn.execute("update SoftClass set NextID=" & ClassID & " where ClassID=" & PrevClassID)

else'移动栏目包含子栏目且其顶类栏目往后移动

set rs1=conn.execute("select Max(OrderID) from SoftClass where ParentIDPath like '"&newParentClassIDPath&","&PrevClassID&",%'")
if isnull(rs1(0)) then
newMaxOrderID=conn.execute("select OrderID,ClassID from SoftClass where ClassID="&PrevClassID)(0)
else
newMaxOrderID=rs1(0)
end if
newOrderID=newMaxOrderID-TotalMovingNumber
set rs1=nothing
response.Write("<br>前一栏目的OrderID"&newMaxOrderID)
'更新同一顶类栏目的RootOrderID
conn.execute("update SoftClass set RootOrderID=RootOrderID+"&TotalMovingNumber&" where RootOrderID>"&newMaxRootOrderID&" and ParentIDPath like '0,"&newParentClassRootID&",%'")
'更新所有栏目的OrderID
conn.execute("update SoftClass set OrderID=OrderID-"&TotalMovingNumber&" where OrderID>"&oldOrderID&" and OrderID<="&newMaxOrderID&" and (ParentIDPath not like '"&newParentClassIDPath&","&ClassID&",%')")
'更新父栏目中的子栏目数量
conn.execute("Update SoftClass Set Child=Child+1 where ClassID="&newParentClassID)
'更新同一父栏目的上一个栏目的“NextID”字段值
conn.execute("update SoftClass set NextID=" & ClassID & " where ClassID=" & PrevClassID)
end if

else'移动到不包含子栏目的N级类别下
'*************************************************************
'不同顶类栏目中的N级栏目移动到别的不包含子栏目N级栏目下
'*************************************************************
response.Write("<br>不同顶类栏目中的N级栏目移动到别的不包含子栏目N级栏目下:")
PrevClassID=0
'获取同一父类栏目中的排列顺序
newClassOrderID=1
'获取同一顶类栏目中的排列顺序
set rs1=conn.execute("select Max(RootOrderID) from SoftClass where ParentIDPath like '"&newParentClassIDPath&",%'")
if isnull(rs1(0)) then
newMaxRootOrderID=conn.execute("select RootOrderID,ClassID from SoftClass where ClassID="&newParentClassID)(0)
else
newMaxRootOrderID=rs1(0)
end if
newRootOrderID=newMaxRootOrderID+1
set rs1=nothing
response.Write("<br>前一栏目的RootOrderID"&newMaxRootOrderID)

if MovetoBehind=0 then'移动栏目不包含子栏目且其顶类栏目往前移动
'获取所有栏目中的排列顺序
set rs1=conn.execute("select Max(OrderID) from SoftClass where ParentIDPath like '"&newParentClassIDPath&",%'")
if isnull(rs1(0)) then
newMaxOrderID=conn.execute("select OrderID,ClassID from SoftClass where ClassID="&newParentClassID)(0)
else
newMaxOrderID=rs1(0)
end if
newOrderID=newMaxOrderID+1
set rs1=nothing
response.Write("<br>前一栏目的OrderID"&newMaxOrderID)
'更新同一顶类栏目的RootOrderID
conn.execute("update SoftClass set RootOrderID=RootOrderID+"&TotalMovingNumber&" where RootOrderID>"&newMaxRootOrderID&" and ParentIDPath like '0,"&newParentClassRootID&",%'")
'更新所有栏目的OrderID
conn.execute("update SoftClass set OrderID=OrderID+"&TotalMovingNumber&" where OrderID>"&newMaxOrderID&" and OrderID<"&oldOrderID)
'更新所有栏目的OrderID
conn.execute("update SoftClass set OrderID=OrderID-"&TotalMovingNumber&" where OrderID>"&oldOrderID&" and (ParentIDPath not like '"&newParentClassIDPath&","&ClassID&",%')")
'更新父栏目中的子栏目数量
conn.execute("Update SoftClass Set Child=Child+1 where ClassID="&newParentClassID)

else'移动栏目不包含子栏目且其顶类栏目往后移动
'获取所有栏目中的排列顺序
set rs1=conn.execute("select Max(OrderID) from SoftClass where ParentIDPath like '"&newParentClassIDPath&",%'")
if isnull(rs1(0)) then
newMaxOrderID=conn.execute("select OrderID,ClassID from SoftClass where ClassID="&newParentClassID)(0)
else
newMaxOrderID=rs1(0)
end if
newOrderID=newMaxOrderID-TotalMovingNumber
set rs1=nothing
response.Write("<br>前一栏目的OrderID"&newMaxOrderID)
'更新同一顶类栏目的RootOrderID
conn.execute("update SoftClass set RootOrderID=RootOrderID+"&TotalMovingNumber&" where RootOrderID>"&newMaxRootOrderID&" and ParentIDPath like '0,"&newParentClassRootID&",%'")
'更新所有栏目的OrderID
conn.execute("update SoftClass set OrderID=OrderID-"&TotalMovingNumber&" where OrderID>"&oldOrderID&" and OrderID<="&newMaxOrderID&" and (ParentIDPath not like '"&newParentClassIDPath&","&ClassID&",%')")
'更新父栏目中的子栏目数量
conn.execute("Update SoftClass Set Child=Child+1 where ClassID="&newParentClassID)

end if

end if'不同顶类N层栏目移动的代码结束

'**********************************
'要移动的栏目在相同顶类栏目之间移动
'**********************************
else
'查询当前移动栏目的子类别数量
set rs1=conn.execute("select Count(*) from SoftClass where ParentIDPath like '"&oldParentIDPath&","&ClassID&",%'")
if isnull(rs1(0)) then
ChildClassNumber=0
else
ChildClassNumber=rs1(0)
end if
set rs1=nothing
TotalMovingNumber=ChildClassNumber+1

if newParentClassChild>0 then'移动到包含子栏目的N级类别下
'*************************************************************
'相同顶类栏目中的N级栏目移动到别的包含子栏目N级栏目下
'*************************************************************
response.Write("<br>同一顶类栏目中的N级栏目移动到别的包含子栏目N级栏目下:")
'获取新父栏目的子栏目中的当前类别的前一栏目
PrevClassOrderID=conn.execute("select Max(ClassOrderID) from SoftClass where ParentID="&newParentClassID)
PrevClassID=conn.execute("select ClassID,ClassOrderID from SoftClass where ParentID="&newParentClassID&" and ClassOrderID="&PrevClassOrderID)
conn.execute("Update SoftClass set NextID="&ClassID&" where ClassID="&PrevClassID)
'获取同一父类栏目中的排列顺序
newPrevClassOrderID=conn.execute("select Max(ClassOrderID) from SoftClass where ParentID="&newParentClassID)(0)

newClassOrderID=newPrevClassOrderID+1

'获取同一顶类栏目中的排列顺序
set rs1=conn.execute("select Max(RootOrderID) from SoftClass where ParentIDPath like '"&newParentClassIDPath&","&PrevClassID&",%'")
if isnull(rs1(0)) then
newMaxRootOrderID=conn.execute("select RootOrderID,ClassID from SoftClass where ClassID="&PrevClassID)(0)
else
newMaxRootOrderID=rs1(0)
end if
newRootOrderID=newMaxRootOrderID+1
set rs1=nothing
response.Write("<br>前一栏目的RootOrderID"&newMaxRootOrderID)

if oldClassOrderID>newParentClassOrderID then'同一顶类栏目中移动栏目包含子栏目且往前移动
'获取所有栏目中的排列顺序
set rs1=conn.execute("select Max(OrderID) from SoftClass where ParentIDPath like '"&newParentClassIDPath&","&PrevClassID&",%'")
if isnull(rs1(0)) then
newMaxOrderID=conn.execute("select OrderID,ClassID from SoftClass where ClassID="&newParentClassID)(0)
else
newMaxOrderID=rs1(0)
end if
newOrderID=newMaxOrderID+1
set rs1=nothing
response.Write("<br>前一栏目的OrderID"&newMaxOrderID)
'更新同一顶类栏目的RootOrderID
conn.execute("update SoftClass set RootOrderID=RootOrderID+"&TotalMovingNumber&" where RootOrderID>"&newMaxRootOrderID&" and RootOrderID<"&oldRootOrderID&" and RootID="&oldRootID)
'更新所有栏目的OrderID
conn.execute("update SoftClass set OrderID=OrderID+"&TotalMovingNumber&" where OrderID>"&newMaxOrderID&" and OrderID<"&oldOrderID&" and RootID="&oldRootID)
'更新父栏目中的子栏目数量
conn.execute("Update SoftClass Set Child=Child+1 where ClassID="&newParentClassID)
'更新同一父栏目的上一个栏目的“NextID”字段值
conn.execute("update SoftClass set NextID=" & ClassID & " where ClassID=" & PrevClassID)

else'移动栏目包含子栏目且其顶类栏目往后移动

set rs1=conn.execute("select Max(OrderID) from SoftClass where ParentIDPath like '"&newParentClassIDPath&","&PrevClassID&",%'")
if isnull(rs1(0)) then
newMaxOrderID=conn.execute("select OrderID,ClassID from SoftClass where ClassID="&PrevClassID)(0)
else
newMaxOrderID=rs1(0)
end if
newOrderID=newMaxOrderID-TotalMovingNumber
set rs1=nothing
response.Write("<br>前一栏目的OrderID"&newMaxOrderID)
'更新同一顶类栏目的RootOrderID
conn.execute("update SoftClass set RootOrderID=RootOrderID+"&TotalMovingNumber&" where RootOrderID>"&newMaxRootOrderID&" and RootOrderID<"&oldRootOrderID&" and RootID="&oldRootID)
'更新所有栏目的OrderID
conn.execute("update SoftClass set OrderID=OrderID-"&TotalMovingNumber&" where OrderID>"&oldOrderID&" and OrderID<="&newMaxOrderID&" and RootID="&oldRootID)
'更新父栏目中的子栏目数量
conn.execute("Update SoftClass Set Child=Child+1 where ClassID="&newParentClassID)
'更新同一父栏目的上一个栏目的“NextID”字段值
conn.execute("update SoftClass set NextID=" & ClassID & " where ClassID=" & PrevClassID)
end if

else'移动到不包含子栏目的N级类别下
'*************************************************************
'相同顶类栏目中的N级栏目移动到别的不包含子栏目N级栏目下
'*************************************************************
response.Write("<br>同一顶类栏目中的N级栏目移动到别的不包含子栏目N级栏目下:")
PrevClassID=0
'获取同一父类栏目中的排列顺序
newClassOrderID=1
'获取同一顶类栏目中的排列顺序
set rs1=conn.execute("select Max(RootOrderID) from SoftClass where ParentIDPath like '"&newParentClassIDPath&",%'")
if isnull(rs1(0)) then
newMaxRootOrderID=conn.execute("select RootOrderID,ClassID from SoftClass where ClassID="&newParentClassID)(0)
else
newMaxRootOrderID=rs1(0)
end if
newRootOrderID=newMaxRootOrderID+1
set rs1=nothing
response.Write("<br>前一栏目的RootOrderID:"&newMaxRootOrderID)
if oldClassOrderID>newParentClassOrderID then'移动栏目不包含子栏目且其顶类栏目往前后移动
'获取所有栏目中的排列顺序
set rs1=conn.execute("select Max(OrderID) from SoftClass where ParentIDPath like '"&newParentClassIDPath&",%'")
if isnull(rs1(0)) then
newMaxOrderID=conn.execute("select OrderID,ClassID from SoftClass where ClassID="&newParentClassID)(0)
else
newMaxOrderID=rs1(0)
end if
newOrderID=newMaxOrderID+1
set rs1=nothing
response.Write("<br>前一栏目的OrderID:"&newMaxOrderID)
'更新同一顶类栏目的RootOrderID
conn.execute("update SoftClass set RootOrderID=RootOrderID+"&TotalMovingNumber&" where RootOrderID>"&newMaxRootOrderID&" and RootOrderID<"&oldRootOrderID&" and RootID="&oldRootID)
'更新所有栏目的OrderID
conn.execute("update SoftClass set OrderID=OrderID+"&TotalMovingNumber&" where OrderID>"&newMaxOrderID&" and OrderID<"&oldOrderID)
'更新所有栏目的OrderID
conn.execute("update SoftClass set OrderID=OrderID-"&TotalMovingNumber&" where OrderID>"&oldOrderID&" and OrderID<="&newMaxOrderID&" and RootID="&oldRootID)
'更新父栏目中的子栏目数量
conn.execute("Update SoftClass Set Child=Child+1 where ClassID="&newParentClassID)

else'移动栏目不包含子栏目且其顶类栏目往后移动

set rs1=conn.execute("select Max(OrderID) from SoftClass where ParentIDPath like '"&newParentClassIDPath&",%'")
if isnull(rs1(0)) then
newMaxOrderID=conn.execute("select OrderID,ClassID from SoftClass where ClassID="&newParentClassID)(0)
else
newMaxOrderID=rs1(0)
end if
newOrderID=newMaxOrderID-TotalMovingNumber
set rs1=nothing
response.Write("<br>前一栏目的OrderID:"&newMaxOrderID)
'更新同一顶类栏目的RootOrderID
conn.execute("update SoftClass set RootOrderID=RootOrderID+"&TotalMovingNumber&" RootOrderID>"&newMaxRootOrderID&" and RootOrderID<"&oldRootOrderID&" and RootID="&oldRootID)
'更新所有栏目的OrderID
conn.execute("update SoftClass set OrderID=OrderID-"&TotalMovingNumber&" where OrderID>"&oldOrderID&" and OrderID<="&newMaxOrderID&" and RootID="&oldRootID)
'更新父栏目中的子栏目数量
conn.execute("Update SoftClass Set Child=Child+1 where ClassID="&newParentClassID)
end if'同一顶类栏目中移动栏目

end if'移动到包含与不包含子栏目的N级类代码结束

END IF
END IF
END IF
'移动栏目资料修改结束

'创建对应的类别目录
if IsCreateFolder=1 then
response.Write("<br>"&ClassLocalPath)
CreateFolder ClassLocalPath,IsCreateFolder
end if


'更新数据库对应类别的字段值

UserIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If UserIP = "" Then UserIP = Request.ServerVariables("REMOTE_ADDR")
UserFrom=Cstr(Request.ServerVariables("HTTP_REFERER"))

CorrectSqlClassFolderName=replace(ClassFolderName,"'","''")
CorrectSqlClassName=replace(ClassName,"'","''")
set rs=server.CreateObject("Adodb.recordset")
sql="select * from SoftClass where ClassID="&ClassID
rs.open sql,conn,3,3
if rs.eof and rs.bof then
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write("<script>alert('栏目类别数据不存在！系统即将返回');history.go(-1);</script>")
response.end
else
rs("ChannelID")=ChannelID
rs("ChannelName")=ChannelName
rs("ChannelFolderPath")=ChannelFolderPath
rs("ChannelFolderUrl")=ChannelFolderUrl

rs("ParentName")=newParentClassName
rs("ParentID")=newParentClassID


rs("ClassName")=ClassName
rs("ClassFolderName")=ClassFolderName
rs("ClassFolderPath")=ClassFolderPath
rs("ClassLocalPath")=ClassLocalPath

rs("ClassDepth")=newClassDepth
if newClassDepth>0 then
rs("RootID")=newParentClassID
else
rs("RootID")=0
end if

rs("ClassMemo")=ClassMemo
rs("ClassKeyWords")=ClassKeyWords
rs("ClassDescription")=ClassDescription
rs("IsCreateFolder")=IsCreateFolder

if rstUpdateQuried=1 then

rs("PrevID")=PrevClassID
rs("OrderID")=newOrderID
rs("RootOrderID")=newRootOrderID
rs("ClassOrderID")=newClassOrderID
end if

rs("UpdateUser")=Session("ManagerUserName")
rs("UpdateTime")=now()
rs("UpdateIP")=UserIP
rs("UpdateFrom")=UserFrom
rs.update
end if
rs.close
set rs=nothing

conn.close
set conn=nothing
response.write("<br>栏目类别"&ClassName&"修改完成！系统即将返回列表<a href='ClassList.asp'>点这里返回</a>")
response.End()
response.write("<script>alert('栏目类别"&ClassName&"修改完成！系统即将返回列表');location.href='ClassList.asp';</script>")
response.End()

end if

%>

iteye_14539
关注
asp飞飞无限级分类v1.0 Asp+sql+存储过程+ajax提供下载
01-02
p技术乐园***能说明： 基于AJAX树状目录显示 支持灵活的 目录添加、删除、修改、排序、栏目备注、栏目移动[向上] 支持 栏目选择 使用说明： 默认首页: index.asp 可以进行 目录添加、删除、修改、排序、栏目...
Sql存储过程版无限级分类
03-06
支持灵活的 目录添加、删除、修改、排序、栏目备注、栏目移动[向上] 支持 栏目选择 1.基于AJAX树状目录显示 2.支持灵活的 目录添加、删除、修改、排序、栏目备注、栏目移动[向上] 3.可以给栏目选择显示颜色 4.支持 ...
无限分类编辑移动栏目代码
iteye_14539的博客
06-17 78
'系统页面加载初始化参数设定 ClassID=request("ClassID") if ClassID="" or not isnumeric(ClassID) then response.Write("&lt;script&gt;alert('传递参数错误!系统即将返回!');history.go(-1);&lt;/script&gt;") response.End() end ...
织梦定时更新栏目html,网站栏目添加与维护
weixin_33301143的博客
05-30 537
1. 网站栏目添加与维护1.1. 网站栏目管理网站栏目管理是网站的核心部分，是网站内容添加的前提条件。网站栏目也是网站首页的导航条，有着引导网站用户的作用。同时他还是网站地图，在后台生成的百度Sitemap中就有相关的栏目内容。网站栏目在网站中起着十分重要的作用。网站栏目管理：进入网站后台，选择“核心/网站栏目管理”(如图1)。 图11.2. 网站栏目增加与排序网站栏目可以单个增加，也可以批量增加...
django 非常实用的无限级分类功能
qq377473611的专栏
02-24 1964
利用model中的save方法，变相的实现递归循环，所有子分类都能在其中更新，感觉挺巧妙，之前的实现方式确实太烂了。    order的方法竟然支持1:23:2 这种方式的排序，轻松解决以前靠order_id排序的弊端。精简了代码。 其中一断代码： 利用reverse 方法反推url，与无限级的order 还能用在自动生成类别链接上，便捷灵活。   1 2
改造的二分法无限分类
随波主流
05-30 317
那么理想中的树型结构应具备哪些特点呢？数据存储冗余小、直观性强；方便返回整个树型结构数据；可以很轻松的返回某一子树（方便分层加载）；快整获以某节点的祖谱路径；插入、删除、移动节点效率高等等。带着这些需求我查找了很多资料，发现了一种理想的树型结构数据存储及操作算法，改进的前序遍历树模型（The Nested Set Model）。 原理：     我们先把树按照水平方式摆开。从根节点开始（“...
数据库无限级分类
JunChow
05-15 606
程序设计中常使用树型结构来表征某些数据的关联关系，如上下级、栏目结构、商品分类、菜单、回复等。 分类的层级关系可以表述为一父多子的继承关系，对应数据结构中的树。因此，分类问题可以转换为如何在数据库中存储一棵树。 常见树状结构 通常树形结构需借助数据库完成持久化，在关系型数据库中由于是以二维表的形式记录数据信息，因此不能直接将树形结构存入，必须设计合适的Schema及对应...
ASP无限级分类代码
滴水石穿
12-15 2718
数据库结构 表：classify 效果图 代码 Option Explicit '======================================================= '程序名称：ASP无限级分类代码 '程序来源：阿里西西,www.alixixi.com '程序说明：提供无限级分类的完整演示，带数据库。 '========
设计无限级分类
weixin_33725807的博客
01-19 73
产品分类，多级的树状结构的论坛，邮件列表等许多地方我们都会遇到这样的问题：如何存储多级结构的数据？在PHP的应用中，提供后台数据存储的通常是关系 型数据库，它能够保存大量的数据，提供高效的数据检索和更新服务。然而关系型数据的基本形式是纵横交错的表，是一个平面的结构，如果要将多级树状结构存储 在关系型数据库里就需要进行合理的翻译工作。接下来我会将自己的所见所闻和一些实用的经验和大家探讨一下：层级结构...
无限级分类实现思路
weixin_30832983的博客
01-04 148
无限级分类实现思路 (组织树的分级管理) 关于该问题，暂时自己还没有深入研究，在网上找到几种解决方案，各有优缺点。 第一种方案：使用递归算法，也是使用频率最多的，大部分开源程序也是这么处理，不过一般都只用到四级分类。这种算法的数据库结构设计最为简单。category表中一个字段id，一个字段fid(父id)。这样可以根据WHERE id = fid来判断上一级内容，运用递归至最顶...
无限级分类实现思路 (组织树的分级管理)
weixin_30436891的博客
03-05 313
关于该问题，暂时自己还没有深入研究，在网上找到几种解决方案，各有优缺点。 第一种方案： 使用递归算法，也是使用频率最多的，大部分开源程序也是这么处理，不过一般都只用到四级分类。这种算法的数据库结构设计最为简单。category表中一个字段id，一个字段fid(父id)。这样可以根据WHERE id = fid来判断上一级内容，运用递归至最顶层。 分析：通过这种数据库设计出的无限级...
飞飞Asp无限级分类存储过程版
12-25
修改分类包括更改名称、属性等，而排序则涉及调整节点在树中的位置。栏目备注为每个分类提供了额外的信息，而栏目移动功能允许用户改变分类在树中的位置，如向上移动，这可能涉及到调整分类的父节点。 此外，"栏目...
飞飞无限级分类联动v1.0 Asp+sql+存储过程+ajax
03-18
飞飞Asp乐园Asp Sql存储过程版无限级分类 开发说明： 本程序基于Asp环境开发 使用的数据库：SQLServer2000... 支持灵活的 目录添加、删除、修改、排序、栏目备注、栏目移动[向上] 支持 栏目选择
计算机毕业设计之：基于微信小程序的诗词智能学习系统（源码+文档+解答）
程序员阿龙的博客
09-22 4323
博主介绍： ✌我是阿龙，一名专注于Java技术领域的程序员，全网拥有10W+粉丝。作为CSDN特邀作者、博客专家、新星计划导师，我在计算机毕业设计开发方面积累了丰富的经验。同时，我也是掘金、华为云、阿里云、InfoQ等平台的优质作者。通过长期分享和实战指导，我致力于帮助更多学生完成毕业项目和技术提升。 技术范围： 我熟悉的技术领域涵盖SpringBoot、Vue、SSM、HLMT、Jsp、PHP、Nodejs、Python、爬虫、数据可视化、小程序、安卓app、大数据、物联网、机器学习等方
Online DDL (Data Definition Language)
09-23 245
是MySQL中的一个功能，允许在修改表结构（如添加、删除或修改列）的同时，允许对表进行并发读写操作。在传统的DDL操作中，对表结构的修改会导致整个表被锁定，从而阻止其他事务对该表进行读写操作，这可能导致长时间的锁定和性能问题。Online DDL的引入解决了这个问题，它允许在修改表结构的同时，保持对表的并发访问。MySQL从5.6版本开始引入了Online DDL的部分功能，而在8.0版本中对Online DDL进行了进一步的优化。
MySQL数据库的增删改查以及基本操作分享
m0_57094953的博客
09-21 451
MySQL数据库基本操作分享，包括增删改查，登录退出，查看数据库、表等
Java Alibaba Druid 数据库连接池
miracle的专栏
09-24 585
在Java开发中，数据库连接池是性能优化的重要一环。而作为一款强大的数据库连接池解决方案，凭借其和对多种数据库的支持，成为了许多企业级应用的首选。本篇文章将介绍Druid的核心特性，并结合不同数据库的实际用法。
JPA+Thymeleaf增删改查
最新发布
y050505的博客
09-25 409
在使用JPA（Java Persistence API）和Thymeleaf作为模板引擎进行Web开发时，实现增删改查（CRUD）操作是一个常见的需求。下面，我将简要介绍如何使用Spring Boot框架结合JPA和Thymeleaf来实现这一功能。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值