asp分页显示

来源：百度知道 编辑：UC知道 时间：2024/05/06 11:22:07
怎样做这种分页效果:

我做了一个,但是全部页都显示出来了,好在只有18页,不会很难看.
如果分页有上百页,在一个asp中显示那么多页的连接是很难看的.
怎么可以做出只显示10页,但是当我按第10页时候,就切换到10页到19页的选项页.

我从阿里巴巴等很多网站都看到有这样的效果,怎么做出来的.

比如看这里的阿里巴巴:http://list.china.alibaba.com/buyer/offerlist/1613-p10.html
?tracelog=PD_search_headex

最好给个完整代码,谢谢.

ASP简单分页调用实例，请先保存fy_set.asp和fy_get.asp两个文件，然后调用示例

示例：
将以下代码保存为test.asp
<%
set Conn = server.CreateObject("ADODB.Connection")
Path = Server.MapPath("/")&"/data/xx.mdb"
Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Path+";Persist Security Info=False")
set rs=server.CreateObject("ADODB.recordset")
sql="select * from table1"
%>
<!--#include virtual="fy_set.asp"-->
<%
while not rs.eof and n>0
response.write rs(0)
response.write rs(1)
response.write "<br>"
n = n - 1
rs.movenext
wend
%>
<!--#include virtual="fy_get.asp"-->

将以下代码保存为fy_set.asp
<%
' ========在包含此段代码前您必须准备好以下变量========
' conn -> 数据库连接对象,已经打开
' rs -> 记录集,处于关闭状态
' sql -> SQL语句
' page