我用ASP寫的m行n列的函數,動態輸出創建TABLE行列
2024-05-04 11:02:08
供稿：網友
沒有用正常的循環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()
