ASP高手,,帮个忙,,分页程序

来源：百度知道编辑：UC知道时间：2024/05/17 07:28:16

下面是我一个分页程序,但只有上一页,下一页等..我现在想要有 1 2 3 4...页等,,,应该怎样写呢??谢谢!!
---------------------------------------------------
<%if no1<>"" then
If Npage = 1 Then
Response.Write "首页上一页 "
Else
Response.Write "<a href='pro.asp?no1="+no1+"&page=1'>首页</a> <a href='pro.asp?no1="+no1+"&page=" + cstr(Npage-1) + "'>上一页</a> "
End If
If Npage = rs.PageCount then
Response.Write "下一页尾页"
Else
Response.Write "<a href='pro.asp?no1="+no1+"&page=" + cstr(Npage+1) + "'>下一页</a> <a href='pro.asp?no1="+no1+"&page=" + cstr(rs.pagecount) + "'>尾页</a>"
End If
rs.close
else
If Npage = 1 Then
Response.Write "首页上一页 "
Else

<% rs.pagesize=20’每页多少条记录
currentpage=Clng(page)
if currentpage<1 then currentpage=1
if currentpage>rs.pagecount then currentpage=rs.pagecount
rs.absolutepage=currentpage
Do While Not rs.Eof %>

最后提交表单：
转到
<input name='page' type='text' id='page' value='<%=currentpage%>' size='4'>页

+++分哦

我给你说个思路吧
for i=1;i<rs.pagecount;i++
Response.Write "<a href='pro.asp?page=1'>&i</a>

ASP高手,,帮个忙,,分页程序高手!!asp怎么分页??? ASP分页问题,求高手 asp分页问题？高手请进？ ASP 分页问题，高手请进请教ASP高手,关于ASP分页技术 asp分页问题~~~~请高手帮忙高手帮忙,asp分页显示有错误 ASP内容分页问题请教高手 ASP分页问题，高手进·！