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

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


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

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

setrs=server.createobject("adodb.recordset")
sql="selectkindname,kindir,fkid,kindlevelfromnews_kindwherekid="&fkid&""
rs.opensql,conn,1,1

ifrs.eofandrs.bofthenexitfunction'如果到头了就退出函数

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

rs.close
setrs=nothing
callechonav(lkid,1,dir_n,navstr)'递归
endfunction


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