回 帖 发 新 帖 刷新版面

主题:关于分页显示的问题

<table width="696" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td align="left" valign="middle"><%
            mdfl=request("mdfl")
 set rs=server.createobject("adodb.recordset")
 sql="select * from mingdian where mdfl='"&request("mdfl")&"' order by mdid desc"
 rs.open sql,Conn,1,1
 if rs.eof and rs.bof then
 %>
                <table width="90%" height="20" border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr>
                    <td width="593" height="19" colspan="2" class="zhui">暂时还没有任何图片</td>
                  </tr>
                </table>
                <%rs.close%>
                <%
else 
%>
                <!-- 分页代码开始 -->
                <% 
  const MaxPerPage=5   '单独页最大记录数 const 用来申明常量
   dim sql 
   dim rs
   dim totalPut   '总记录
   dim CurrentPage '  currentpage = 1  '当前页次
   dim TotalPages   '总页数
   dim i
   dim id
   
 if not rs.eof then
  rs.MoveFirst  '注意放到前面来,否则到任何页总是在第一个记录上
  end if
  rs.pagesize=MaxPerPage  '设置每页最多显示多少条记录
  If trim(Request("Page"))<>"" then  '如果请求的页次不为空
   If IsNumeric(trim(Request("Page"))) = False Then
        GoError "分页参数错误,请不要试图破坏此系统。"
    End If
    CurrentPage= CLng(request("Page"))   'clng是转换成长整型数据类型,并赋值到当前页次上
    If CurrentPage> rs.PageCount then  '如果当前页次大于总页数,则将最大页次赋值到当前页次上
        CurrentPage = rs.PageCount 
    End If 
Else 
    CurrentPage= 1 '一切条件不成立,将当前页设为第一页
End If 


 totalPut=rs.recordcount '将总记录赋值于TOTALPUT
    if CurrentPage<>1 then '如果当前页数不等于第一页
        if (currentPage-1)*MaxPerPage<totalPut then  '如果当前页减一乘以每页最大的记录数小于总记录的话
            rs.move(currentPage-1)*MaxPerPage  '相对当前记录数向后移动
            dim bookmark  '定义书签变量
            bookmark=rs.bookmark '将当前记录的标签赋于变量BOOKMARK上
        end if 
    end if

    dim n,k 
    if (totalPut mod MaxPerPage)=0 then  '总记录数与每页最大记录数求余的结果为零时,则N返回整数页次,否则再加一.
        n= totalPut \ MaxPerPage
    else  
        n= totalPut \ MaxPerPage + 1  
    end if
%>
                <!-- 将RS记录指针指向第一个记录,然后开始判断移动记录时,记录结尾是否为空,如果不为空接着移动指针,把所有数据都读取出来。直到结尾为空时,退出循环 -->
                <%
id=(totalPut-MaxPerPage*(currentPage-1))+1 
i=0
Do While Not rs.EOF and i<MaxPerPage
id=id-1
%>
                <%for j = 1 to 1

next

%>
                <table width="696" border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr>
                    <%for j = 1 to 1
    if not rs.eof then%>
                    <td align="left" valign="top"><table width="696" border="0" cellspacing="0" cellpadding="0">
                        <tr>
                          <td width="472" height="30" align="center" valign="top" class="red"><table width="472" border="0" cellspacing="0" cellpadding="0">
                            <tr>
                              <td width="30" align="center" valign="middle" class="red">&nbsp;</td>
                              <td width="442" height="20" align="left" valign="middle"><span class="baise"><%=rs("mdname")%>&nbsp; <img src="images/card.gif" width="14" height="10"> 使用一本通享受 <span class="xiaoc"><%=rs("mdzeko")%></span></span></td>
                            </tr>
                            <tr align="left">
                              <td colspan="2" valign="middle"><table width="472" border="0" cellspacing="0" cellpadding="0">
                                <tr>
                                  <td width="66" height="20" align="right" valign="middle" class="zhui">地址:</td>
                                  <td colspan="3" align="left" valign="middle" class="xiaoc"><span class="zhui"><%=rs("mdld")%><%=rs("mdadd")%>&nbsp; </span><span class="chengse">→ 周边信息</span> </td>
                                </tr>
                                <tr>
                                  <td height="20" align="right" valign="middle" class="zhui">电话:</td>
                                  <td colspan="3" align="left" valign="middle" class="zhui"><%=rs("mdtel")%></td>
                                </tr>
                                <tr>
                                  <td height="20" colspan="4"><table width="472" border="0" cellspacing="0" cellpadding="0">
                                    <tr align="right" valign="middle">
                                      <td width="66" height="20" class="zhui">服务:</td>
                                      <td width="40" align="left" class="xiaoc">[color=FF0000]<%
set rs = conn.execute("select sum(fuwu) from dianping where mdid="&request("mdid")&"")

%>
                                          <% = rs(0)%>[/color]                                      </td>
                                      <td width="66" class="zhui">口味:</td>
                                      <td width="40" align="left" class="xiaoc">[color=ff0000]<%
set rs = conn.execute("select sum(kouwai) from dianping where mdid="&request("mdid")&"")

%>
                                          <% = rs(0)%>[/color]</td>
                                      <td width="66" class="zhui">环境:</td>
                                      <td width="40" align="left" class="xiaoc">[color=ff0000]<%
set rs = conn.execute("select sum(huanjin) from dianping where mdid="&request("mdid")&"")

%>
                                          <% = rs(0)%>[/color]</td>
                                      <td width="66" class="zhui">性价比:</td>
                                      <td width="88" align="left" class="xiaoc">[color=ff0000]<%
set rs = conn.execute("select sum(xingjiabi) from dianping where mdid="&request("mdid")&"")

%>
                                          <% = rs(0)%>[/color]</td>
                                    </tr>
                                  </table></td>
                                </tr>
                                <tr>
                                  <td height="20">&nbsp;</td>
                                  <td width="80" height="20" align="center" valign="middle" class="red">查看点评</td>
                                  <td width="80" align="center" valign="middle" class="red">我要点评</td>
                                  <td width="246">&nbsp;</td>
                                </tr>
                              </table></td>
                              </tr>
                          </table></td>
                          <td width="80" align="center" valign="middle" class="chengse"><%=rs("mdxiaofei")%></td>
                          <td width="150" align="center" valign="middle"><table width="99" border="0" cellspacing="0" cellpadding="0">
                            <tr>
                              <td height="76" align="center" valign="middle" background="images/mdtubg.gif"><a href="mdtext.asp?mdid=<%=rs("mdid")%>&mdname=<%=rs("mdname")%>&mdld=<%=rs("mdld")%>"><img src="../<%=rs("mdpic")%>" alt="<%=rs("ctname")%>" width="95" height="72" border="0" /></a></td>
                            </tr>
                          </table></td>
                        </tr>
                        <tr bgcolor="4C4C4C">
                          <td height="1" colspan="3" align="left" valign="top"><img src="images/spacer.gif" width="1" height="1"></td>
                        </tr>
                        <tr>
                          <td height="4" colspan="3" align="left" valign="top"><img src="images/spacer.gif" width="1" height="1"></td>
                        </tr>
                        <tr>
                          <td height="1" colspan="3" align="left" valign="top" background="image/dian.gif"><img src="../image/spacer.gif" width="1" height="1" /></td>
                        </tr>
                      </table>
                        <%
      i=i+1
  rs.movenext
 end if
      next%>
                    </td>
                  </tr>
                  <%   
  loop
    %>
                </table>
                <!--页码显示代码开始-->
                <table width="92" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td height="20">&nbsp;</td>
                  </tr>
                </table>
                <table border="0" align="center" >
                  <tr>
                    <td align="center" class="mhui"> 第 <%=currentpage%>/<%=n%> 页 共 <%=rs.recordcount%>个信息
                        <%k=currentPage'判断当前是第几页
        if k<>1 then'如果不是第一页的话就显示如下
            response.write "[<b>"+"<a href='?action=show&page=1&mdfl="&request("mdfl")&"'>首页</a></b>] "
            response.write "[<b>"+"<a href='?action=show&page="&cstr(k-1)&"&mdfl="&request("mdfl")&"'>上一页</a></b>] "
        else
            Response.Write "[首页] [上一页]"
        end if
        if k<>n then'如果不是最后一页的话就显示如下
            response.write "[<b>"+"<a href='?action=show&page="&cstr(k+1)&"&mdfl="&request("mdfl")&"'>下一页</a></b>] "
            response.write "[<b>"+"<a href='?action=show&page="&cstr(n)&"&mdfl="&request("mdfl")&"'>尾页</a></b>] "
        else
            Response.Write "[下一页] [尾页]"
        end if
        
        rs.close  
    %>
                    </td>
                  </tr>
                </table>
                <% end if %></td>
          </tr>
        </table>



大家帮小弟弟看,这个分页显示是没有问题的,问题是里面红色字的问题,我想把网友评价的分数总分,显示在每个相关店的信息里面。店的信息和评价是两不同的表里面的。可是显示出来的是店信息表中的ID号。怪怪,小弟弟不知道哪里写错,大哥大姐帮忙看看,谢谢了

回复列表 (共3个回复)

沙发

set rs = conn.execute("select sum(fuwu) from dianping where mdid="&request("mdid")&"")

注意你之前也是用的 rs ,这里要换个名字!!

板凳

那应该怎么去修改,小弟是自学ASP的,不太懂,帮帮我

3 楼

什么都行,名称不要相同就好

我来回复

您尚未登录,请登录后再回复。点此登录或注册