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

1<%@Language="VBScript"Codepage="936"%>
2<%
3'分页sql语句生成代码
4FunctionGetPageSql(TblName,FldName,PageSize,PageIndex,OrderType,StrWhere)
5DimStrTemp,StrSql,StrOrder
6'根据排序方式生成相关代码
7IfOrderType=0Then
8StrTemp=">(SelectMax(["&FldName&"])"
9StrOrder="OrderBy["&FldName&"]Asc"
10Else
11StrTemp="<(SelectMin(["&FldName&"])"
12StrOrder="OrderBy["&FldName&"]Desc"
13EndIf
14
15'若是第1页则无须复杂的语句
16IfPageIndex=1Then
17StrTemp=""
18IfStrWhere<>""Then
19Strtmp="Where"&StrWhere
20EndIf
21StrSql="SelectTop"&PageSize&"*From["&TblName&"]"&Strtmp&StrOrder
22Else'若不是第1页，构造sql语句
23StrSql="SelectTop"&PageSize&"*From["&TblName&"]Where["&FldName&"]"&StrTemp&_
24"From(SelectTop"&(PageIndex-1)*PageSize&"["&FldName&"]From["&TblName&"]"
25IfStrWhere<>""Then
26StrSql=StrSql&"Where"&StrWhere
27EndIf
28StrSql=StrSql&StrOrder&")AsTbltemp)"
29IfStrWhere<>""Then
30StrSql=StrSql&"And"&StrWhere
31EndIf
32StrSql=StrSql&StrOrder
33EndIf
34GetPageSql=StrSql'返回sql语句
35EndFunction
36Response.Write(GetPageSql("Message","MessageID",10,1,0,""))
37%>