这叫二级联动，搜索一下能找到很多。
http://www.programfan.com/blog/article.asp?id=16697
http://www.programfan.com/blog/article.asp?id=16698

我不是要这个结果,我要从数据库中读啊,你这样做是列举出来的啊~!

这种功能，当然是先从数据库读到页面脚本中，然后在脚本中调用，实现二级菜单联动，否则你在客户端页面怎么能和服务器端数据交互呢？
或者就用AJAX来实现！

我的思路是用下拉表的onchange调用js函数show()，并用Microsoft.XMLHTTP对象实时说出下级内容显示
这个select可以看成是学院下拉表
<select name="ClassID" class="select1" id="ClassID" onchange="show(this.options[this.selectedIndex].value)">
                        <%
              Set Rs=Conn.Execute("Select * From Cat_ProClass")
              Response.Write("<option value=0>产品大类</option>")
              Do While Not Rs.Eof
              %>
                        <option value="<%=Rs("ID")%>"><%=Rs("ClassName")%></option>
                        <%
              Rs.MoveNext
              Loop
              Rs.Close
              Set Rs=Nothing
              %>
                      </select>
这个就可看做是班级下拉表了
<div>必须有的这是实现对应显示的必须
<div align="center" id="div2">
                      <select name="ClassName1" id="ClassName1" class="select1">
                        <option value="0">产品小类</option>
                      </select>                      
                      &nbsp; </div>
<script language="javascript">
//选择学院后相应班级下拉表显示函数
function show(FID){
    if(FID!=0){
    URL="admin/admin_class1.asp?FID="+FID;
    　var Http = new ActiveXObject("Microsoft.XMLHTTP"); //建立XMLHTTP对象
    　Http.open("Get",URL,false);   
    　Http.send();
    　content=Http.responseText;
        if(content!=""){            
            document.getElementById("div2").innerHTML=content;
        }
        else{
            var str="<select name=ClassName1 id=ClassName1><option value=0>请选择</option></select>"            
            document.getElementById("div2").innerHTML=str;
        }
    }
}
</script>

URL="admin/admin_class1.asp?FID="+FID;
所指文件源码
<%
Response.CharSet="GB2312"
Response.ContentType="text/html"
'以上两句必须，不然会显示乱码
FID=Request("FID")

Set Rs=Conn.Execute("Select * From Cat_ProClass1 Where FID="&FID)'可改成相应的班级表
If Rs.Eof Then
Response.Write("")
Else
Response.Write("<select name=ClassName1 id=ClassName1 >")     
  Response.Write("<option value=0>请选择类别（可必成选择相应的班级）</option>")
  Do While Not Rs.Eof
    Response.Write("<option value="&Rs("ID")&">"&Rs("ClassName")&"</option>")
  Rs.MoveNext
  Loop
Response.Write("</select> ")
End If
Rs.Close
Set Rs=Nothing
%>