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 % >
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 % >