默认显示全部数据及分页

2010-1-31 07:56| 发布者: admin| 查看: 48| 评论: 0|原作者: 小寳寳

<%
JobClassid=Request.QueryString("Jobclassid")
dim i,intPage,page,pre,last,filepath
Set Rs=Server.Createobject("Adodb.Recordset")
E_Sql="Select * From VIEW_JOBMA where 1=1 "
IF JobClassid<>"" Then
E_Sql=E_Sql&" AND JobClassid="&JobClassid&""
END IF
rs.PageSize = 8 ' //（'这里设定每页显示的记录数
rs.CursorLocation = 3
rs.Open E_sql,cnn,1,3 ' //（'这里执行你查询SQL并获得结果记录集
pre = true
last = true
page = trim(Request.QueryString("page"))

if len(page) = 0 then
intpage = 1
pre = false
else
if cint(page) =< 1 then
intpage = 1
pre = false
else
if cint(page) >= rs.pagecount then
intpage = rs.pagecount
last = false
else
intpage = cint(page)
end if
end if
end if
if not rs.eof then
rs.AbsolutePage = intpage
end if
%>
<%

for i=1 to rs.PageSize
if rs.EOF or rs.BOF then exit for

%>
<%
rs.movenext
next

%>

<%if rs.pagecount > 0 then%>

<%else%>

<%end if%>

Page<%=intpage%>/<%=rs.pagecount%>

Curren0/0

Home|
<%if pre then%>
PREVIOUS|
<%end if%>
<%if last then%>
NEXT |
<%end if%>
Tail | GO

<%
Rs.Close
Set Rs=Nothing
%>

收藏分享邀请

		自动登录	找回密码
密码			注册

默认显示全部数据及分页

最新评论

相关分类