我根据楼的朋友提供的方法，做了个动态的
但是第一个大类无法下拉，其他的可以，不知道什么原因.
<img src="images/warning.gif" name="shut" height="0" width="0" id="shut" title="关闭菜单导航" />
<%
set rsBigClass=server.CreateObject("adodb.recordset")
rsBigClass.open "Select * From BigClass order by showid asc",conn,1,3
%>
</p>
<div id="left">
<div id="nav">
<%
do while not rsBigClass.eof
%>
<div><%=rsBigClass("bigclassname")%>
<%
set rsSmallClass=server.CreateObject("adodb.recordset")
rsSmallClass.open "Select * From SmallClass Where BigClassName='" & rsBigClass("BigClassName") & "' ",conn,1,3
if not(rsSmallClass.bof and rsSmallClass.eof) then
%>
<ul>
<%do while not rsSmallClass.eof%>
<li><a href="prodir.asp?owen1=<%=rsbigclass("bigclassname")%>&owen2=<%=rssmallclass("smallclassname")%>"><%=rsSmallClass("SmallClassName")%></a></li>
<%rsSmallClass.movenext
loop
end if
%>
</ul>
</div>
<%
rsBigClass.movenext
loop
%>
</div>
</div>
