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

2022-07-15 80酷酷网 80kuku.com

　　控制|数据|显示很多时候，我们在显示数据库的内容时，会用到几行或几列来显示数据，如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>

function urltest1(str)
Response.write ("<a href=""."& str &""" target=""_blank"">"& str &"</a>")
end function

function urltest2(str)
Response.write ("<button onclick=""window.open('http://www."& str &"','','')"">"& str &"</button>")
end function
%>
<table border="1" width="480" cellpadding="2">
<%call tablebody(wwwarr,3,"urltest1")%>
</table>
<hr>