怎样实现asp下拉菜单多选

<%
sort(0)
dim ii
ii=0
sub sort(selec)
sql="select * from category where ParentID = "&selec&" order by categoryorder"
Set Rs1=Conn.Execute(sql)
do while not rs1.eof
if selec=0 then
%>
" selected="selected"><%=rs1("category")%>
<%
else
%>
"><%=string(ii*2," ")%><%=rs1("category")%>
<%
end if
ii=ii+1
sort rs1("categoryid")
ii=ii-1
rs1.movenext
loop
rs1.close
Set Rs1 = Nothing
end sub

%>


怎样把这代码实现多选

Test01
Test02
Test03

把这一句 &lt;select name="categoryid"&gt; 改成 &lt;select name="categoryid" multiple&gt; 试试, multiple 的作用是 可选多个选项 选多个选项时要按住ctrl键再单击选项