控制表格的行列来显示数据

　　 很多时候，我们在显示数据库的内容时，会用到几行或几列来显示数据，如10条数据，要以每行2列或3列形式显示。

　　下面是一个使用数组以表格显示几行几列的简单的示列代码，希望对您有所帮助。

　　<%
function tablebody(arr,cols,functionstr)
arr为数组
cols为列数
functionstr为输出内容用的function，没有为空

　　dim allnum,i,j
allnum = ubound(arr)
for i = 0 to (allnum/cols)
Response.write (VbTab <tr> VbNewLine)
for j = 0 to (cols-1)
ij = (i*cols+j)
Response.write (VbTab VbTab <td width= formatnumber(100/cols,0) %>)
if ij <= allnum then
if len(functionstr) > 0 then
execute( functionstr (arr(ij)))
else
Response.write (arr(ij))
end if
else
Response.write (nbsp;)
end if
Response.write (</td> VbNewLine)
next
Response.write (VbTab </tr> VbNewLine)
next
end function

　　function test1(str)
Response.write (<p align=center> str </p>)
end function

　　
示例1
dim kk(9)
for k = 0 to 9
kk(k) = k+1
next
%>
<table border=1 width=600 cellpadding=2>
<Êll tablebody(kk,1,)%>
</table>
<hr>

　　<table border=1 width=600 cellpadding=2>
<Êll tablebody(kk,4,test1)%>
</table>
<hr>

　　<table border=1 width=600 cellpadding=2>
<Êll tablebody(kk,5,)%>
</table>
<hr>
<%
dim
wwwarr = split(wwwstr,)

　　function urltest1(str)
Response.write (<a href=
end function

　　function urltest2(str)
Response.write (<button style=width:100%; onclick=window.open(
end function
%>
<table border=1 width=480 cellpadding=2>
<Êll tablebody(
</table>
<hr>

　　<table border=2 width=480 cellpadding=2 cellspacing=2 >
<Êll tablebody(wwwarr,4,urltest2)%>
</table>

　　转 作者：海娃