本文介绍了一段VBScript代码，用于生成适用于不同分页场景的SQL查询语句。通过设置表格名、字段名、页面大小、当前页数、排序类型及筛选条件等参数，可以动态生成针对特定需求的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%>
<%@Language="VBScript"Codepage="936"%>2
<%3
'分页sql语句生成代码4
FunctionGetPageSql(TblName,FldName,PageSize,PageIndex,OrderType,StrWhere)5
DimStrTemp,StrSql,StrOrder6
'根据排序方式生成相关代码7
IfOrderType=0Then8
StrTemp=">(SelectMax(["&FldName&"])"9
StrOrder="OrderBy["&FldName&"]Asc"10
Else11
StrTemp="<(SelectMin(["&FldName&"])"12
StrOrder="OrderBy["&FldName&"]Desc"13
EndIf14
15
'若是第1页则无须复杂的语句16
IfPageIndex=1Then17
StrTemp=""18
IfStrWhere<>""Then19
Strtmp="Where"&StrWhere20
EndIf21
StrSql="SelectTop"&PageSize&"*From["&TblName&"]"&Strtmp&StrOrder22
Else'若不是第1页，构造sql语句23
StrSql="SelectTop"&PageSize&"*From["&TblName&"]Where["&FldName&"]"&StrTemp&_24
"From(SelectTop"&(PageIndex-1)*PageSize&"["&FldName&"]From["&TblName&"]"25
IfStrWhere<>""Then26
StrSql=StrSql&"Where"&StrWhere27
EndIf28
StrSql=StrSql&StrOrder&")AsTbltemp)"29
IfStrWhere<>""Then30
StrSql=StrSql&"And"&StrWhere31
EndIf32
StrSql=StrSql&StrOrder33
EndIf34
GetPageSql=StrSql'返回sql语句35
EndFunction36
Response.Write(GetPageSql("Message","MessageID",10,1,0,""))37
%>
扫一扫
2552
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
