ASP构造大数据量的分页SQL语句
2005-05-21 13:45
537 查看
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
%>
<%@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
%>
相关文章推荐
- ASP构造大数据量的分页SQL语句 选择自 AppleBBS 的 Blog
- ASP构造大数据量的分页SQL语句
- ASP构造大数据量的分页SQL语句
- ASP构造大数据量的分页SQL语句。
- ASP构造大数据量的分页SQL语句
- ASP构造大数据量的分页SQL语句
- 【转】ASP构造大数据量的分页SQL语句
- ASP构造大数据量的分页SQL语句。
- ASP构造大数据量的分页SQL语句
- ASP构造大数据量的分页SQL语句
- MySQL大数据量分页查询方法及其优化 ---方法1: 直接使用数据库提供的SQL语句 ---语句样式: MySQL中,可用如下方法: SELECT * FROM 表名称 LIMIT M,N ---适
- 构造获取分页操作SQL语句
- asp.net结合aspnetpager用sql语句分页
- asp.net分页的SQL语句及存储过程
- ASP.NET 2.0 分页技术之使用纯sql语句的双top分页篇
- 【转自csdn】Web开发中一种用sql语句完成分页的高效率方法,以jsp/asp为例
- Asp.Net:分页sql语句的两种写法
- 构造获取分页操作SQL语句
- asp.net结合aspnetpager用sql语句分页
- asp.net 分页sql语句(结合aspnetpager)