自动生成目录与顺序的分类导航函数

有这样一个表news_kind 新闻分类
有下列主要列
kindname 分类名,kindir 分类目录名称,fkid 父分类序号(0为根) kid 分类序号 kindlevel 分类等级
现在在函数中任意输入一个分类的ID号,便会自动生成上级目录到该分类的导航
如
手机评测>小江>fasd> 目录结构为
手机评测==>http://localhost/yjnews
小江==>http://localhost/yjnews/jin
fasd==>http://localhost/yjnews/jin/fasd


function echonav(fkid,x,dir_n,navstr) '生成导航条,FKID为当前分类的父ID,X判断是否为第一次递归,dir_n为目录级,navstr为带过来上一及目录参数

if x=1 then             '如果X=1则输出回到上级目录命令
dir_n=dir_n&"../"
end if

set rs=server.createobject("adodb.recordset")
sql="select kindname,kindir,fkid,kindlevel from news_kind where kid="&fkid&""
rs.open sql,conn,1,1

if rs.eof and rs.bof then exit function  '如果到头了就退出函数

navstr="<a href='"&dir_n&""&rs("kindir")&"' target=_blank>"&rs("kindname") &"</a>>"&navstr
if rs("kindlevel")=0 then '如果到根目录就开始输出后结果
response.write navstr
end if
lkid=rs("fkid")

rs.close
set rs=nothing
call echonav (lkid,1,dir_n,navstr) '递归
end function


echonav (21,0,"","") 开始调用