| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 578 人关注过本帖
标题:为什么翻页不了??
只看楼主 加入收藏
想象力
Rank: 1
等 级:新手上路
帖 子:78
专家分:0
注 册:2007-6-8
收藏
 问题点数:0 回复次数:3 
为什么翻页不了??
<!-- #include file="ADOFunctions1.inc" -->
<script language="vbscript">
sub gopage()
if window.event.keycode=13 then '若按回车键
page=document.formpage.pagenum.value '获取文本框中输入的页号
window.location.href="GuestBook.asp?pagenum=<%=page%>"
end if
end sub
</script>
<%
'从数据表中读取记录并存放在Recordset对象中
sqll="select * from duishou"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.open sqll,objConn,3
If ObjRs.eof and ObjRs.bof Then
Response.write "没有记录"
Response.End()
End if
'读取“liuyan”数据表的所有记录
'设置分页大小,您可视实际情况设置其他数值
objRS.PageSize =1
if request.querystring("pagenum")="" then
pagenum=1
else
pagenum=clng(request.querystring("pagenum"))
end if
objRS.absolutepage=pagenum
%>
<html>
<head><title> 分页显示数据</title></head>
<body bgcolor="#F9FFF0" text="#000000">
<table width="550" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>
<form name="formpage">
<%
response.write"共"&objRS.recordcount&"条记录,第"&pagenum&"/"&objRS.pagecount&"页&nbsp;&nbsp;"
if pagenum=1 then
response.write "[上一页]"
else
%>
[<a href=file:///C|/Documents%20and%20Settings/zlp/&#26700;&#38754;/GuestBook.asp?pagenum=<%=pagenum-1%>>上一页</a>]
<%
end if
if pagenum=objRS.pagecount then
response.write "[下一页]"
else
%>
[<a href=file:///C|/Documents%20and%20Settings/zlp/&#26700;&#38754;/GuestBook.asp?pagenum=<%=pagenum+1%>>下一页</a>]
<%
end if
if pagenum>1 then
%>
[<a href=file:///C|/Documents%20and%20Settings/zlp/&#26700;&#38754;/GuestBook.asp?pagenum=1>首页</a>]
<%
else
response.write "[首页]"
end if
if pagenum<objRS.pagecount then
%>
[<a href=file:///C|/Documents%20and%20Settings/zlp/&#26700;&#38754;/GuestBook.asp?pagenum=<%=objRS.pagecount%>>尾页</a>]
<%
else
response.write "[尾页]"
end if
%>
第<input type=text size=4 name="pagenum" onkeypress="gopage()">页
</form>
</td>
</tr>
</table>
<%
'显示留言并加以格式化
objRS.AbsolutePage = PageNum
%>


大家帮我看看为什么错~~
搜索更多相关主题的帖子: 记录 include 数据表 文本框 file 
2007-07-10 11:54
qhscqb
Rank: 1
等 级:新手上路
威 望:1
帖 子:343
专家分:0
注 册:2007-2-3
收藏
得分:0 
你写的分页判断程序有问题!

编程快乐,快乐编程! 没有最好,只有更好!
2007-07-10 13:02
qhscqb
Rank: 1
等 级:新手上路
威 望:1
帖 子:343
专家分:0
注 册:2007-2-3
收藏
得分:0 
window.location.href="GuestBook.asp?pagenum=<%=page%>"
我想可以改为window.location.href="GuestBook.asp?pagenum="+page

编程快乐,快乐编程! 没有最好,只有更好!
2007-07-10 13:09
qhscqb
Rank: 1
等 级:新手上路
威 望:1
帖 子:343
专家分:0
注 册:2007-2-3
收藏
得分:0 

因为vbscript如果是在客户端执行,则不能使用<%%>,所以不论page的值如何也不能赋于pagenum.


编程快乐,快乐编程! 没有最好,只有更好!
2007-07-10 13:11
快速回复:为什么翻页不了??
数据加载中...
 
   



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

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