1
<
%@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
15
' 若是第1页则无须复杂的语句
16
If PageIndex = 1 Then
17
StrTemp
= " "
18
If StrWhere <> "" Then
19
Strtmp
= " Where " & StrWhere
20
End If
21
StrSql
= " Select Top " & PageSize & " * From [ " & TblName & " ] " & Strtmp & StrOrder
22
Else ' 若不是第1页,构造sql语句
23
StrSql = " Select Top " & PageSize & " * From [ " & TblName & " ] Where [ " & FldName & " ] " & StrTemp & _
24
" From (Select Top " & (PageIndex - 1 ) * PageSize & " [ " & FldName & " ] From [ " & TblName & " ] "
25
If StrWhere <> "" Then
26
StrSql
= StrSql & " Where " & StrWhere
27
End If
28
StrSql
= StrSql & StrOrder & " ) As Tbltemp)"
29
If StrWhere <> "" Then
30
StrSql
= StrSql & " And " & StrWhere
31
End If
32
StrSql
= StrSql & StrOrder
33
End If
34
GetPageSql
= StrSql ' 返回sql语句
35
End Function
36
Response.Write(GetPageSql(
" Message " , " MessageID " , 10 , 1 , 0 , "" ))
37
%
>