net 实现联级菜单

departmentName="科室名"
set departmentRs=server.CreateObject("adodb.recordset")
departmentSql="select * from [s_department] order by [id] asc"
departmentRs.open departmentSql,conn,1,1
do while not departmentRs.eof
    departmentName=departmentName & "|" & departmentRs("department")
    departmentID=departmentID & "|" & departmentRs("ID")
departmentRs.movenext
loop
set departmentRs=nothing
departmentName=departmentName & "|未分配科室"
departmentID=departmentID & "|0"
departmentName_array=split(departmentName,"|")
departmentID_array=split(departmentID,"|")
departmentName_count=ubound(departmentName_array)
i=0
response.Write("" & chr(13))
复制内容到剪贴板代码:

复制内容到剪贴板代码:
     


      --- 请选择科室 ---
      <% for k=1 to departmentName_count step 1 %>
      <%=departmentName_array(k)%>
      <% next %>

        

      --- 请选择教师 ---