为什么不翻页呢?
<% 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)%> 电话:<% =rs(2) %> 时间:<%= rs(3) %> 人数:<%=rs(4)%> 店名:<% =rs(5) %> 提交时间:<%=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 有错呢?
