帮忙看看哪错了（分页）

imhsq 2005-12-10 08:01:18

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>
<%
dim page,i
set conn=server.createobject("adodb.connection")
conn.open "server=.;FIlEDSN=sys.dsn;uid=sa;pwd="
exec="select * from spt_values"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
rs.pagesize=15
if request("page")="" then
page=1
else
page=cint(request("page"))
end if
if page>rs.pagecount then
rs.absolutepage=rs.pagecount
else if page<0 or page="" then
rs.absolutepage=1
else
rs.absolutepage=page
end if
end if
%>
<%
for i=1 to rs.PageSize
if rs.EOF then
exit for
end if
%>

<table border=1 width=350><tr>
<TD><%=rs(0)%></TD>
<TD><%=rs(1)%></TD>
<TD><%=rs(2)%></TD></tr></table>
<%
rs.MoveNext
next
%>

<%if Request("page")<>1 then%>

<a href="fyfy.asp?page=1">首页</a>
<a href="fyfy.asp?page=<%=request("page")-1%>">上一页</a>
<%end if%>
<%if request("page")<>rs.PageCount then%>

<a href="fyfy.asp?page=<%=request("page")+1%>">下一页</a>
<a href="fyfy.asp?page=<%=rs.PageCount%>">尾页</a>
<%end if%>

<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

</body>
</html>

...全文

392 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

imhsq 2005-12-10

打赏
举报

我是菜鸟，HTML与脚本混起来看，更看不清了。

困扰我的是，为什么这么写实现不了正确的翻页效果。

zhybxyz 2005-12-10

打赏
举报

楼主参考这个吧，

<FORM name="pa" method="post" action="">
<TD width="70%" height="20" align="right" valign="middle" class="FONT">共搜索到<FONT color="#FF2D00">[<%=rc.RecordCount%>]</FONT>条信息分<FONT color="#FF2D00"><%=rc.pagecount%></FONT>页 <FONT color="#FF2D00"><%=rc.pagesize%></FONT>条/页当前第<FONT color="#FF2D00"><%=Page%></FONT>页 <a href="?ChannelName=<%=FlashChannelName%>&Page=1">首页</a>
<%if Page>1 then%>
<a href="?ChannelName=<%=FlashChannelName%>&Page=<%=Page-1%>">上页</a>
<%else%>
上页
<%end if%>
<%if Page < rc.pagecount then %>
<a href="?ChannelName=<%=Name%>&Page=<%=Page+1%>">下页</a>
<%else%>
下页
<%end if%>
<a href=?ChannelName=<%=Name%>&Page=<%=rc.pagecount%>>尾页</a>
<input name="Page" type="text" class="input" id="Page" value="<%=Page%>" size="3">
<input name="Submit2" type="submit" class="button" value="转到该页">
</TD>
</FORM>

zhybxyz 2005-12-10

打赏
举报

page+1

imhsq 2005-12-10

打赏
举报

也可以翻页，但是内容跟数据库中的不同，到了尾页再点下一步，内容不变，但是?page=的数字在变。
为什么？

zhybxyz 2005-12-10

打赏
举报

＜%
　If rs1.recordcount＞0 Then ' 记录集不为空则处理记录
　　rs1.pagesize = 10 ' 设置每页显示的记录数
　　num=rs1.recordcount ' 记录总数
　　pagenum=rs1.pagecount ' 页总数
　　page=request("page") ' 获取页码的原始信息
　　' 处理页码原始信息的开始！
　　If page ＜＞ "" then
　　　page = cint(page)
　　if err.number ＜＞ 0 then
　　　err.clear
　　　page = 1
　　end if
　　if page ＜ 1 then
　　　page = 1
　　end if
　else
　　page = 1
　End if
　if page*rs1.pagesize ＞ num and not((page-1)*rs1.pagesize ＜ num)then
　　page=1
　end if
　' 处理页码原始信息的结束！设置当前页码
　rs1.absolutepage = page
%＞
＜!--判断当前页是否是最后一页，并根据判断设置记录的重复显示--＞
＜% if page＜＞pagenum then
　　　lablenum=rs1.pagesize
　　else
　　　lablenum=num-(page-1)*rs1.pagesize
　　end if
　　for i=1 to lablenum
%＞
＜tr bgcolor="#FFFFFF"＞
　＜td height="25"＞＜div align="center"＞＜%=(rs1.Fields.Item("id").Value)%＞＜/div＞＜/td＞
　＜td＞＜div align="center"＞＜%=(rs1.Fields.Item("名称").Value)%＞＜/div＞＜/td＞
　＜td＞＜div align="center"＞＜%=(rs1.Fields.Item("地址").Value)%＞＜/div＞＜/td＞
　＜td＞＜div align="center"＞＜%=(rs1.Fields.Item("类别").Value)%＞＜/div＞＜/td＞
　＜td＞＜div align="center"＞＜%=(rs1.Fields.Item("最后修改").Value)%＞＜/div＞＜/td＞
　＜td＞＜div align="center"＞＜%=(rs1.Fields.Item("修改人").Value)%＞＜/div＞＜/td＞
＜/tr＞
＜%
　rs1.movenext
next
%＞
＜!--当前页的记录显示结束，以下代码为记录集分页链接代码--＞
＜table width="70%" border="0" align="center" cellpadding="0" cellspacing="0"＞
　＜tr＞
　　＜td height="35"＞
　　　＜div align="right"＞
　　　　＜font color="#333333"＞
　　　　　共有＜%=num%＞个链接 |
　　　　　＜a href=linkadmin.asp?page=1＞首页＜/a＞ |
　　　　　＜%if page＞1 then%＞＜a href=linkadmin.asp?page=＜%=page-1%＞＞＜%end if%＞上一页＜/a＞ |
　　　　　＜%if page＜pagenum then%＞＜a href=linkadmin.asp?page=＜%=page+1%＞＞＜%end if%＞下一页＜/a＞ |
　　　　　＜a href=linkadmin.asp?page=＜%=pagenum%＞＞尾页＜/a＞ |
　　　　　　页次:＜%=page%＞/＜%=pagenum%＞页 |
　　　　　　共＜%=pagenum%＞页
　　　　＜/font＞
　　　＜/div＞
　　＜/td＞
　＜/tr＞
＜/table＞
＜!--记录集分页链接代码结束，记录集为空时执行以下代码--＞
＜%else%＞
＜tr bgcolor="#FFFFFF"＞
＜td height="25" colspan="6"＞＜div align="center"＞＜% response.Write("没有结果可显示！") %＞
＜/div＞＜/td＞
＜/tr＞
＜%
end if
rs1.Close()
Set rs1 = Nothing
%＞

ybfqlyq 2005-12-10