注册 登录
编程论坛 → ASP技术论坛

ASP一行显示多个记录并分页怎么做

kevinxu0638 发布于 2010-11-29 17:50， 2323 次点击
我想在一个页面实现一行显示三条记录 一页显示15行 有分页怎么做
<%
if  rs.eof then %>

  <tr height="10"> <%
      else
      do while not eof
     %>
     <% for i = 0 to 2%>
    <td valign="top">
     <div align="left"><%      
      if len(rs("title")) > 8  then  
      if (InStr(rs("memo"),"<img")>0) or (InStr(rs("memo"),"<IMG")>0) then
        %><a href="zw.asp?id=<%=rs("id")%>" target="_blank"><%
         response.Write left(rs("title"),5)&" ..." %></a>&nbsp;<img src="../images/pic.gif" width="12" height="12"><%
         else
         %><a href="zw.asp?id=<%=rs("id")%>" target="_blank"><%
         response.Write left(rs("title"),5)&" ..."%></a><%
         end if   
      else
          if (InStr(rs("memo"),"<img")>0) or (InStr(rs("memo"),"<IMG")>0)  then
          %><a href="zw.asp?id=<%=rs("id")%>" target="_blank"><%
         response.write rs("title")%></a>&nbsp;<img src="../images/pic.gif" width="12" height="12"><%
         else
          %><a href="zw.asp?id=<%=rs("id")%>" target="_blank"><%
            response.write rs("title")%></a><%
            end if
      end if        
    %></div></td><%
   Rs.movenext()
if Rs.eof=true then exit do
next
   %>
  </tr>
  <tr><td>&nbsp;</td></tr>
  <%
loop
end if
Rs.close
Set Rs = nothing
%></table>
上面的代码只实现了一行显示三个 怎么加上分页 有点乱了 会的大侠帮帮忙
10 回复
#2
kevinxu06382010-11-29 23:08
没人回
#3
gupiao1752010-11-30 00:11
你发的代码根本看不出为什么.没有前后,没有后面.就拿个中间段出来。要吗就把你的分页加数据库也发出来。要吗人家也只能给你一个思路.根本很难把你的代码拿去测试,甚至根本无法测试!

 思路的话:你可以参考下用最简单的ASP分页方式,网上这种资料很多的!
#4
a1900662010-11-30 03:25
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from Tablename where 你的条件 order by 排序字段名"
rs.open sql,conn,1,1
dim pagenum,pagecount1
rs.pagesize=10
''''''''''''''''每页显示的记录数
pagecount1=rs.pagecount
''''''''''''''''初始化分页变量
if isempty(request("pagenum")) or not isnumeric(request("pagenum")) then
''''''''''''''''或者改为:if len(resquest("pagenum"))=0 then
pagenum=1
else
pagenum=Cint(request.querystring("pagenum"))
''''''''''''''''类型转化
end if
''''''''''''''''处理异常情况
if pagenum>rs.pagecount then
pagenum=rs.pagecount
else
if pagenum<1 then pagenum=1
end if
rs.absolutepage=pagenum
%>

显示数据
<%do while not rs.eof and i<rs.pagesize%>
你需要逐个显示的东西
<%i=i 1
rs.movenext
loop%>

分页链接

<p align="center">
<%if pagenum>1 then%>
<a href=index.asp?pagenum=1>首页</a>
<a href=index.asp?pagenum=<%=(pagenum-1)%>>上一页</a>
<%else%>
首页 上一页
<%end if%>
<%if not rs.eof then%>
<a href=index.asp?pagenum=<%=(pagenum 1)%>>下一页</a>
<a href=index.asp?pagenum=<%=pagecount1%>>尾页</a>
<%else%>
下一页 尾页
<%end if%>
共有<%=pagecount1%>页，当前第<%=pagenum%>页
转到第<input type=text style="width:45px;" name="page" id="page">页 <a href=http://www. onClick="go()">确定</a>
</p>

底部加上这个跳转函数
<script language="javascript" type="text/javascript">
<!--
function go(){
var obp=document.getElementById("page");
pagenum=obp.value
window.location.href="index.asp?pagenum=" pagenum
}
//js跳转
</script>
#5
hams2010-11-30 08:12
大循环下再做个小循环，FOR i=1 to 3
#6
kevinxu06382010-11-30 09:25
回复 3楼 gupiao175
用的文件全在里面了
只有本站会员才能查看附件，请 登录


[ 本帖最后由 kevinxu0638 于 2010-11-30 09:57 编辑 ]
#7
kevinxu06382010-11-30 10:50
测试用的文件和数据库我发了 大侠们 帮忙 看 我想实现一行显示多个记录 一页显示10行 带分页的  测试的只做到了一行显示多个记录 分页的没法实现 两个我整不到一起去
#8
kevinxu06382010-11-30 11:04
只有本站会员才能查看附件，请 登录
给个图看看 就是要这样的效果 兄弟急 大侠们快来看看啊
#9
kevinxu06382010-11-30 13:35
没人回答啊
#10
dzt00012010-11-30 13:56
以下是引用kevinxu0638在2010-11-30 10:50:31的发言：

测试用的文件和数据库我发了 大侠们 帮忙 看 我想实现一行显示多个记录 一页显示10行 带分页的  测试的只做到了一行显示多个记录 分页的没法实现 两个我整不到一起去
版主不是回了，大循环里套小循环吗？
你给的压缩包里，文件不全，没办法测试。
#11
kevinxu06382010-11-30 14:54
以下是引用dzt0001在2010-11-30 13:56:11的发言：

版主不是回了，大循环里套小循环吗？
你给的压缩包里，文件不全，没办法测试。
我压缩包里的文件不好运行 不是吧 我里面的文件运行只要一行显示三个的效果没分页的 发出来是请求你们帮忙加个分页的
少什么文件啊
1
©2025, BC-CN.NET
电脑版