ASP构造大数据量的分页SQL语句--打印文章

ASP构造大数据量的分页SQL语句

作者：武汉SEO闵涛文章来源：敏韬网点击数3518 更新时间：2007/11/14 13:07:22 文章录入：mintao 责任编辑：mintao

<%@Language = "VBScript" Codepage = "936"%>
2

<%
3

''''分页sql语句生成代码
4

Function GetPageSql(TblName,FldName,PageSize,PageIndex,OrderType,StrWhere)
5

Dim StrTemp,StrSql,StrOrder
6

''''根据排序方式生成相关代码
7

If OrderType = 0 Then
8

StrTemp = "> (Select Max([" & FldName & "])"
9

StrOrder = " Order By [" & FldName & "] Asc"
10

Else
11

StrTemp = "< (Select Min([" & FldName & "])"
12

StrOrder = " Order By [" & FldName & "] Desc"
13

End If
14

''''若是第1页则无须复杂的语句
16

If PageIndex = 1 Then
17

StrTemp