Dreamweaver中实现分页的代码

相关主题

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

dim m,n

set rs=server.CreateObject("adodb.recordset")

sqlstr="select * from message order by time desc"

rs.open sqlstr,conn,3,3

rs.pagesize=10 '定义一页显示的记录数目

tatalrecord=rs.recordcount '获取记录总数目

tatalpages=rs.pagecount '获取分页的数目

rs.movefirst

----------------------------

nowpage=request("page") '用request获取当前页数，注意page是自己定义的变量并非函数--------------------------

if nowpage&"x"="x" then '处理页码为空时的情况

nowpage=1

else

nowpage=cint(nowpage) '将页码转换成数字型

end if

--------------------------------

rs.absolutepage=nowpage '将指针移动到当前显示页的第一条记录

-------------------------------

---------------------------------------------

n=1

while not rs.eof and n<=rs.pagesize

response.Write(rs("user") & "
")

response.Write(rs("tt") & "
")

n=n+1

rs.movenext '显示页面的数据

wend

-------------------------------------------

共:<%=tatalpages%>页当前为:<%=nowpage%>页

<%if nowpage>1 then%>

<%else%>

<%end if%>

<%for k=1 to tatalpages%>

<%if k<>nowpage then %>

<%=k%>

<%else%>

<%=k%>

<%end if%>

<%next%>

<%if nowpage < tatalpages then%>

<%else%>

<%end if%> '加上页码连接<%if nowpage<>1 then%>

首页

<%else%>

首页

<%end if%>

<%if nowpage<>tatalpages then %>

末页

<%else%>

末页

<%end if%>