下面是代码,如果看不懂,建议先把表格的一些

的表格原理弄清楚了,就可以了
复制代码 代码如下:


<%
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%>





<%
rs.MoveNext
m = m + 1
else
%>





<%
next
rs.Close
set rs = nothing
%>

<input type="checkbox" name="qxflag” value=”1″>