收藏本站腾讯微博新浪微博

经典论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

蓝色理想 最新研发动态 网站开通淘帖功能 - 蓝色理想插件 论坛内容导读一页看论坛 - 给官方提建议

论坛活动及任务 地图和邮件任务 请多用悬赏提问 热夏来袭,选一款蓝色理想的个性T恤吧!

手机上论坛,使用APP获得更好体验 急需前端攻城狮,获得内部推荐机会 论坛开通淘帖功能,收藏终于可以分类了!

搜索
查看: 1204|回复: 1

重复区域的问题

[复制链接]
发表于 2005-1-19 23:01:00 | 显示全部楼层 |阅读模式
<%
function pagination(pagecount,pagesize,page,resultcount)
    Dim query, a, x, temp
    action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
    query = Split(Request.ServerVariables("QUERY_STRING"), "&")
    For Each x In query
        a = Split(x, "=")
        If StrComp(a(0), "page", vbTextCompare) <> 0 Then
            temp = temp & a(0) & "=" & a(1) & "&"
        End If
    Next   
    Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+this.page.value;return false;"">")        
    if page<=1 then
        Response.Write ("[首页] [上一页] ")
    else        
        Response.Write("[<a href=" & action & "?" & temp & "Page=1>首页</a>] ")
        Response.Write("[<a href=" & action & "?" & temp & "Page=" & (Page-1) & ">上一页</a>] ")
    end if

    if page>=pagecount then
        Response.Write ("[下一页] [尾页]")        
    else
        Response.Write("[<a href=" & action & "?" & temp & "Page=" & (Page+1) & ">下一页</a>] ")
        Response.Write("[<a href=" & action & "?" & temp & "Page=" & pagecount & ">尾页</a>]")            
    end if
    Response.Write("[页次:<font color=red>" & page & "</font>/" & pageCount)   
    Response.Write("] [共" & resultcount & "条 <font color=red>"& pagesize & "</font>条/页]")
    Response.Write(" 转到" & "<input name=page size=4 value=" & page & ">" & "页<input type=submit value=go>")
End function
%>
我把上面的代码保存为 page.asp  然后在default.asp里调用<%call pagination(rs.PageCount,rs.pagesize,page,rs.RecordCount) %>

下面的是我的default.asp的 重复代码 我想让每页显示10条记录应该怎么写请高手指点一下
<% dim i
   i=pagesize    不知道这样对不对的 我运行有错误的
do while not rs.eof and i>0 %>
<tr>
<TD rowspan="2"><img src="<%=rs("face")%>"></TD>
<td>访客发表于:<%=rs("time")%></td>
<td>ip:<%=rs("userip")%></td>
</tr>
<TR>
<TD colspan="2"><%=rs("content")%></TD>
</TR>
<TR>
<TD><%=rs("gname")%></TD>
<%  rs.movenext
       loop
%>
发表于 2005-1-20 01:40:00 | 显示全部楼层
记录集用Recordset的方式打开时我经常用下面这种方法

i=0
rs.pagesize=10
page=request("page")
if page="" then page=1
rs.absolutepage=page
do while not rs.eof

................

i=i+1
if i=rs.pagesize then exit do
rs.movenext
loop
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|小黑屋|Archiver|手机版|blueidea.com ( 湘ICP备12001430号 )  

GMT+8, 2020-12-2 17:37 , Processed in 0.093513 second(s), 9 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表