Question

asp下拉框改复选问题

<%
Set rs3 = Server.CreateObject("ADODB.Recordset")
sql3="SELECT * from whwr_com_xianlutype order by id asc"
rs3.OPEN sql3, Conn,1,1
if not (rs3.eof and rs3.bof) then%>
<option value="">请选择：</option>
<%do while not rs3.eof%>

<option value='<%=rs3("whwr_com_type")%>'><%=rs3("whwr_com_type")%></option>
<%
rs3.movenext
loop
end if
rs3.close
set rs3=nothing
%>

这是个下拉框，只能选择一个值，我想改成复选框，请问该怎么改？
能说下具体怎么改么？谢谢

Answer 1

关于复选框一般有两种方式：
1、使用如下形式
<select>
<option value ="volvo">Volvo</option>
<option value ="saab">Saab</option>
<option value="opel">Opel</option>
<option value="audi">Audi</option>
</select>
在无任何声明时，为单选下拉框。
这样声明即为多选形式：
<select multiple="multiple" size="4">
<option value="volvo">Volvo</option>
<option value="saab">Saab</option>
<option value="mercedes">Mercedes</option>
<option value="audi">Audi</option>
</select>

楼主的代码这样修改：
<h4>请选择：</h4>
<select multiple="multiple">
<%
Set rs3 = Server.CreateObject("ADODB.Recordset")
sql3="SELECT * from whwr_com_xianlutype order by id asc"
rs3.OPEN sql3, Conn,1,1
if not (rs3.eof and rs3.bof) then
%>
<%
do while not rs3.eof
%>
<option value='<%=rs3("whwr_com_type")%>'><%=rs3("whwr_com_type")%></option>
<%
rs3.movenext
loop
end if
rs3.close
set rs3=nothing
%>
</select>

2、使用如下形式：
<input type="checkbox" name="abc" value="Bike" /> I have a bike<br />
<input type="checkbox" name="abc" value="Car" /> I have a car<br />
<input type="checkbox" name="abc" value="Airplane" /> I have an airplane<br />

楼主的代码修改如下：
<%
Set rs3 = Server.CreateObject("ADODB.Recordset")
sql3="SELECT * from whwr_com_xianlutype order by id asc"
rs3.OPEN sql3, Conn,1,1
if not (rs3.eof and rs3.bof) then
%>
<h4>请选择</h4>
<%
do while not rs3.eof
%>
<input type="checkbox" name="abc" value='<%=rs3("whwr_com_type")%>' /><%=rs3("whwr_com_type")%><br />
<%
rs3.movenext
loop
end if
rs3.close
set rs3=nothing
%>

一般有上述两种方式，个人觉得使用input type="checkbox"比较合适。

Answer 2

下拉框还是复选列表不是由option来决定的，而是由select决定的
复选列表是<select name="select" size="10" multiple>
下拉框式<select name="select">
multiple是允许复选