已经按照教程制作成功了，非常感谢

还想请教下，这个导航怎样才能使当前页导航高亮呢？

楼上的兄弟，我也引用了这个导航条，但是出错了，能帮我解决嘛！

点击二级链接后一级的效果会变吗？

以下是我的代码，出现的错误是：没有对象！谁能帮我解决下啊！

————————————————————————————————————

<!-- #include file="Conn/Css.Asp" -->

<link href="Conn/Css.css" rel="stylesheet" type="text/css" />

<div id=menu_out>

<div id=menu_in>

<div id=menu><%

sql="Select  * from ["&TablePrefix&"Groups] where SortOrder>0 "&GroupIDSQL&" order by SortOrder"

  Set Rsa=Execute(sql)%>

<UL id=nav>

<LI class="menu_line"></LI><LI><A class=nav_on id=mynav0 onmouseover=javascript:qiehuan(0) href="Index.Asp"><SPAN>首 页</SPAN></A></LI>

<%

sql="Select top 10 * from ["&TablePrefix&"Groups] where SortOrder>0 "&GroupIDSQL&" order by SortOrder"

  Set rsx=Execute(sql)

   i = -1

   do while not rsx.eof

    i = i + 1

    if i mod 2 = 0 then

     response.Write("")

    end if

  %><LI class="menu_line"></LI><li>

       <a href="Default.Asp?GroupID=<%=rsx("GroupID")%>"GroupID")%>)" id="mynav<%=rsx("GroupID")%>" class="nav_off"><span><%=left(rsx("GroupName"),4)%></span></a></li>

    <%

    rsx.movenext

   loop

   rsx.close

   set rsx = nothing

  %>        

    <LI class="menu_line"></LI>

</UL>

<div id=menu_con>

<div id=qh_con0 style="DISPLAY: block">

<UL>

<%

sql=" Select top 6 * from ["&TablePrefix&"Threads] where Visible=1 and ThreadTop=2 order by lasttime Desc,ThreadID"

  set rst = conn.execute(sql)

   if Rst.EOF then:Response.Write("暂时没有相关内容！") end if

   i = -1        

           do while not Rst.eof

    i=i+1

    if i mod 5=0 then

     response.write ""

    end if

           %><LI><a href=ShowPost.Asp?ThreadID=<%=rst("ThreadID")%> title="<% =rst("Topic") %>" target="_blank"><SPAN><%=left(rst("Topic"),10)%></SPAN></a></LI><LI class=menu_line2>                 

              <%

    Rst.movenext

   loop

   Rst.close

   %>

</LI>

</UL></div>

<UL>

<%sql="Select top 16 * From ["&TablePrefix&"Forums] where GroupID="&Rsa("GroupID")&" and ParentID=0 and SortOrder>0 and IsActive=1  order by ForumID"   

      set rs1 = conn.execute(sql)

if Not Rs1.Eof Then      

     n=-1

     do while not rs1.eof

      n=n+1

      if n mod 2 =0 then

      response.Write("")

      end if

    %> <div id=qh_con<%=rs1("ForumID")%> style="DISPLAY: none">

<LI>  <a href="ShowForum.Asp?ForumID=<%=rs1("ForumID")%>" target="_blank"><span><%=left(rs1("ForumName"),5)%></span></A></LI><LI class=menu_line2></LI>

    <%

      

      rs1.movenext

     loop

      else

    response.write "对不起，暂无分类！"      

     rs1.close

     set rs1 = nothing

     end if

     %>  

</div> </UL>

</div></div></div></div>

————————————————————————————————————

我上个图你看下吧，代码我已经发到256楼了，

挺好的，学习一下

www.czmygg.com
www.hbxxwd.com
www.qxfrj.com