我用ASP编辑的m行n列的函数 动态输出创建TABLE行列

没有用正常的循环tr内循环td的方法，所以就没有计算最后一页的记录集数量。

但当记录集不足时也同样能够自动补空行空列，如有不足请指出，谢谢。

使用方法很简单：

代码如下:

<% 

showData("查询语名") 

Call pagehead(行数,列数) 

'------------------------------------------------------------------------------- 

'可以把下面的Response.Write()写到函数里面，看个人的爱好了。 

Response.Write(FormatCRtable(表格宽度,表格高度)) 

Response.Write(PageFoot()) 

Call closeData() 

%> 

代码如下:

<% 

'------------------------------------------------------------------------------- 

'Copyright 2005 by Jorkin.All Rights Reserved 

'------------------------------------------------------------------------------- 

Public rs 

Public pageno,Cols,Rows,maxpageno,maxredcount,maxpagesize 

'------------------------------------------------------------------------------- 

Public Function showData(sqlstrings) 

Set rs=Server.CreateObject("ADODB.Recordset") 

rs.open sqlstrings,oconn,1,3 

End Function 

Public Function closeData() 

rs.close 

Set rs=Nothing 

End Function 

'初始化分页 

'MaxRows =最大行数 

'MaxCols =最大列数 

'------------------------------------------------------------------------------- 

Public Function PageHead(MaxRows,MaxCols) 

'------------------------------------------------------------------------------- 

Rows=MaxRows 

Cols=MaxCols 

maxpagesize=1 

maxredcount=0 

maxpageno=0 

pageno=0 

'------------------------------------------------------------------------------- 

maxredcount = rs.recordcount 

If maxredcount>0 then 

maxpagesize = Rows*Cols 

maxpageno = Cint((maxredcount+maxpagesize-1)/maxpagesize) 

rs.pagesize = maxpagesize 

pageno=Request("pageno") 

If IsEmpty(pageno) Or Not IsNumeric(pageno) Or CInt(pageno)<1 Or CInt(pageno)>Rs.Pagecount Then 

 Pageno=1 

End If 

rs.absolutePage=pageno 

End If 

On Error Resume Next 

End Function 

'分页函数尾 

'无参数 

'------------------------------------------------------------------------------- 

Public Function PageFoot() 

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!