演示地址：http://www.w2000.com.cn/sweet/class.asp
[CODE]<%
Option Explicit
''''''''''''''''''''''''''''''''''''''''''''
'属性
'countPage 总页数
'currentPage 当前页数
'Size 总长度
'fieldList 保存查询的列的集合
'orderByQuery 保存消除了orderby和desc和curp了的GET串
'con,rs,pagesize，。。。
'方法
'initObject 初始化成员
'page 显示页信息
''''''''''''''''''''''''''''''''''''''''''''
Class Cls_Kellynic_Page
'私用成员
Private countPage,currentPage,Size
Private fieldList,orderByQuery,orderBy,desc
'公共成员
Public con,rs,pageSize
'析构
Private Sub Class_Terminate()
On Error resume Next
rs.Close
Set rs = Nothing
con.Close
Set con = Nothing
Err.Clear
End Sub
'构造
Private Sub Class_Initialize()
Set con = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
End Sub
'过滤不需要的GET串
Private Function filterGET(ByVal filters)
Dim url,i,obj,newGet,flag
Set url = Request.QueryString()
filters = Split(filters,",")
newGet = ""
For Each obj In url
flag = False
For i=0 To UBound(filters)
If Trim(LCase(CStr(obj)))=Trim(LCase(CStr(filters(i)))) Then
flag=True
Exit For
End If
Next
If Not flag Then newGet = newGet & obj & "=" & url(obj) & "&"
Next
If Not newGet="" Then newGet=Trim(Left(newGet,Len(newGet)-1))
filterGET=newGet
End Function
'我的一个过滤函数，过滤掉不为数字的字符
Function kingFilter(ByVal s)
Dim regex
Set regex=New RegExp
regex.IgnoreCase=True
regex.Global=True
regex.Pattern="[^\d]"
s=regex.Replace(s,"")
Set regex=Nothing
If s="" Then s=0
kingFilter=s
End Function
'初始化成员对象
Public Function initObject(ByVal linkString,ByVal sql,ByVal defaultPageSize)
On Error resume Next
con.Open linkString
If Err<>0 Then
Err.Clear
initObject = 1
Exit Function
End If
fieldList = Trim(Left(sql,InStr(sql," from ")-1))
fieldList = Trim(Right(fieldList,Len(fieldList)-Len("select ")))
Dim selectTemp,descTemp
orderByQuery = filterGet("orderBy,desc,curp")
If Not orderByQuery="" Then orderByQuery=orderByQuery & "&"
orderBy = kingFilter(Request.QueryString("orderBy"))-1
desc = Request.QueryString("desc")
If desc="" Then desc=True
desc = CBool(desc)
selectTemp = Split(fieldList,",")
If orderBy<0 Then
orderBy = selectTemp(0)
elseif orderBy>Ubound(selectTemp) Then
orderBy = selectTemp(Ubound(selectTemp))
Else
orderBy = selectTemp(orderBy)
End If
If desc Then
descTemp="desc"
Else
descTemp=""
End If
sql = sql & " order by " & orderBy & " " & descTemp
On Error resume Next
rs.Open sql,con,3,3
If Err<>0 Then
Err.Clear
initObject = 2
Exit Function
Else
initObject = 0
End If
Size = CLng(con.Execute("select count(*) from (" & rs.Source & ")").fields(0))
pageSize = kingFilter(Request.QueryString("pagesize"))
If pageSize=0 Then
pageSize = CLng(defaultPageSize)
End If
If Not Size Mod pageSize=0 Then
countPage = Size\pageSize+1
Else
countPage = Size\pageSize
End If
currentPage = CLng(kingFilter(Request.Querystring("curp")))
If currentPage=0 Then
currentPage = 1
End If
If currentPage>countPage Then
currentPage = countPage
End If
If curp<>1 And Not rs.eof Then
'rs.Move count_Elements*(curp-1)
rs.AbsolutePosition=pageSize*(currentPage-1)
End If
End Function
'显示上下页（当前页,总页数,前后加起来的页数,除去cp参数的GET串）
Public Function page(ByVal showPageC)
Dim i,l,starF,endF,reStr,getStr,queryStr
queryStr = filterGET("curp")
'*****************************************************
If queryStr="" Then
getStr="curp=1"
Else
getStr=queryStr & "&curp=1"
End If
If currentPage>1 Then
reStr=reStr & "<a href=""?" & getStr & """ target=_self class=page>首页</a> "
Else
reStr=reStr & "<font color=#CCCCCC>首页</font> "
End If
'*****************************************************
If queryStr="" Then
getStr="curp=" & (currentPage-1)
Else
getStr=queryStr & "&curp=" & (currentPage-1)
End If
If currentPage>1 Then
reStr=reStr & "<a href=""?" & getStr & """ target=_self class=page>上页</a> "
Else
reStr=reStr & "<font color=#CCCCCC>上页</font> "
End If
'*****************************************************
If queryStr="" Then
getStr="curp=" & (currentPage+1)
Else
getStr=queryStr & "&curp=" & (currentPage+1)
End If
If currentPage<countPage Then
reStr=reStr & "<a href=""?" & getStr & """ target=_self class=page>下页</a> "
Else
reStr=reStr & "<font color=#CCCCCC>下页</font> "
End If
'*****************************************************
If queryStr="" Then
getStr="curp=" & countPage
Else
getStr=queryStr & "&curp=" & countPage
End If
If currentPage<countPage Then
reStr=reStr & "<a href=""?" & getStr & """ target=_self class=page>末页</a> "
Else
reStr=reStr & "<font color=#CCCCCC>末页</font> "
End If
'*****************************************************
If queryStr="" Then
getStr="curp="
Else
getStr=queryStr & "&curp="
End If
reStr=reStr & "跳转：<input type=text value=" & currentPage & " size=4 onkeyup=""this.value=this.value.replace(/[^\d]/ig,'');if(this.value>" & countPage & ")this.value=" & countPage &";"" onblur=""this.onkeyup();"" onchange=""this.onkeyup();"" onkeydown=""if(event.keyCode==13)location.href='?" & getStr & "'+this.value;""> "
reStr=reStr & "<span class=green> " & currentPage & "/" & countPage & " " & pageSize & "/页</span> 合计:" & Size & " "
getStr=filterGET("pagesize")
If getStr="" Then
getStr="pagesize="
Else
getStr=getStr & "&pagesize="
End If
reStr=reStr & "页长：<input type=text value=" & pagesize & " size=4 onkeyup=""this.value=this.value.replace(/[^\d]/ig,'');"" onblur=""this.onkeyup();"" onchange=""this.onkeyup();"" onkeydown=""if(event.keyCode==13)location.href='?" & getStr & "'+this.value;"">" & "<br><br>"
'*****************************************************
Const DOT="<span style=cursor:hand;>..</span>"
If showPageC=0 Then showPageC = 5
l=showPageC\2
If currentPage-l<=1 Then
starF=1
Else
starF=currentPage-l
reStr=reStr & DOT
End If
endF=starF+showPageC
For i=starF To endF
If i>countPage Then Exit For
If queryStr="" Then
getStr="curp=" & i
Else
getStr=queryStr & "&curp=" & i
End If
If i<>currentPage Then
reStr=reStr & "<a href=""?" & getStr & """ target=_self class=page>[" & i & "]</a> "
Else
reStr=reStr & "<b><font color=#CC9933>[" & i & "]</a></b> "
End If
Next
If endF<countPage Then reStr=reStr & DOT
'*****************************************************
page=reStr
End Function
'构造order by地址
Public Function getOrderBy(ByVal Index)
getOrderBy = "?" & orderByQuery & "orderby=" & Index & "&desc=" & CStr(Not desc)
End Function
End Class
%>%>
测试：
将以上的代码保存成 Cls_Kellyni_Page.asp
请看 class.asp 里的代码：
[CODE]<%@LANGUAGE="VBSCRIPT" CODEPAGE="936" CODEPAGE=%>
<!--#include file="Cls_Kellynic_Page.asp"-->
<%
Dim startimer,endtimer
startimer=timer()
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
-->
</style>
</head>
<body>
<%
Const LINK_STR="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb"
Const OPEN_SQL="select 编号,标题,作者,点击次数,日期 from 技术文章表"
'排序不支持 * 查询
Dim kellynic_page,backValue
Set kellynic_page=New Cls_Kellynic_Page
backValue=kellynic_page.initObject(LINK_STR,OPEN_SQL,10)
If backValue=0 Then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#E1E1E1"><table width="100%" border="0" cellspacing="1" cellpadding="6">
<tr align="center" bgcolor="#F0F0F0">
<td width="11%"><a href="<%=kellynic_page.getOrderBy(1)%>">编号</a></td>
<td width="43%"><a href="<%=kellynic_page.getOrderBy(2)%>">标题</a></td>
<td width="14%"><a href="<%=kellynic_page.getOrderBy(3)%>">作者</a></td>
<td width="11%"><a href="<%=kellynic_page.getOrderBy(4)%>">点击次数</a></td>
<td width="21%"><a href="<%=kellynic_page.getOrderBy(5)%>">日期</a></td>
</tr>
<%
Dim i
For i=1 To kellynic_page.pageSize
If kellynic_page.rs.eof Then Exit For
%>
<tr bgcolor="#FFFFFF">
<td><%=kellynic_page.rs.fields(0)%></td>
<td><%=kellynic_page.rs.fields(1)%></td>
<td><%=kellynic_page.rs.fields(2)%></td>
<td><%=kellynic_page.rs.fields(3)%></td>
<td><%=kellynic_page.rs.fields(4)%></td>
</tr>
<%
kellynic_page.rs.movenext()
Next
%>
<tr bgcolor="#FFFFFF">
<td colspan="5"><%=kellynic_page.page(9)%></td>
</tr>
</table></td>
</tr>
</table>
<%
End If
Set kellynic_page=Nothing
%>
</body>
</html>
<%
endtimer=timer()
%>
<%=Round((endtimer-startimer)*1000,3)%>%>
感觉这个类还行，只不过速度？？
这个类可扩展性还是很强的，用来排序，不支持*查询