客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
下面是代码，如果看不懂，建议先把表格的一些<tr><td>的表格原理弄清楚了，就可以了 复制代码 代码如下: <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> |
请发表评论