| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 358 人关注过本帖
标题:为什么不翻页呢?
取消只看楼主 加入收藏
l373889105
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2007-5-16
收藏
 问题点数:0 回复次数:1 
为什么不翻页呢?
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={sql server};server=127.0.0.1;uid=sa;pwd=;database=aichi"
sql="select * from jdxx order by id desc"
set rs=Server.CreateObject("ADODB.recordset")
rs.open sql,conn,3
%>
<% sub showonepage(rs,page) %>
<table width="480" border="1">
<% rs.absolutepage=page %>

<% for page=1 to rs.pagesize %>

<tr> <td><span>姓名:<%=rs(1)%>&nbsp;&nbsp;电话:<% =rs(2) %>&nbsp;&nbsp;时间:<%= rs(3) %>&nbsp;&nbsp;人数:<%=rs(4)%>&nbsp;&nbsp;店名:<% =rs(5) %>&nbsp;&nbsp;提交时间:<%=rs(7)%></span></td></tr>
<tr > <td >
<% =left(rs(6),70)%><br><% =mid(rs(6),71,70) %><br><% =mid(rs(6),141,70) %><br><% =mid(rs(6),211,70) %>
</td></tr>
<% rs.movenext %>
<% next %>
</table>
<% end sub %>

<% rs.pagesize=10
page=clng(request("page"))
if page<1 then page=1
if page>rs.pagecount then page=pagecount
showonepage rs,page
%>
<% if page<>1 then%>
<a href="点菜一览.asp?page=1">第一页</a><a href="点菜一览.asp?page="&(page-1)&"">上一页</a>
<% end if%>
<% if page<>rs.pagecount then%>
<a href="点菜一览.asp?page="&(page+1)&"">下一页</a><a href="点菜一览.asp?page="&rs.pagecount&"">最后一页</a>
<% end if%>

请教大家为什么说 clng 有错呢?

搜索更多相关主题的帖子: database server border 电话 姓名 
2007-05-19 14:30
l373889105
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2007-5-16
收藏
得分:0 

解决了,谢谢yms123

2007-05-19 20:44
快速回复:为什么不翻页呢?
数据加载中...
 
   



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

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