| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 575 人关注过本帖
标题:,我的分页代码怎么没用啊,帮我看看啊
只看楼主 加入收藏
xreins
Rank: 1
等 级:新手上路
帖 子:22
专家分:3
注 册:2009-8-12
结帖率:100%
收藏
已结贴  问题点数:10 回复次数:5 
,我的分页代码怎么没用啊,帮我看看啊
我分页size有用,但是点下一页就没用啊,我直接在地址加page参数也不跳啊,下面是代码,麻烦帮帮忙啊

set rs1 = server.CreateObject("adodb.recordset")
if namechoice="" then
sql="select * from tblTurnDay_Detail where date0 between #"&starttime&"# and #"&endtime&"# order by date0 desc"
else
sql="select * from tblTurnDay_Detail where cardid='"&namechoice&"' and date0 >=#"&starttime&"# and date0<=#"&endtime&"# order by date0 desc"
end if
rs1.open sql ,conn1,3,3
%>
<table width="95%" style="border:1px solid black; text-align:center;">
  <tr bgcolor="#CCFF99">
    <td width="9%">日期</td>
    <td width="8%">卡号</td>
    <td width="11%">姓名</td>
    <td width="12%">上班时间</td>
    <td width="12%">下班时间</td>
    <td width="14%" widht="auto">考勤状态</td>
    <td width="34%" widht="auto">备注</td>
  </tr>
<%dim page,maxpage ,icount,tmp,ipagesize
tmp=request.ServerVariables("query_string")
ipagesize=rs1.pagesize
rs1.pagesize=99
maxpage=rs1.pagecount
icount = rs1.recordcount
if page = "" then
page =1
else
page = cint(trim(request("page")))
end if
if page <1 then
page =1
end if
if page > maxpage then
page = maxpage
end if
if page = maxpage then
x = icount-(maxpage-1)*rs1.pagesize
else
x=rs1.pagesize
end if
if rs1.eof or rs1.bof then%>
<li>no data</li>
<%else
rs1.absolutepage = page
do until rs1.eof or x<0
 %>   
  <tr bordercolor="#0033CC" bgcolor="#CCFFFF" class="123">
    <td width="9%" class="123"><%=rs1("date0")%></td>
    <td width="8%"><%=rs1("cardid")%></td>
    <td width="11%">
    <%    set rs4 = server.CreateObject("adodb.recordset")
        rs4.open "select * from tblemp where cardid='"&rs1("cardid")&"'",conn1,1,1
        response.Write (rs4("EmpName"))
        rs4.close
        set rs4 = Nothing
    %>    </td>
    <td width="12%"><%=rs1("in0")%></td>
    <td width="12%"><%=rs1("out0")%></td>
    <td width="14%">
    <%
    if trim(rs1("strdesc")) <>"" then
    response.Write ("<font color=red>"&rs1("strdesc")&"</font>") %>
    <%else
    response.Write "正常"
    end if
    %>
    </td>
    <td width="11%"></td>
    <%
    x=x-1
    rs1.movenext
    loop
    end if%>
</table>
<li style="text-align:center; width:95%; line-height:20px; margin-top:5px;padding-top:10px; font-size:14px; background:#CCFFFF;">   
        共<%=icount%>条记录 当前第<%=page%>/<%=maxpage%>页      
        <a href="inquiry.asp?<%=tmp%>&page=<%=1%>">首页</a>
        <a href="inquiry.asp?<%=tmp%>&page=<%=page-1%>">上一页</a>
        <a href="inquiry.asp?<%=tmp%>&page=<%=page+1%>">下一页</a>
        <a href="inquiry.asp?<%=tmp%>&page=<%=maxpage%>">尾页</a>
        转到第
<select name="sel_page" onchange="javascript:location=this.options[this.selectedIndex].value;">
<%
for i = 1 to rs1.PageCount
if i = page then%>
<option value="inquiry.asp?<%=tmp%>&page=<%=i%>" selected><%=i%></option>
<%else%>
<option value="inquiry.asp?<%=tmp%>&page=<%=i%>"><%=i%></option>
<%
end if
next
%>
</select>页
</li>
<%

rs1.close
set rs1 = nothing
%>
搜索更多相关主题的帖子: 代码 
2010-01-20 11:44
xreins
Rank: 1
等 级:新手上路
帖 子:22
专家分:3
注 册:2009-8-12
收藏
得分:0 
我只有10分,全身的家当啊,就意思意思下,那个帮忙看看啊,
2010-01-20 11:46
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:10 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="CONDB.inc"-->
<!--引用数据库连接文件-->
<%
   '声明数据库记录集对象
   Dim rsano
   '创建数据库记录集对象
   Set rsano=Server.CreateObject("ADODB.Recordset")
   '设定数据库记录集游标类型
   rsano.cursortype=3
   '打开记录集对象
   rsano.Open "select * From ANOUCE ORDER BY AnnounceTheDate DESC",con
   '设定每页显示记录数
   rsano.pagesize=25
   '得到请求的页号
   page=clng(request("page"))
   IF request("page")<>"" then
     page=clng(request("page"))
   Else
     page=1
   End IF
   IF page<1 Then page=1
   If page>rsano.pagecount Then page=rsano.pagecount
   rsano.absolutepage=page
%>
<title>网站公告页面</title>
<!--去除超连接下划线样式表和字体大小设定代码-->
<STYLE type=text/css>
A {
    TEXT-TRANSFORM: none; TEXT-DECORATION: none
}
UNKNOWN {
    TEXT-DECORATION: underline
}
.style22 {font-size: 12px}
.style16 {font-size: 14px}
BODY {
    background-color: <%=PageStyleT.BackGround%>;
}
</STYLE>
</head>

<BODY>

<table width="294" height="46" border="0" cellspacing="0">
  <tr>
    <td width="338"><div align="center" class="style22">公告标题</div></td>
    <td width="95"><div align="center" class="style22">发布日期</div></td>
  </tr>
  <%
  '定义循环变量
  dim iPage
  For iPage=1 to rsano.Pagesize
   'recno=(page-1)*rsano.pagesize+ipage记录编号计算公式
   Response.Write("<tr>")
     Response.write("<td><span class=style16><a href=announceview.asp?anbh="&rsano.Fields(0).Value&" target=_self>"&rsano.Fields(1).Value&"</a></span></td>")
     Response.Write("<td><span class=style22>"&FormatDateTime(rsano.Fields(4).Value,2)&"</span></td>")
   Response.Write("</tr>")
   rsano.MoveNext
   IF rsano.EOF Then
      Exit For
   End If
  Next
  %>
</table>
<table width="293" border="0">
  <tr>
  <%
  '翻页控制代码
  IF page<>1 Then
    Response.Write("<td><span class=style22><a href=announce.asp?page=1>第一页</a></span></td>")
    Response.Write("<td><span class=style22><a href=announce.asp?page="&(page-1)&">上一页</a></span></td>")
  Else
    Response.Write("<td><span class=style22>第一页</span></td>")
    Response.Write("<td><span class=style22>上一页</span></td>")
  End IF   
  IF page<>rsano.pagecount then
    Response.Write("<td><span class=style22><a href=announce.asp?page=" & (page+1) & ">下一页</a></span></td>")
    Response.Write("<td><span class=style22><a href=announce.asp?page=" & rsano.pagecount & ">最后一页</a></span></td>")
  Else
    Response.Write("<td><span class=style22>下一页</span></td>")
    Response.Write("<td><span class=style22>最后一页</span></td>")  
  End IF
  %>
    <td><span class=style22>共<%=rsano.pagecount%>页</span></td>
    <td><span class=style22>当前第<%=page%>页</span></td>
  </tr>
</table>
<%
'网页对象销毁代码(使用过后内存清空)
rsano.Close
con.Close
Set rsano=Nothing
Set con=Nothing
%>
给楼主一个最简单的ASP分页来参考一下。
2010-01-20 12:03
xreins
Rank: 1
等 级:新手上路
帖 子:22
专家分:3
注 册:2009-8-12
收藏
得分:0 
谢谢斑竹了,我还有个问题,我那个页面是通过表单提交的数据选择查询条件,
我现在是用的get方法,如果我用post方法,分页链接需要怎么做,才能传递我的查询条件呢。


2010-01-20 12:44
孤独冷雨
Rank: 10Rank: 10Rank: 10
来 自:安徽滁州
等 级:贵宾
威 望:23
帖 子:1247
专家分:1909
注 册:2007-6-4
收藏
得分:0 
cid=request("cid")
cname=request("cname")
<a href="announce.asp?fy=<%=page+1%>&cataid=<%=cid%>&cataname=<%=cname%>">下一页</a>
你把参加连接到后面就行了!

[ 本帖最后由 孤独冷雨 于 2010-1-20 15:14 编辑 ]

这里有男女系列成人用品,有时间兄弟们来看一看.
51za.
2010-01-20 15:10
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
以下是引用xreins在2010-1-20 12:44:50的发言:

谢谢斑竹了,我还有个问题,我那个页面是通过表单提交的数据选择查询条件,
我现在是用的get方法,如果我用post方法,分页链接需要怎么做,才能传递我的查询条件呢。
用POST有两种办法
一是POST得到参数后立刻转给GET,然后分页连接里还是使用哪个参数。
二是分页链接用Javascript写,用一个隐藏POST表单在每页时提交到下一页即可。
2010-01-20 18:30
快速回复:,我的分页代码怎么没用啊,帮我看看啊
数据加载中...
 
   



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

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