" & VbNewLine) for j = 0 to (cols-1) ij = (i*cols+j) Response.write (VbTab & VbTab &"" & VbNewLine) next Response.write (VbTab &"" & VbNewLine) nextend function

function test1(str) Response.write ("

"& str &"
")end function

'示例1dim kk(9)for k = 0 to 9 kk(k) = k+1next%>

您的当前位置:我要购书网>在线阅读>ASP/PHP/.NET/XML

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

来源:互联网  作者:  发布:我要购物网收集整理  发布时间:2006-8-31 人气:507

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

") 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 ("
<%call tablebody(kk,1,"")%>

<%call tablebody(kk,4,"test1")%>


<%call tablebody(kk,5,"")%>


<%dim wwwstr,wwwarrwwwstr = "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 (""& str &"")end function

function urltest2(str) Response.write ("")end function%><%call tablebody(wwwarr,3,"urltest1")%>


<%call tablebody(wwwarr,4,"urltest2")%>

转 作者:海娃

相关文章
· 控制表格的行列来显示数据
· 控制ie webcontrol中treeview的高度
· 控制台程序的事件處理
· 控制ccombobox中listbox的dropdown..
· 控制网页的forms行为(收藏)
· 控制台输出'颜色'字
· 控制输出字符串的长度,可以区别中英文(asp)
· 控制编辑框焦点在最下面的方法(cedit)
· 控制面板的编程
· 控制第三方程序
热点文章
%>
· creating user controls
· 提高fastreplace速度 (fstrrep.pas)
· asc ii 完整码表及简介
· 自动生成拼音(汉字反查到拼音)
· sql2000无法安装的解决办法
· 浏览器集成教学 自定义浏览器
· vc++技术内幕(第四版)笔记(第7章)
· mysql5.0中文乱码解决方案
· sql server日期计算
· vc下利用ado连接access数据库
 淘宝旺旺:我要购书网上书店『图书目录
本购书中心地址: 杭州市延安路111号清波商厦南楼D座(总部) 上海市闸北区老沪太路网上购书中心(沪部),  邮编:310002
电子邮件:books@51goushu.com  经营许可证编号:沪ICP备06038574号
版权所有 2003-2008 © All Rights Reserved .购书网