ASP 如何控制页面的页码的数量 (页码很多)

<%
dim rsd,sql
sql="select * from product "
set rsd=server.CreateObject("adodb.recordset")
rsd.open sql,conn,1,1
if rsd.eof and rsd.bof then
response.write "


-------等待中...。"
set rsd=nothing
Response.End
end if
%>
<%
dim currentpage,page_count,Pcount
dim totalrec,endpage
if request("page")="" then
currentPage=1
else
currentPage=cint(request("page"))
end if
perpage=10
rsd.PageSize = perpage
rsd.AbsolutePage=currentpage
page_count=0
totalrec=rsd.recordcount
while (not rsd.eof) and (not page_count = rsd.PageSize)
%>

')"><%=rsd("name")%>	<%=rsd("price1")%> / 浏览<%=rsd("price2")%>次

<%
page_count = page_count + 1
rsd.movenext
wend
call pages()
rsd.close
set rsd=nothing
sub pages()
dim ii,p,n
if totalrec mod perpage=0 then
n= totalrec \ perpage
else
n= totalrec \ perpage+1
end if
if currentpage-1 mod 10=0 then
p=(currentpage-1) \ 10
else
p=(currentpage-1) \ 10
end if
response.write ""&_
""&_
"

第"& currentPage &"页/共"& n &"页, 每页"& rsd.PageSize &"条, 共"& totalrec &"条 " if currentPage=1 then response.write "<< " else response.write "<< " end if if p*10>0 then response.write "< " response.write "" for ii=p*10+1 to P*10+10 if ii=currentPage then response.write ""+Cstr(ii)+" " else response.write ""+Cstr(ii)+" " end if if ii=n then exit for 'p=p+1 next response.write "" if ii> " if currentPage=n then response.write "> " else response.write ">> " end if response.write "

"
end sub
%>