| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 786 人关注过本帖
标题:分页显示问题,显示总页数与“首页,下一页。。”无法正常使用
只看楼主 加入收藏
alonemu
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2008-8-23
收藏
 问题点数:0 回复次数:1 
分页显示问题,显示总页数与“首页,下一页。。”无法正常使用
我的代码为何无法将共页多少页显示清楚,
无论有多少记录都只显示第一页的4条记录(我设置的是每页显示4条)
一下是代码:
<%
Dim intCur,intTotal,I
'Dim connX,rst,strConnX,strSQL
dim rsX_numRows
If Request.ServerVariables("CONTENT_LENGTH") = 0 Then
    intCur = 1
Else
    intCur = CInt(Request.Form("CurPage"))
    Select Case Request.form("Page")
        Case"首页"
            intCur = 1
        Case"上一页"
            intCur = intCur - 1
        Case"下一页"
            intCur = intCur + 1
        Case"尾页"
            intCur = CInt(Request.Form("LastPage"))
    End Select
End If
set rsX=server.createobject("adodb.recordset")
rsX.CursorLocation = 2
rsX.CursorType = adOpenStatic
sql="select biaoti,neirong,chuchu,faburiqi from xinqingyizhan order by id desc"
rsX.open sql,connX,1,1
If Not rsX.EOF Then
rsX.AbsolutePage = intCur
End If
intTotal = rsX.PageCount
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index

Repeat2__numRows = 4
Repeat2__index = 0
rsX_numRows = rsX_numRows + Repeat2__numRows
%>

显示部分代码:
<form action="<% =request.ServerVariables("SCRIPT_NAME")%>"METHOD="POST">
<INPUT TYPE="Hidden"NAME="CurPage"VALUE="<% =intCur%>">
<INPUT TYPE="Hidden"NAME="LastPage"VALUE="<% =intTotal%>">
<INPUT TYPE="Submit"NAME="Page"VALUE="首页">&nbsp;&nbsp;
<% If intCur > 1 Then %>
<INPUT TYPE="Submit"NAME="Page"VALUE="上一页">&nbsp;&nbsp;
<% End If %>
<% If intCur <> intTotal Then %>
<INPUT TYPE="Submit"NAME="Page"VALUE="下一页">&nbsp;&nbsp;
<% End If %>
<INPUT TYPE="Submit"NAME="Page"VALUE="尾页">
</form>
搜索更多相关主题的帖子: 首页 
2008-08-24 00:35
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
http://www.
给楼主提供一个参考
2008-08-24 17:45
快速回复:分页显示问题,显示总页数与“首页,下一页。。”无法正常使用
数据加载中...
 
   



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

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