怎样实现如下的分页?
[首页] [上一页] 1 2 3 4 5 6 7 8 9 10 11 [下一页] [末页]
也就是怎样循环把页号调出来?

晕，用循环就是了啊

我也知道用循环,但是怎么用呢?

1.得到总记录数
2.取得当前为第几记录
3.根据上两条进行判断循环输出

你们都说得很玄乎,能不能把代码贴上来,让小弟开开眼.

for i=1 to rs.pagecount
response.write(i)
next

产生1\2\3\4\5\6\7\8\9\10这个样子的分页代码(你把这个稍微改一下就可以了)
<%
strsql="*****************************************" '这里根据条件自己写
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn, 1, 1
if not rs.eof then
page=12
rs.pagesize=page
maxpage=rs.pagecount
if pageno < 1 then
pageno =1
end if
if pageno+1 >maxpage+1 then
pageno=maxpage
end if
rs.absolutePage=pageno
else
maxpage=1
end if
total = rs.RecordCount
%>
'这里执行for 或do while 或while循环都可以,略了.
<%
'===========================
'产生1\2\3\4\5\6\7\8\9\10 等等
sub pages()
pagelast=pageno+9
if pagelast>=maxpage then
pagelast=maxpage
end if

for i=pageno to pagelast
dim str,link0,link1
link0="<a href="&"product.asp?pageno="&i&">"
link1="</a>"
str="&nbsp;"&link0&i&link1
response.Write str
next
end sub
'通过下拉列表直接跳转
sub selectp()
response.Write "跳转到"&" <form action='product.asp' method='post' ><select name='pageno' onChange='javascript:submit()'>"
for i=1 to maxpage
response.Write "<option value="&i&">"&"第"&i&"页"&"</option>"
next
response.write "</form>"
end sub
%>

谢谢!!
非常感谢!
获益非浅啊~