| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 497 人关注过本帖
标题:[精]分页的问题。。。
只看楼主 加入收藏
iamliubo
Rank: 1
等 级:新手上路
帖 子:357
专家分:0
注 册:2005-11-7
收藏
 问题点数:0 回复次数:4 
[精]分页的问题。。。
我加???的那地方是应该那么改吗,改完也无法分页啊,是不是还有别的问题
<%
news=Request.Form("news")
strconn="provider=microsoft.jet.oledb.4.0;data source=C:\Inetpub\wwwroot\lb\db1.mdb;persist security info=false"
set strrs=Server.CreateObject("adodb.recordset")
strrs.Open"select * from lxr where 地址 like '%"&news&"%'",strconn,adOpenstatic
strrs.pagesize=1
page=10????????????????
if not strrs.EOF then
Response.Write "<a href='"&strrs("url")&"'>"&strrs("名字")&"</a><br>"
strrs.MoveNext
end if
if page<1 then
page=1
end if
if page<>1 then
Response.Write"<a href='search.asp?page="&page+1&"'>下一页 "
Response.Write"<a href='search.asp?page="&strrs.pagecount&"'>最后一页 "
end if
if page<>strrs.pagecount then
page=strrs.pagecount
Response.Write"<a href='search.asp?page="&page-1&"'>上一页 "
Response.Write"<a href='search.asp?page="&page=1&"'>第一页 "
end if
strrs.Close
set strrs=nothing
%>
搜索更多相关主题的帖子: like security source false where 
2005-11-21 13:25
iamliubo
Rank: 1
等 级:新手上路
帖 子:357
专家分:0
注 册:2005-11-7
收藏
得分:0 
我看有的地方写的是
page=request("page")
但我不明白这个PAGE是哪里的
请求回答

2005-11-21 13:30
阳光白雪
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:39
帖 子:2220
专家分:0
注 册:2005-11-18
收藏
得分:0 
<%
set rs=server.createobject("adodb.recordset")
rs.open strQuery,conn,1,1
rs.pagesize=15
pagenum=request("pagenum") '分页的关键
if pagenum="" or pagenum<=1 then
pagenum=1
else
pagenum=cint(pagenum)
end if
if pagenum>=rs.pagecount then
pagenum=rs.pagecount
else
pagenum=cint(pagenum)
end if
if rs.eof then
response.write("<tr><td align='center' width='100%'><font color='#CC3300' face='华文楷体' size='6'><b>暂无商品!</b></font></td></tr>")
else
rs.absolutepage=pagenum
for i=1 to rs.pagesize
%>
'*****************************************************
'你的输出内容
'*****************************************************
<%
rs.movenext
if rs.eof then exit for
next
%>
<%
response.write"<tr><td align=center colspan=2><font size='2'>共有&nbsp;<font color='#008000'><b>"&num&"</b></font>&nbsp;本图书&nbsp;&nbsp;每页&nbsp;<font color='#008000'><b>"&rs.pagesize&"</b></font>&nbsp;条&nbsp;&nbsp;当前第&nbsp;<font color='#008000'><b>"&pagenum&"</b></font>&nbsp;页&nbsp;&nbsp;共&nbsp;<font color='#008000'><b>"&rs.pagecount&"</b></font>&nbsp;页&nbsp;&nbsp;</font>"
if pagenum<=1 then
response.write"<font size='2'>首页&nbsp;&nbsp;</font>"
response.write"<font size='2'>上一页&nbsp;&nbsp;</font>"
else
response.write"<font size='2'><a href=madmin.asp?pagenum=1>首页</a>&nbsp;&nbsp;</font>"
response.write"<font size='2'><a href=madmin.asp?pagenum="&pagenum-1&">上一页</a>&nbsp;&nbsp;</font>"
end if
if pagenum>=rs.pagecount then
response.write"<font size='2'>下一页&nbsp;&nbsp;</font>"
response.write"<font size='2'>尾页&nbsp;&nbsp;</font>"
else
response.write"<font size='2'><a href=madmin.asp?pagenum="&pagenum+1&">下一页</a>&nbsp;&nbsp;</font>"
response.write"<font size='2'><a href=madmin.asp?pagenum="&rs.pagecount&">尾页</a>&nbsp;&nbsp;</font>"
end if
response.write"</td></tr>"
end if
set rs=nothing
%>

专注于WEB前端交互平台开发:[url=http://blog./]blog.[/url](富客户端技术(RIA)交流平台)
2005-11-21 13:39
iamliubo
Rank: 1
等 级:新手上路
帖 子:357
专家分:0
注 册:2005-11-7
收藏
得分:0 
pagenum=request("pagenum") '分页的关键
他的返回直是什么,我想了半天也没想出来

2005-11-21 14:21
iamliubo
Rank: 1
等 级:新手上路
帖 子:357
专家分:0
注 册:2005-11-7
收藏
得分:0 
request("pagenum") 他的直是哪个语句

2005-11-21 14:22
快速回复:[精]分页的问题。。。
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017550 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved