% 
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 pagenomaxpageno 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=strrpageno"/"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 imaxpagesize 
　　  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 
%>