好的，我把它分成了两个表：Class_Table
subclass
Class_Table的Class是一级菜单
subclass里的Subclass是二级菜单

k68w1ZQW.rar (25.99 KB) [求助]有没有左侧导航条的例子

在吗？
有空帮我吗？

<%
set rc=server.CreateObject("adodb.Recordset")

rc.open"select * from Class_Table",conn,1,1

if not(rc.eof and rc.bof) then

%>

<table id="abcdefg">
<%
Do While Not Rc.Eof
%>

<tr><td onmouseover="aa_1(this,1)" onmouseout="aa_2(this,1)"><%=rc("Class")%><table class="aa" id="a_1">
<%
k=rc("ID")
set rs=server.CreateObject("adodb.Recordset")
rs.open"select * from subclass where Classid='" & k &"'",conn,1,1
response.Write(rs)
for i=1 to rs.recordcount
%>
<tr><td onmouseover="bb_1(this)" onmouseout="bb_2(this)"><%=rs("Subclass")%></td></tr>
<%
rs.movenext

next

rs.close

set rs=nothing

Rc.MoveNext

Loop

%>
</table>
<% End IF%>