asp 分页

asp 分页

<%
key=Trim(Request.QueryString("chazhao"))
set showbbs=Server.CreateObject("ADODB.RecordSet")
acc="select * from bbs where content like '%"&key&"%' order by id desc"
showbbs.open acc,conn,1,1
%>

<%
showbbs.pagesize= 5'一页显示记录数目

row=showbbs.pagesize'''''''''''''''''''''''修改部分

tatalrecord=showbbs.recordcount '获取记录总数目
tatalpages=showbbs.pagecount '获取分页总数目
showbbs.movefirst
nowpage=request("page") '用request获取当前页码，注意page是自己定义变量并非函数
if nowpage&"x"="x" then '页码为空时
nowpage=1
else
nowpage=cint(nowpage) '页码转换成数字型
end if
showbbs.absolutepage=nowpage '将指针移动到当前显示页的第一条记录
%>
---------------不需循环的------------------
<% if (showbbs.eof and showbbs.bof) then
response.Write("

NO Any thing!Please re-search!!


") '''''''''''''''''''''''修改部分
%>
<%else%>
<%while not showbbs.eof and row>0%>
-----------------需要循环的---------------
<%
showbbs.movenext
row=row-1'''''''''''''''''''''''修改部分
wend
%>
------------------不需要循环的-------------

Total:<%=tatalpages%> 共搜索到<%=tatalrecord) %>条信息

<% if nowpage>1 then '''''''''''''''''''''''修改部分%>
">Previous<%else%>Previous<%end if%>
<%for k=1 to tatalpages%>
<%if k<>nowpage then %>
">[<%=k%>]<%else%>[<%=k%>]<%end if '''''''''''''''''''''''修改部分%>
<%next%>
<%if nowpage < tatalpages then%>
">Next page<%else%>Next page<%end if%>
<%if nowpage<>1 then%>
">Frist Page<%else%>Frist Page <%end if%>
<%if nowpage<>tatalpages then %>
">Last Page
<%else%>
Last Page
<%end if%>
---------------------
<%
showbbs.close
set showbbs = nothing
conn.close
set conn = nothing
end if
%>

代码太乱了，难得看

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息