顺子网络 PHP网站建设

PHP/ASP/数据库/HTML/CSS/JavaScript/网络

海量数据分页



<%@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,"")) %>

阅读更多
文章标签: function sql vb
想对作者说点什么? 我来说一句

Repeater海量数据分页

2008年08月05日 3KB 下载

sybase海量数据分页瞬间完成2.0

2013年05月02日 395KB 下载

SQL分页读取海量数据存储过程

2008年02月28日 946B 下载

海量数据分页解决方案_demo

2008年10月16日 763KB 下载

海量数据查询sqlserver

2011年09月05日 897KB 下载

分页显示大量数据

2012年03月02日 839B 下载

没有更多推荐了,返回首页

不良信息举报

海量数据分页

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭