ASP构造大数据量的分页SQL语句-ASP教程,数据库相关
来源:作者: 发布时间:2007-12-25 13:38:42


|
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 %> |
|
还没有关于此文章的相关评论!