高分求：最好的ASP分页程序

来源：百度知道 编辑：UC知道 时间：2024/05/17 03:49:25
要求占用资源少，代码简单，效率高。
不要记录集式的分页程序，太耗资源。
是ACCESS数据库记录分页的。

个人开发，只提供总程序部分，调用函数后得到的是一个2维数组，而且把数据分为1/2方式搜索，单表有索引200w记录只要10秒左右，而且支持application，使总记录数不必要重复统计。
额外调用的程序等待大家评价是否是最好的算法时在提供。
Public Function Pagination(ByVal FieldKey, ByVal SqlFields, ByVal SqlFrom, ByVal SqlWhere, ByVal SqlOrder)
On Error Resume Next
Dim CountSql, FullSql, PureFieldKey, PureFieldKeyOrder
Dim MiddlePageNo, LastPageRecordCount
Dim arrFieldKeyDot
arrFieldKeyDot = Split(FieldKey, ".")
PureFieldKey = arrFieldKeyDot(UBound(arrFieldKeyDot))
If RegExpTest(SqlOrder, PureFieldKey & "( +desc| +asc)? *$") Then
If RegExpTest(SqlOrder, PureFieldKey & " +desc *$") Then
PureFieldKeyOrder = "order by " & PureFieldKey & " desc"
Else
PureFieldKeyOrder = "order by " & PureFieldKey & " asc"
End If
Else
AddErrDescription "SQL语句错误:[ORDER BY]语句中，主键[" & FieldKey & "]应为最后一项排序规则！"
E