复制代码 代码如下:
<table border="0" cellpadding="0" cellspacing="0">
<%
dim rs,sqltext
set rs = server.createobject("adodb.recordset")
sqltext="select * from [bigclass]"
rs.open sqltext,conn,1,1
m=1
colzs=5 '一行显示5列
if rs.recordcount mod colzs=0 then
rowzs=int(rs.recordcount/colzs)
else
rowzs=int(rs.recordcount/colzs)+1
end if
for j = 1 to rowzs%>
<tr>
<%for i = 1 to colzs%>
<%if not rs.eof then%>
<td><input type="checkbox" name="qxflag<%=m%>" value="1"><%=trim(rs("bigname"))%></td>
<%
rs.movenext
m = m + 1
else
%>
<td> </td>
<%end if%>
<%next%>
</tr>
<%
next
rs.close
set rs = nothing
%>
</table>
【说明】：本文章由站长整理发布，文章内容不代表本站观点，如文中有侵权行为，请与本站客服联系(QQ:)！