转载请注明转载于 KinJAVA日志 (http://jorkin.reallydo.com) 最好能注明文章地址的详细URL.谢谢. PS:本站解压密码为 reallydo.com .

本站的所有函数都可能不定期修正BUG,有问题请反馈.

Tag: m行n列预览模式: 普通 | 列表

[原创]再谈动态多行多列，循环行和列，输出M行N列。ASP代码。

作者:Jorkin 日期:2007-11-12

以前写的函数：http://jorkin.reallydo.com/article.asp?id=15

当时还以为自己很牛，现在才发现，那种方法真的是很麻烦很麻烦，下面这种方法应该够简单够清楚了吧？

<%
Dim i, j, iCols
i = 0 '//定义i进行循环
iCols = 3 '//一行有几列(正整数)
Response.Write("<table width=""100%"" border=""1"" cellspacing=""2"" cellpadding=""0""><tr>"&vbNewLine) '//输出Table头和第一个Tr
Do While Not oRs.EOF '//开始输出记录集用 For ors.RecordCount Next 也行
    If i>0 And i Mod iCols = 0 Then Response.Write("</tr><tr>"&vbNewLine) '//如果列数等于 iCols 换行
    i = i + 1
    Response.Write("<td width="""&FormatPercent(1 / iCols, 0)&""">输出第 "&i&" 条记录</td>"&vbNewLine)
    oRs.MoveNext
Loop '//结束输出记录集
oRs.Close
For j = 1 To iCols -1 '//开始补足空记录,最多补iCols-1条
    If i Mod iCols = 0 Then Exit For '//列数已经够 iCols 不再输出
    i = i + 1
    Response.Write("<td width="""&FormatPercent(1 / iCols, 0)&""">补足第 "&j&" 条记录</td>"&vbNewLine)
Next
Response.Write("</tr></table>"&vbNewLine) '//输出Table尾
%>

Tags: 多行多列多行多列 m行n列 m行n列

分类:技术天地 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 3353

[原创]我用ASP写的循环m行n列的函数,动态输出创建TABLE行和列

作者:Jorkin 日期:2005-08-24

2007年11月14日最新版本请看：http://jorkin.reallydo.com/article.asp?id=392

旧版本内容：

没有用正常的循环tr内循环td的方法，所以就没有计算最后一页的记录集数量。
但当记录集不足时也同样能够自动补空行空列，如有不足请指出，谢谢。
使用方法很简单：

<%
showData("查询语名")
Call pagehead(行数,列数)
'-------------------------------------------------------------------------------
'可以把下面的Response.Write()写到函数里面，看个人的爱好了。
Response.Write(FormatCRtable(表格宽度,表格高度))
Response.Write(PageFoot())
Call closeData()
%>