标题:[原创]发一个自动调节表格的简单函数,需要的进来看看
只看楼主
islet
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:89
帖 子:6548
专家分:0
注 册:2005-1-28
得分:0 
我一般也直接用循环 因为许多时候不是正好几行几列 比如5行5列 读到最后一行就剩1个了

这种情况我一般先判断剩几个位置 然后再循环几个空<td> 来保证完整性

我的方法比较笨。。。
2005-08-25 16:41
无根泉
Rank: 2
等 级:新手上路
威 望:4
帖 子:853
专家分:0
注 册:2004-11-4
得分:0 
上次做了一个显示图片的,
显示8张,2行,4列,
不管够不够8张,都让它是2行,4列,不足的就会"你的位置"补齐
下面是我的代码,有些笨,谁有好一些的,也给发一下:
<table width="100%"  border="0" cellspacing="9" cellpadding="0">
              <%
      for i=1 to 5
      if rs.eof then exit for%>
              <tr>
                <% for j=1 to 2
       if rs.eof then exit for %>
                <td><table width="96"  border="0" align="center" cellpadding="0" cellspacing="0" style="border:1px solid #999999; ">
                    <tr>
                      <td width="204"><div align="center"><a href="<%=rs("url")%>" target="_blank" title="<%=rs("zhz")%>"><img src="<%=rs("logo")%>" width="95"  height="40" border="0"></a></div></td>
                    </tr>
                </table></td>
                <% rs.movenext
   next %>
                <%
   
     nber=rs.recordcount
    c=2*i
       b=c-nber
    if b<>0 then
    for a=1 to b
      %>
                <td><table width="96"  border="0" align="center" cellpadding="0" cellspacing="0" style="border:1px solid #999999; ">
                    <tr>
                      <td width="204"><div align="center"><a href="admin/jm.asp" target="_blank"><img src="images/nologo.jpg" alt="承德福达食品欢迎您加盟" width="95"  height="40" border="0"></a></div></td>
                    </tr>
                </table></td>
                <% next
   end if
    %>
              </tr>
              <% next
   
    %>
              <%
    fsize=8-rs.recordcount
    fint=int(fsize/2)
    if fsize mod 2=0 then
    forsize=fint
    else
    forsize=fint+1
    end if
    for msize=1 to fint
     %>
              <tr>
                <%
    for m=1 to 2 %>
                <td><table width="96"  border="0" align="center" cellpadding="0" cellspacing="0" style="border:1px solid #999999; ">
                    <tr>
                      <td width="204"><div align="center"><a href="admin/jm.asp" target="_blank"><img src="images/nologo.jpg" alt="承德福达食品欢迎您加盟" width="95"  height="40" border="0"></a></div></td>
                    </tr>
                </table></td>
                <% next %>
              </tr>
              <% next
    rsclose(rs) %>
            </table>

我很菜,但我很努力!
2005-08-25 17:02
无根泉
Rank: 2
等 级:新手上路
威 望:4
帖 子:853
专家分:0
注 册:2004-11-4
得分:0 


我很菜,但我很努力!
2005-08-25 17:05
hxfly
Rank: 5Rank: 5
等 级:贵宾
威 望:17
帖 子:5807
专家分:108
注 册:2005-4-7
得分:0 
应该也容易做吧
等明天把老无的做成FUNCTION呵呵

2005-08-25 17:12



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-25988-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.046383 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved