For k=1 To rs.PageCount
Response.Write(" <a href=bb.asp?page="&k&">"&k&"</a> ")
Next
就会1 2 3 4显示了

第一页 上一页 下一页 最后一页 这种分页技术书上有写，我会了。
但像我们论坛下方的数字分页我不会，比如选择了当前页就会特别显示并且不能再超连接了。赐教！

dim pageno
pageno=request.querystring("page")
For k=1 To rs.PageCount
if k=pageno then
Response.Write(" <b>"&k&"</b> ")
else
Response.Write(" <a href=bb.asp?page="&k&">"&k&"</a> ")
end if
Next

盖茨先生不行哦
http://www.dengyun.cn/test/cc.asp?page=3 你看我选择了3，但3还是有超连接的

代码如下：
<%
'连接数据库
dim conn，dbpath,pageno
Set conn=Server.CreateObject("ADODB.CONNECTION")
dbpath=Server.MapPath("database200512.mdb")
conn.ConnectionString="driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
conn.Open
Set rs=Server.CreateObject("ADODB.Recordset")
Set rs.ActiveConnection=conn
rs.CursorType=3
rs.Open "Select * From CustomerInfo"
rs.PageSize=5
pageno=request.querystring("page")

'下面是你给的程序
For k=1 To rs.PageCount
if k=pageno then
Response.Write(" <b>"&k&"</b> ")
else
Response.Write(" <a href=cc.asp?page="&k&">"&k&"</a> ")
end if
Next
%>

http://bbs.bc-cn.net/bbs/dispbbs.asp?BoardID=10&ID=37557&replyID=&skin=1
我以前做过一个分页类，页码循环跟这个论坛差不多。只不过代码复杂了一些。

能分页操作简单合理 别太难看就行了。。

好的，我慢慢看。有问题再来找你们

偶也有一个跟论坛的分页脚一样的,看看吧
http://www.bc-cn.net/bbs/dispbbs.asp?BoardID=10&ID=31320&replyID=&skin=1