您现在的位置:计算机技术学习网 > 技术中心 > WEB编程 > ASP >

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

来源:网络 责任编辑:栏目编辑 发表时间:2013-07-01 10:30 点击:

        很多时候,我们在显示数据库的内容时,会用到几行或几列来显示数据,如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 ("<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">
<Ê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 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">
<Êll tablebody(wwwarr,3,"urltest1")%>
</table>
<hr>

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

转 作者:海娃


    相关新闻>>

      发表评论
      请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
      用户名: 验证码:点击我更换图片
      最新评论 更多>>

      推荐热点

      • WAP常见问题问答大全(四)
      • ASP开发必备:WEB打印代码大全
      • ASP调用系统ping命令
      • asp缓存技术
      • ASP教程:第三篇 ASP基础
      • 用ASP+XML打造留言本(4)
      • 关于ASP Recordset 分页出现负数解决方法及建议
      • 用asp怎样编写文档搜索页面(5)
      • ASP处理多关键词查询实例代码
      网站首页 - 友情链接 - 网站地图 - TAG标签 - RSS订阅 - 内容搜索
      Copyright © 2008-2015 计算机技术学习交流网. 版权所有

      豫ICP备11007008号-1