利用递归获得无限分类的父类名称getParentCategoryFullName

tableName:
    ProductCategory

CategoryID   自动编号
ParentCategoryID  数字
CategoryName    文本

CategoryID	ParentCategoryID	CategoryName
1	0	特色产品
2	0	软件产品
3	0	产品代理
4	1	清防垢系列类
5	1	油气井增产类
6	1	钻井应用类
7	1	特殊行业应用类

 

<%
function getParentCategoryFullName(CategoryID,conn,FullName)
 if CategoryID=0 then
  getParentCategoryFullName="无父类"
  exit function
 end if
 Set rs1=Server.CreateObject("ADODB.Recordset")
 strSQL="SELECT CategoryName,ParentCategoryID FROM ProductCategory WHERE CategoryID=" & CategoryID
 rs1.Open strSQL,conn,1,1
 tmpID=rs1.fields(1).value
 tmpName=rs1.fields(0).value
 rs1.close
 set rs1=nothing
  if FullName<>"" then
   FullName= tmpName & "-" & FullName
  else
   FullName=tmpName
  end if
 if tmpID<>0 then
  FullName=getParentCategoryFullName(tmpID,conn,FullName)
 end if
 
 getParentCategoryFullName=FullName
end function
%>