控制|数据|显示

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

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

dimwwwstr,wwwarr
wwwstr="51windows.Net|blueidea.com|google.com|yahoo.com|msn.com.cn|csdn.net|ipark.cn|1kg.cn"
wwwarr=split(wwwstr,"|")

functionurltest1(str)
 Response.write("<ahref=""."&str&"""target=""_blank"">"&str&"</a>")
endfunction

<tableborder="1"width="480"cellpadding="2">
<%calltablebody(wwwarr,3,"urltest1")%>
</table>

函数代码：

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

 dimallnum,i,j
 allnum=ubound(arr)
 fori=0to(allnum/cols)
  Response.write(VbTab&"<tr>"&VbNewLine)
  forj=0to(cols-1)
   ij=(i*cols+j)
   Response.write(VbTab&VbTab&"<tdwidth="""&formatnumber(100/cols,0)&"%"">")
   ifij<=allnumthen
    iflen(functionstr)>0then
     execute(""&functionstr&"(arr(ij))")
    else
     Response.write(arr(ij))
    endif
   else
    Response.write(" ")
   endif
   Response.write("</td>"&VbNewLine)
  next
  Response.write(VbTab&"</tr>"&VbNewLine)
 next
endfunction

functiontest1(str)
 Response.write("<divalign=""center"">"&str&"</div>")
endfunction