|
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
%> 
|
本类阅读TOP10