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

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

盖茨先生不行哦
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
%>