分页显示时象这个论坛这样把页分成1 2 3 4页是怎么做的？

[ready]

[flyinto]

for i=1 to maxpage
i
next

[lazywolf]

<% //该文件名为page.asp
set conn=server.createobject("adodb.connection")
conn.open connstr //与数据库建立链接
set rs=server.createobject("adodb.recordset")
rs.CursorLocation=3
rs.open sql,conn,1,1 //sql为查询语句
rs.pagesize=7 //设置页面显示数目
CountPage=rs.PageCount
if Request("pageno")="" or request("pageno")<1 then
pagenos=1
else
pagenos=Request("pageno")
end if
if cint(pagenos)>=CountPage then
pagenos=CountPage
end if
rs.absolutepage=pagenos
for i=1 to rs.pagecount
%>
<a href="page.asp?pagenos="&<%=i%>><%=i%></a>
<%
next
%>

[tonnycncn]

给你一个例子，你照着改吧！
<%
If Request("Page")=Empty Then
Page=1
Else
Page=cint(Request("Page"))
End If
%>
<%
Set conn=Server.CreateObject("ADODB.Connection")
param = "driver={Microsoft Access Driver (*.mdb)}"
conn.Open param & ";dbq=" & Server.MapPath("cd.mdb")
Set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select * from data where ( update > Date() - 30) Order By datano"
rs.open sqlstr,conn,3,2
If rs.Recordcount=0 then
rs.close
conn.close
response.write "目前没有新发行CD……"
response.end
End If
RS.PageSize = 20
If Not rs.eof Then
RS.AbsolutePage = PAGE
End If
pagecount=rs.pagecount
I=1
do until rs.EOF or I > RS.PageSize
datano=rs("datano")
datana=rs("datana")
ordprice=rs("ordprice")
hits=rs("hits")
Response.write "<tr><td bgcolor=ff8040><a href=editcd.asp?datano="&datano&">"&datano&"</a></td>"
Response.write "<td><a href=show.asp?datano="&datano&">"&datana&"</a></td>"
Response.write "<td align=right><font color=red>"&ordprice&"</font></td>"
Response.write "<td align=center><FORM METHOD=POST ACTION=order.asp>"
Response.write "<input TYPE=HIDDEN NAME=mytype VALUE=insert>"
Response.write "<input TYPE=HIDDEN NAME=areana VALUE="&areana&">"
Response.write "<input TYPE=HIDDEN NAME=datano VALUE="&datano&">"
Response.write "<input TYPE=HIDDEN NAME=datana VALUE='"&datana&"'>"
Response.write "<input TYPE=HIDDEN NAME=ordprice VALUE="&ordprice&">"
Response.write "<input TYPE=SUBMIT VALUE=放入></td></form>"
Response.write "<td align=right>"&hits&"</td></tr>"
rs.movenext
I=I+1
loop
rs.close
conn.close
%>
</form>
</table><br>
<%
If page>1 Then
Response.write "<a href=new.asp?page="&page-1&">上一页</a>　"
End If
Response.write "页 <font face=Arial><b>"&pagecount&" / "
Response.write page &"</b></font>　"
For j=1 to pagecount
IF J <> page THEN
response.write "<a href=new.asp?page="&j&">"&j&"</a>　"
End If
Next
If page<pagecount Then
Response.write "<a href=new.asp?page="&page+1&">下一页</a>　"
End If
%>

[ljmok202]

有问题阿RS.AbsolutePage = PAGE老是报错ADODB.Recordset (0x800A0CB3)