Question

ASP 怎么获取复选框的个数

<%
Set objert=Server.CreateObject("ADODB.RecorDset")
sql="select *from userstatus"
objert.open sql,Con,1,3
do while not objert.eof
if request.Form("check").count>6 then
%>
<TR>
<td><%=objert("id")%></td>
<td height="44"><input type="checkbox" name="check"<%if objert("status")=1 then%> checked="checked"<%end if%>/></td>
<td><%=objert("status")%></td>
</TR>
<%
response.Write"<br/>"
end if
objert.movenext
loop
%>
我想实现的效果当复选框有6个才换行 可是这样写都没反应

Answer 1

像楼上说的，加一个变量就可以了
<%
Set objert=Server.CreateObject("ADODB.RecorDset")
sql="select *from userstatus"
objert.open sql,Con,1,3
dim i
i = 1
do while not objert.eof
%>
<TR>
<td><%=objert("id")%></td>
<td height="44"><input type="checkbox" name="check"<%if objert("status")=1 then%> checked="checked"<%end if%>/></td>
<td><%=objert("status")%></td>
</TR>
<%
if i mod 6 = 0 then response.Write"<br/>" '遇到6的倍数个换行
i = i+1
objert.movenext
loop
%>

Answer 2

定义个变量，每输出一次自加，和6取余判断是否需要换行

Answer 3

<%
Set objert=Server.CreateObject("ADODB.RecorDset")
sql="select *from userstatus"
objert.open sql,Con,1,3
i=1
do while not objert.eof
%>
<TR>
<td><%=objert("id")%></td>
<td height="44"><input type="checkbox" name="check"<%if objert("status")=1 then%> checked="checked"<%end if%>/></td>
<td><%=objert("status")%></td>
</TR>
<%
if i>6 then
response.Write"<br/>"
end if
i=i+1
objert.movenext
loop
%>