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