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

　　<%

　　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()

　　strr="<table width=""500"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & VbCrLf

　　strr=strr&"  <tr>" & VbCrLf

　　strr=strr&"    <td valign=""top""><div align=""Right"">"

　　'大于1页才会显示首页和上一页(可选)

　　' If pageno>1 Then

　　 strr=strr&"<a href=""?pageno=1"" title=""首页""><font face = Webdings>9</font></a>"

　　 strr=strr&" "

　　 strr=strr&"<a href=""?pageno="&pageno-1&""" title=""上一页""><font face = Webdings>7</font></a>"

　　' End If

　　strr=strr&" "&pageno&" "

　　'小于最大页数才会显示下一页和尾页(可选)

　　' If pageno<maxpageno Then

　　 strr=strr&"<a href=""?pageno="&pageno+1&""" title=""下一页""><font face = Webdings>8</font></a>"

　　 strr=strr&" "

　　 strr=strr&"<a href=""?pageno="&maxpageno&""" title=""""><font face = Webdings>:</font></a>"

　　' End If

　　strr=strr&"    "

　　strr=strr&(pageno-1)*maxpagesize+1&"/"&maxredcount&"条记录"

　　strr=strr&"    "

　　strr=strr&pageno&"/"&maxpageno&"页"

　　strr=strr&"</div></td>" & VbCrLf

　　strr=strr&"  </tr>" & vbCrLf

　　strr=strr&"</table>"

　　PageFoot=strr

　　End Function

　　'进行行列格式化函数

　　'TableWidth  =表格宽度

　　'TableHeight =表格高度(因浏览器不同可能无效)

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

　　Public Function FormatCRtable(TableWidth,TableHeight)

　　Dim i,strr

　　i=0

　　strr=""

　　strr=strr&"<table width="""&TableWidth&"""  border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf

　　strr=strr&"  <tr>" & VbCrLf

　　If maxredcount>0 Then

　　 Do While i<maxpagesize

　　  i=i+1

　　  If Not Rs.eof Then

　　   strr=strr&"    <td width="""&TableWidth/Cols&""" height="""&Tableheight/Rows&""">有记录则进行输出</td>" & vbCrLf

　　   Rs.movenext

　　  Else

　　   strr=strr&"    <td width="""&TableWidth/Cols&""" height="""&Tableheight/Rows&""">记录集不足时补余</td>" & VbCrLf

　　  End If

　　  If i Mod Cols = 0 Then

　　   strr=strr&"  </tr>" & VbCrLf

　　   strr=strr&"  <tr>" & vbCrLf

　　  End If

　　 Loop

　　Else

　　 strr=strr&"<td height="""&TableWidth&""" valign=""top"">目前没有记录集</td>"

　　End if

　　strr=strr&"  </tr>" & VbCrLf

　　strr=strr&"</table>" & VbCrLf

　　FormatCRtable=strr

　　End Function

　　%>