无限分类添加新类别代码

导读：
　　'无限分类添加新类别代码
　　'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("alert('系统出错！请返回填写栏目类别名称');history.go(-1);")
　　response.End()
　　end if
　　if ClassFolderName="" Then
　　response.write("alert('系统出错！请返回填写栏目类别目录文件夹');history.go(-1);")
　　response.End()
　　end if
　　if ClassMemo="" Then
　　response.write("alert('系统出错！请返回填写栏目类别说明');history.go(-1);")
　　response.End()
　　end if
　　if ClassKeyWords="" Then
　　response.write("alert('系统出错！请返回填写栏目类别搜索关键字');history.go(-1);")
　　response.End()
　　end if
　　if ClassDescription="" Then
　　response.write("alert('系统出错！请返回填写栏目类别搜索描述词');history.go(-1);")
　　response.End()
　　end if
　　If IsValidWindowsFolderName(ClassFolderName)=False Then
　　response.Write("alert('目录名格式不正确,按确定返回重新填写');history.back();")
　　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("alert('无此频道数据,系统即将返回！');location.href='ClassList.asp';")
　　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路径

本文转自
http://www.xland.cn/article/7/134/0704/18674.htm