在网上找了半天都没有找到关于像google 下的分页固定长度分页文章,很是郁闷 ,也不知道是不是我的搜索关键词有问题,还是真的就没有,不过我相信晚上还是有这方面的文章,只是我自己没有找到吧了.......
没办法就只有自己好好想想它的实现模式,我们仔细点击之后你大概就能看出端倪,本来我想程序应该很复杂,结果思前想后,发现原来是如此的简单.呵呵,技术这玩意只要相通了就好了.
我们先建立一个数据库, 如: fenye.mdb 字段为 id (自动编号) ; content(文本) 并填充数据库
id content
1 数据一
2 数据二
3 数据三
... ...
50 数据五十
好了,数据库算是建好了...... 下面就要用到他了....
建立一个fenye.asp 文件 内容如下
注:fenye.asp 与fenye.mdb 放在同一目录下
没办法就只有自己好好想想它的实现模式,我们仔细点击之后你大概就能看出端倪,本来我想程序应该很复杂,结果思前想后,发现原来是如此的简单.呵呵,技术这玩意只要相通了就好了.
我们先建立一个数据库, 如: fenye.mdb 字段为 id (自动编号) ; content(文本) 并填充数据库
id content
1 数据一
2 数据二
3 数据三
... ...
50 数据五十
好了,数据库算是建好了...... 下面就要用到他了....
建立一个fenye.asp 文件 内容如下
注:fenye.asp 与fenye.mdb 放在同一目录下
<
%
on error resume next
dim strconn,conn,sql,rs
strconn = " driver={Microsoft Access Driver (*.mdb)};dbq= " & server.mappath( " fenye.mdb " )
set conn = server.createobject( " adodb.connection " )
conn.open strconn
if err then
err.clear
set err = nothing
response.write ( " 数据库链接出错 " )
response.end
end if
sql = " select * from content "
set rs = server.createobject( " adodb.recordset " )
rs.activeconnection = conn
rs.source = sql
rs.cursortype = 1
rs.locktype = 1
rs.open
rs.pagesize = 2 ' 每页显示的几条数据
if request( " Page " ) <> "" then
page = int (request( " page " ))
if page < 1 then page = 1
if page > rs.pagecount then page
on error resume next
dim strconn,conn,sql,rs
strconn = " driver={Microsoft Access Driver (*.mdb)};dbq= " & server.mappath( " fenye.mdb " )
set conn = server.createobject( " adodb.connection " )
conn.open strconn
if err then
err.clear
set err = nothing
response.write ( " 数据库链接出错 " )
response.end
end if
sql = " select * from content "
set rs = server.createobject( " adodb.recordset " )
rs.activeconnection = conn
rs.source = sql
rs.cursortype = 1
rs.locktype = 1
rs.open
rs.pagesize = 2 ' 每页显示的几条数据
if request( " Page " ) <> "" then
page = int (request( " page " ))
if page < 1 then page = 1
if page > rs.pagecount then page