本文轉(zhuǎn)自：
http://hi.baidu.com/gotodbz/blog/item/b8777e1684ad681c972b43c4.html
|
1 <%@Language = "VBScript" Codepage = "936"%> 2 <% 3 '分頁(yè)sql語(yǔ)句生成代碼 4 Function GetPageSql(TblName,FldName,PageSize,PageIndex,OrderType,StrWhere) 5 ???? Dim StrTemp,StrSql,StrOrder 6 ???? '根據(jù)排序方式生成相關(guān)代碼 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頁(yè)則無(wú)須復(fù)雜的語(yǔ)句 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頁(yè)，構(gòu)造sql語(yǔ)句 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語(yǔ)句 35 End Function 36 Response.Write(GetPageSql("Message","MessageID",10,1,0,"")) 37 %> |
更多文章、技術(shù)交流、商務(wù)合作、聯(lián)系博主
微信掃碼或搜索：z360901061
微信掃一掃加我為好友
QQ號(hào)聯(lián)系： 360901061
您的支持是博主寫(xiě)作最大的動(dòng)力，如果您喜歡我的文章，感覺(jué)我的文章對(duì)您有幫助，請(qǐng)用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧，狠狠點(diǎn)擊下面給點(diǎn)支持吧，站長(zhǎng)非常感激您！手機(jī)微信長(zhǎng)按不能支付解決辦法：請(qǐng)將微信支付二維碼保存到相冊(cè)，切換到微信，然后點(diǎn)擊微信右上角掃一掃功能，選擇支付二維碼完成支付。
【本文對(duì)您有幫助就好】元
