如何能够无限分类添加新类别代码？

'无限分类添加新类别代码
'OrderID所有栏目的排列顺序
'RootOrderID同一顶栏目的排列顺序
'ClassOrderID同一父类栏目的排列顺序

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

ChannelID=cint(trim(Request.Form("ChannelID")))
ParentClassID=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

Session("ChannelID")=ChannelID
Session("ClassName")=ClassName
Session("ClassFolderName")=ClassFolderName
Session("ClassMemo")=ClassMemo
Session("ClassKeyWords")=ClassKeyWords
Session("ClassDescription")=ClassDescription
Session("IsCreateFolder")=IsCreateFolder

if ParentClassID=0 then
'添加顶类栏目
'查询父类相关数据
ParentClassName="" '父类名
ParentClassFolderName="" '父类目录名
ParentClassDepth=0 '父类深度
newClassRootID=0 '顶类ID
ParentClassIDPath=0 'ID路径

'获取已存在的最大栏目ClassID
MaxClassID = conn.execute("select Max(ClassID) as List1 From SoftClass")("List1")
if isnull(MaxClassID) then
newRootOrderID=1
newClassOrderID=1
newOrderID=1
PrevID=0
else
PrevID=MaxClassID

'获取同一父类栏目中的排列顺序
newClassOrderID=1

'获取同一顶类栏目中的排列顺序
newRootOrderID=1

'获取全部栏目的排列顺序
set rs1=conn.execute("select Count(*) From SoftClass")
if isnull(rs1(0)) then
newOrderID=1
else
newOrderID=rs1(0)+1
end if
set rs1=nothing

end if

ClassFolderPath=ClassFolderName
ClassLocalPath=ChannelFolderPath&"/"&ClassFolderPath
ClassFolderUrl=ChannelFolderUrl&"/"&Replace(ClassFolderPath,"/","/")
else
'添加子类栏目

'分添加到一级栏目下和添加到N级栏目下两种情况

'查询目标父类相关数据
set rsParent=server.CreateObject("Adodb.recordset")
sqlParent="select * from SoftClass where ClassID="&ParentClassID
rsParent.open sqlParent,conn,1,3
if rsParent.eof and rsParent.bof then
response.write("<script>alert('未能查询到父类类别对应的数据！系统即将返回上一页');history.go(-1);</script>")
response.End()
else
ParentClassID=rsParent("ClassID")
ParentClassName=rsParent("ClassName") '父类名
ParentClassFolderName=rsParent("ClassFolderName") '父类目录名
ParentClassFolderPath=rsParent("ClassFolderPath") '父类目录名
ParentClassFolderUrl=rsParent("ClassFolderUrl") '父类访问路径
ParentClassDepth=rsParent("ClassDepth") '父类深度
ParentClassIDPath=rsParent("ParentIDPath")
Child=rsParent("Child")

if ParentClassDepth=0 then'如果目标父栏目是一级栏目

oldClassRootID=rsParent("RootID") '原始RootID
newClassRootID=rsParent("ClassID") '最新RootID

if Child>0 then'如果添加栏目到有子栏目的一级栏目下

'获取即将添加的栏目ClassID
MaxClassID = conn.execute("select Max(ClassID) as List1 From SoftClass where ParentID="&ParentClassID)("List1")
PrevID=MaxClassID

'获取同一父类的子栏目中的排列顺序
set rs1=conn.execute("select Max(ClassOrderID) From SoftClass where ParentID="&ParentClassID)
if isnull(rs1(0)) then
newClassOrderID=1
else
newClassOrderID=rs1(0)+1
end if
set rs1=nothing

'获取同一顶类的子栏目中的排列顺序
set rs1=conn.execute("select Max(RootOrderID) From SoftClass where ParentIDPath like '"&ParentClassIDPath&","&newClassRootID&",%'")
if isnull(rs1(0)) then
newRootOrderID=conn.execute("select RootOrderID,ClassID From SoftClass where ClassID="&MaxClassID)("RootOrderID")+1
else
newRootOrderID=rs1(0)+1
end if
set rs1=nothing

'获取全部栏目中的的排列顺序

set rs1=conn.execute("select Max(OrderID) From SoftClass where ParentIDPath like '"&ParentIDPath&","&MaxClassID&",%' and RootID>0")
if isnull(rs1(0)) then
newOrderID=conn.execute("select OrderID,ClassID From SoftClass where ClassID="&MaxClassID&" and RootID>0")("OrderID")+1
else
newOrderID=rs1(0)+1
end if
set rs1=nothing

'更新其他后面栏目RootID，ClassID对应的RootOrderID,ClassOrderID,OrderID
'RootOrderID,ClassOrderID也不需要动
conn.execute("update SoftClass set RootOrderID=RootOrderID+1 where RootOrderID>="&newRootOrderID)

conn.execute("update SoftClass set OrderID=OrderID+1 where OrderID>="&newOrderID)

else'如果目标栏目没有子栏目

PrevID=0
newRootOrderID=2
newClassOrderID=1
'获取全部栏目中的的排列顺序
set rs1=conn.execute("select Max(OrderID) From SoftClass where ParentIDPath like '"&ParentIDPath&","&MaxClassID&",%' and RootID>0")
if isnull(rs1(0)) then
newOrderID=2
else
newOrderID=rs1(0)+1
end if
set rs1=nothing

'更新其他后面栏目RootID，ClassID对应的RootOrderID,ClassOrderID,OrderID
'RootOrderID,ClassOrderID也不需要动
conn.execute("update SoftClass set OrderID=OrderID+1 where OrderID>="&newOrderID)

end if

else

'如果目标父类是N级栏目ClassDepth>1级别
newClassRootID=rsParent("RootID")
oldClassRootID=rsParent("RootID") '最新RootID
response.Write("<br>"&oldClassRootID)
topClassRootID=conn.execute("select RootID,ClassID From SoftClass where ClassID="&oldClassRootID)("RootID")
response.Write("<br>"&topClassRootID)

if Child>0 then'如果目标N级父栏目已存在子栏目

'获取即将添加的栏目ClassID
MaxClassID = conn.execute("select Max(ClassID) as List1 From SoftClass where ParentID="&ParentClassID)("List1")
PrevID=MaxClassID
'获取同一父类栏目中的排列顺序
set rs1=conn.execute("select Max(ClassOrderID) From SoftClass where ParentID="&ParentClassID)
newClassOrderID=rs1(0)+1
set rs1=nothing

'获取同一顶类的子栏目中的排列顺序

set rs1=conn.execute("select Max(RootOrderID) From SoftClass where ParentIDPath like '"&ParentIDPath&","&MaxClassID&",%'")

if isnull(rs1(0)) then
newRootOrderID=conn.execute("select RootOrderID,ClassID From SoftClass where ClassID="&MaxClassID)(0)+1
else
newRootOrderID=rs1(0)+1
end if
set rs1=nothing

'获取全部栏目中的排列顺序
set rs1=conn.execute("select Max(OrderID) From SoftClass where ParentIDPath like '"&ParentIDPath&","&MaxClassID&",%'")

if isnull(rs1(0)) then
newOrderID=conn.execute("select OrderID,ClassID From SoftClass where ClassID="&MaxClassID)(0)+1
else
newOrderID=rs1(0)+2
end if
set rs1=nothing

'更新其他后面栏目RootID，ClassID对应的RootOrderID,ClassOrderID,OrderID
'RootOrderID,ClassOrderID也不需要动
conn.execute("update SoftClass set RootOrderID=RootOrderID+1 where RootOrderID>="&newRootOrderID&" and RootID="&oldClassRootID)
conn.execute("update SoftClass set OrderID=OrderID+1 where OrderID>="&newOrderID)

else'如果目标N级父栏目不存在子栏目

PrevID=0
'获取同一父类栏目中的排列顺序
newClassOrderID=1

'获取同一顶类栏目中的排列顺序
'如果前面有子栏目,且子栏目有别的子栏目
set rs1=conn.execute("select Max(RootOrderID) From SoftClass where ParentIDPath like '"&ParentClassIDPath&",%'")
if isnull(rs1(0)) then
newRootOrderID=conn.execute("select Max(RootOrderID) From SoftClass where ClassDepth="&ParentClassDepth&"")(0)+1
else
newRootOrderID=rs1(0)+1
end if

set rs1=nothing
response.Write("<br>"&newRootOrderID)
response.Write("<br>"&topClassRootID)
conn.execute("update SoftClass set RootOrderID=RootOrderID+1 where RootOrderID>="&newRootOrderID&" and RootID="&oldClassRootID)

'获取全部栏目中的排列顺序
newOrderID=conn.execute("select OrderID,ClassID From SoftClass where ClassID="&ParentClassID)("OrderID")+1


'更新其他后面栏目RootID，ClassID对应的RootOrderID,ClassOrderID,OrderID
'RootOrderID,ClassOrderID也不需要动
conn.execute("update SoftClass set OrderID=OrderID+1 where OrderID>="&newOrderID)
'conn.execute("update SoftClass set OrderID=OrderID+1 where RootID>"&topClassRootID&" and ParentID=0")
'conn.execute("update SoftClass set OrderID=OrderID+1 where RootID>"&oldClassRootID&" and ParentID>0")
end if

end if

end if

rsParent.close
set rsParent=nothing

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

end if

'创建对应的类别目录
if IsCreateFolder=1 then
CreateFolder ClassLocalPath,IsCreateFolder
end if

'response.Write("<br>"&newOrderID)
'response.Write("<br>"&newRootOrderID)
'response.Write("<br>"&newClassOrderID)

'添加新数据并修改相关字段数值

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 ClassFolderName='"&CorrectSqlClassFolderName&"' and ClassName='"&CorrectSqlClassName&"' and ParentID="&ParentClassID
rs.open sql,conn,3,3
if not rs.eof and not 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.addnew

rs("ChannelID")=ChannelID
rs("ChannelName")=ChannelName
rs("ChannelFolderPath")=ChannelFolderPath
rs("ChannelFolderUrl")=ChannelFolderUrl

if ParentClassID=0 then
'一级目录的深度为0
rs("ParentName")=""
rs("ParentID")=0
rs("ClassDepth")=0
rs("ParentIDPath")="0"
else
rs("ParentName")=ParentClassName
rs("ParentID")=ParentClassID



rs("ClassDepth")=Cint(ParentClassDepth)+1
rs("ParentIDPath")=ParentClassIDPath&","&ParentClassID
end if
rs("OrderID")=newOrderID
rs("RootOrderID")=newRootOrderID
rs("ClassOrderID")=newClassOrderID
rs("RootID")=newClassRootID
rs("PrevID")=PrevID

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

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

rs("AddUser")=Session("ManagerUserName")
rs("AddTime")=now()
rs("AddIP")=UserIP
rs("AddFrom")=UserFrom
rs.update
end if
rs.close
set rs=nothing
newClassID=conn.execute("Select ClassID,OrderID from SoftClass where OrderID="&newOrderID)("ClassID")
'更新同一父栏目的上一个栏目的“NextID”字段值
if PrevID>0 then
conn.execute("update SoftClass set NextID=" & newClassID & " where ClassID=" & PrevID)
end if

if ParentClassID>0 then
'更新父栏目中的子栏目数量
Child=conn.execute("Select Count(*) as List1 from SoftClass where ParentID="&ParentClassID)("List1")
conn.execute("Update SoftClass Set Child="&Child&" where ClassID="&ParentClassID)
end if

conn.close
set conn=nothing
response.write("<script>alert('栏目类别"&ClassName&"添加完成！系统即将返回列表');location.href='ClassList.asp';</script>")
response.End()
end if