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

新客网 XKER.COM 2004-07-27 来源： 收藏本文

看了铁拳的存储过程“实现千万级数据的分页显示！”，觉得不错，我给改成了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,""))
%>

• ·ASP+ACCESS数据库中文乱码问题解决
• ·编程实例 字母+数字验证码程序
• ·ASP连接数据库错误解决办法新法
• ·初学:ASP内建对象Response
• ·ASP网站Server object error的解决办法
• ·ASP技巧：让Len,Left,Right函数识别中文
• ·把网页中的电话号码生成图片的ASP程序
• ·ASP如何实现IE地址栏参数的判断
• ·细化解析：ASP连接11种数据库语法集锦
• ·ASP实现网页打开任何类型文件都保存
• ·ASP代码直接增加、删除ACCESS表和字段
• ·ASP：判断访问是否来自搜索引擎的函数
• ·ASP技巧：禁用页面缓存的五种方法
• ·学习ASP关于与变量子类型相关的函数
• ·ASP开发中的(VBScript)类基础学习
• ·ASP访问Excel文件