本文轉自：
http://hi.baidu.com/gotodbz/blog/item/b8777e1684ad681c972b43c4.html
|
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 %> |
更多文章、技術交流、商務合作、聯系博主
微信掃碼或搜索：z360901061
微信掃一掃加我為好友
QQ號聯系： 360901061
您的支持是博主寫作最大的動力，如果您喜歡我的文章，感覺我的文章對您有幫助，請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧，狠狠點擊下面給點支持吧，站長非常感激您！手機微信長按不能支付解決辦法：請將微信支付二維碼保存到相冊，切換到微信，然后點擊微信右上角掃一掃功能，選擇支付二維碼完成支付。
【本文對您有幫助就好】元
