Question

怎样实现asp下拉菜单多选

<select name="categoryid">
<%
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
%>
<option value="<%=int(rs1("categoryid"))%>" selected="selected"><%=rs1("category")%></option>
<%
else
%>
<option value="<%=int(rs1("categoryid"))%>"><%=string(ii*2," ")%><%=rs1("category")%></option>
<%
end if
ii=ii+1
sort rs1("categoryid")
ii=ii-1
rs1.movenext
loop
rs1.close
Set Rs1 = Nothing
end sub

%>
</select>

怎样把这代码实现多选

Answer 1

<select size="10" multiple="multiple">
<option>Test01</option>
<option>Test02</option>
<option>Test03</option>
</select>