模板
教程
环境
性能
功能
管理
利用递归获得无限分类的父类名称getParentCategoryFullName
发表于：2007-05-25来源：作者：点击数：
标签：
tableName: ProductCategory CategoryID 自动编号 ParentCategoryID 数字 CategoryName 文本 CategoryID ParentCategoryID CategoryName 1 0 特色产品 2 0 软件产品 3 0 产品代理 4 1 清防垢系列类 5 1 油气井增产类 6 1 钻井应用类 7 1 特殊行业应用类 % fu
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
%>
