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

时间:2008-10-07 12:05:03  来源:第二电脑网上收集  作者:

  第二电脑网导读:uot;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 &...
  正文:

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

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

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

<table border="1" width="480" cellpadding="2">
<%call tablebody(wwwarr,3,"urltest1")%>
</table>

函数代码:

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 ("<div align=""center"">"& str &"</div>")
end function

"控制表格的行列来显示数据"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Programming/ASP/2008-10-07/2959.html


关键字:

关于《控制表格的行列来显示数据》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td