<% 
showData("查詢語(yǔ)名") 
Call pagehead(行數(shù),列數(shù)) 
'------------------------------------------------------------------------------- 
'可以把下面的Response.Write()寫到函數(shù)里面，看個(gè)人的愛好了。 
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 
'初始化分頁(yè) 
'MaxRows =最大行數(shù) 
'MaxCols =最大列數(shù) 
'------------------------------------------------------------------------------- 
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 
'分頁(yè)函數(shù)尾 
'無(wú)參數(shù) 
'------------------------------------------------------------------------------- 
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頁(yè)才會(huì)顯示首頁(yè)和上一頁(yè)(可選) 
' If pageno>1 Then 
　　 strr=strr&"<a href=""?pageno=1"" title=""首頁(yè)""><font face = Webdings>9</font></a>" 
　　 strr=strr&" " 
　　 strr=strr&"<a href=""?pageno="&pageno-1&""" title=""上一頁(yè)""><font face = Webdings>7</font></a>" 
' End If 
　　strr=strr&" "&pageno&" " 
'小于最大頁(yè)數(shù)才會(huì)顯示下一頁(yè)和尾頁(yè)(可選) 
' If pageno<maxpageno Then 
　　 strr=strr&"<a href=""?pageno="&pageno+1&""" title=""下一頁(yè)""><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&"頁(yè)" 
　　strr=strr&"</div></td>" & VbCrLf 
　　strr=strr&"  </tr>" & vbCrLf 
　　strr=strr&"</table>" 
　　PageFoot=strr 
End Function 
'進(jìn)行行列格式化函數(shù) 
'TableWidth  =表格寬度 
'TableHeight =表格高度(因?yàn)g覽器不同可能無(wú)效) 
'------------------------------------------------------------------------------- 
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&""">有記錄則進(jìn)行輸出</td>" & vbCrLf 
　　   Rs.movenext 
　　  Else 
　　   strr=strr&"    <td width="""&TableWidth/Cols&""" height="""&Tableheight/Rows&""">記錄集不足時(shí)補(bǔ)余</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 
%>