用ASP实现无限级别栏目导航条

时间:2008-10-07 12:15:42  来源:第二电脑网上收集  作者:第二电脑网

  第二电脑网导读:r> T_LanMuId 栏目编号,主键,自动编号。如12 T_LanMuName 栏目名称。如“新闻动态” T_FartherLanMu 父栏目的编号。如12。0代表是一级栏目。最终的显示效果如下:以下是引用片段
  正文:数据库TableLanMu表的结构
 字段 描述
 T_LanMuId 栏目编号,主键,自动编号。如12
 T_LanMuName 栏目名称。如“新闻动态”
 T_FartherLanMu 父栏目的编号。如12。0代表是一级栏目。

最终的显示效果如下:

以下是引用片段
栏目首页>>一级栏目>>二级栏目.....
以下是引用片段
新闻>>公司动态>>会议文件
相关代码
代码片段

<%
'获取栏目编号
LanMuId=request.QueryString("LanMuId")
%>
<a href="/show.ASP/ target=_blank class=infotextkey>asp">栏目首页</a>
<%
'如果栏目编号不为空,则显示务级导航条
if LanMuId<>"" then
 '当前栏目的编号给NowLanMu
 NowLanMu=LanMuId
 '循环显示各级栏目
 Do while(true)
  set rs=server.CreateObject("adodb.recordset")
  rs.open "select * from TableLanMu where T_LanMuId="&NowLanMu&"",con,1,1
  if rs.recordcount>0 then
   '先把当前栏目名称(和链接)赋给Menu
   Menu=">><a href="/Show.asp?LanMuId="&rs("T_LanMuId")&"'>"&rs("T_LanMuName")&"</a>"&Menu
   
   '如果当前栏目的父栏目是一级目录,退出循环,如果不是一级栏目,就把父栏目的编号赋给NowLanMu作为当前目录并继续循环
   if rs("T_FartherLanMu")=0 then
    exit do
   else
    NowLanMu=rs("T_FartherLanMu")
   end if

  end if
  rs.close
  set rs=nothing
 Loop
 response.Write(Menu)
end if
%>

电脑枝术
用ASP实现无限级别栏目导航条》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Programming/ASP/2008-10-07/3298.html


关键字:

关于《用ASP实现无限级别栏目导航条》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td