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
%>