在很多时候,我们采用原始的方法来解决一行内循环3张图片,如果上传者只上传了2张图片,那么2张图片间的距离会很大,因为缺少了一个 .

下面是代码,如果看不懂,建议先把表格的一些trtd的表格原理弄清楚了,就可以了 代码如下: 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.Rec

作者: 来源: 时间: 17-11-23 15:51:13

下面是代码,如果看不懂,建议先把表格的一些<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="http://www.popasp.com/1"><%=trim(rs("bigname"))%></td>
<%
rs.MoveNext
m = m + 1
else
%>
<td>  </td>
<%end if%>
<%next%>
</tr>
<%
next
rs.Close
set rs = nothing
%>
</table>
11
22
33
隐藏区块

会员注册

本功能为预留功能,暂不支持注册 ^_^

Login

社交帐号登陆

使用以下任意帐号可登陆本站

Close section
Close

联系我们

关于5UCMS 您有任何需求 均可以留言给我们