sub ShowAllClass()
    if rsBigClass.bof and rsBigClass.eof then 
        response.Write " NOTHING"
    else
        dim sqlClass,rsClass,strClassName,strClassID
        rsBigClass.movefirst
        do while not rsBigClass.eof        
            strClassName= "<a href='Product.asp?BigClassID=" & rsBigClass("BigClassID") & "'><B><font face=Arial Black>【" & rsBigClass("BigClassName") & "】</font></B></a>
"
            sqlClass="select * from SmallClass where BigClassName='" & rsBigClass("BigClassName") & "' Order by SmallClassID"
            Set rsClass= Server.CreateObject("ADODB.Recordset")
            rsClass.open sqlClass,conn,1,1
            do while not rsClass.eof            
            for i=1 to 2
              if not rsClass.eof then            
            strClassName=strClassName & "&nbsp;&nbsp;&nbsp;&nbsp;<a href='Product.asp?BigClassID=" & rsClass("BigClassID") & "&SmallClassID=" & rsClass("SmallClassID") & "'>" & rsClass("SmallClassName") & "</a>"
              else 
             response.write "&nbsp;"
        
             end if
           rsClass.movenext
           next
           loop
            else
             response.write "&nbsp;"
             response.write strClassName & "
 <hr align=center width=98% size=2 color=#CCCCCC>"
            rsBigClass.movenext
        loop
        rsClass.close
        set rsClass=nothing
    end if
end sub



效果类似：[url=http://www.szestar.com]http://www.szestar.com[/url]的菜单效果！