ASP构造大数据量的分页SQL语句。

最新推荐文章于 2017-05-03 08:16:28 发布

griefforyou

最新推荐文章于 2017-05-03 08:16:28 发布

阅读量2.5k

点赞数

CC 4.0 BY-SA版权

分类专栏： Web开发技术文章标签： sql asp vbscript function 存储

本文链接：https://blog.youkuaiyun.com/griefforyou/article/details/37779

Web开发技术专栏收录该内容

20 篇文章

订阅专栏

博客讲述将铁拳的存储过程‘实现千万级数据的分页显示’改成ASP代码。给出了分页SQL语句生成的VBSCRIPT代码，包含根据排序方式生成代码、不同页码构造不同SQL语句的逻辑，并通过函数返回最终SQL语句，最后进行了输出测试。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

看了铁拳的存储过程“实现千万级数据的分页显示！”，觉得不错，我给改成了ASP代码了。

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'分页SQL语句生成代码
Function GetPageSQL(tblName,fldName,PageSize,PageIndex,OrderType,strWhere)
Dim strTemp,strSQL,strOrder

    '根据排序方式生成相关代码
    if OrderType=0 then
        strTemp=">(select max([" & fldName & "])"
        strOrder=" order by [" & fldName & "] asc"
    else
        strTemp="<(select min([" & fldName & "])"
        strOrder=" order by [" & fldName & "] desc"
    end if

    '若是第1页则无须复杂的语句
    if PageIndex=1 then
        strTemp=""
        if strWhere<>"" then
            strTmp = " where " + strWhere
        end if
        strSQL = "select top " & PageSize & " * from [" & tblName & "]" & strTmp & strOrder
    else        '若不是第1页，构造SQL语句
        strSQL="select top " & PageSize & " * from [" & tblName & "] where [" & fldName & "]" & strTemp & _
        " from (select top " & (PageIndex-1)*PageSize & " [" & fldName & "] from [" & tblName & "]"
        if strWhere<>"" then
            strSQL=strSQL & " where " & strWhere
        end if
        strSQL=strSQL & strOrder & ") as tblTemp)"
        if strWhere<>"" then
            strSQL=strSQL & " And " & strWhere
        end if
        strSQL=strSQL & strOrder
    end if
    GetPageSQL=strSQL        '返回SQL语句
End Function
response.write(GetPageSQL("message","messageid",10,1,0,""))
%>