<% rs.movefirst
   academy = Request.Form("sel")
   do while not rs.eof
      if rs("学院") = academy  then
       oOption = document.createElement("OPTION")
       choise.options.add(oOption)
       oOption.innerText = rs("专业")
      end if
      oOption = null
      rs.movenext
  loop
%>
单看这段程序 有什么问题么   困扰我好久了 就是不知道怎么解决啊

服务器端是无法动态的增加列表菜单项的，除非使用Ajax技术来实现到能够动态的增加列表菜单项。