ASP構造大資料量的分頁SQL語句

來源:互聯網
上載者:User
分頁|資料|語句  1<%@Language = "VBScript" Codepage = "936"%>
 2<%
 3'分頁sql語句產生代碼
 4Function 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



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。