很多时候，我们在显示数据库的内容时，会用到几行或几列来显示数据，如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 (" ") end if Response.write ("</td>" & VbNewLine) next Response.write (VbTab &"</tr>" & VbNewLine) next end function function test1(str) Response.write ("<div align=""center"">"& str &"</div>") end function '示例1 dim kk(9) for k = 0 to 9 kk(k) = k+1 next %> <table border="1" width="600" cellpadding="2"> <%call tablebody(kk,1,"")%> </table> <hr> <table border="1" width="600" cellpadding="2"> <%call tablebody(kk,4,"test1")%> </table> <hr> <table border="1" width="600" cellpadding="2"> <%call tablebody(kk,5,"")%> </table> <hr> <% dim wwwstr,wwwarr wwwstr = "51windows.Net|blueidea.com|google.com|yahoo.com|msn.com.cn|csdn.net|ipark.cn|1kg.cn" wwwarr = split(wwwstr,"|") function urltest1(str) Response.write ("<a href=""http://www."& str &""" target=""_blank"">"& str &"</a>") end function function urltest2(str) Response.write ("<button style=""width:100%;"" onclick=""window.open('http://www."& str &"','','')"">"& str &"</button>") end function %> <table border="1" width="480" cellpadding="2"> <%call tablebody(wwwarr,3,"urltest1")%> </table> <hr> <table border="2" width="480" cellpadding="2" cellspacing="2" > <%call tablebody(wwwarr,4,"urltest2")%> </table>