这个是改的才子分页！我改成SQL SERVER数据库了！
'******************************************
'取文章总数及每页重复显示条数，准备分页
'wzcount 文章总数
'wzrep 重复显示条数
'wzpage 分页参数id
'wzpagecount 总页数
'******************************************
dim wzcount,wzrep,wzpage,wzpagecount,wzpagerep,boardstr
wzrep = 3
wzcount = conn.execute ("select count(id) from table1 ",1,1)(0)
wzpagecount = abs(int(-abs(wzcount/wzrep)))
wzpage = clng(request.querystring("page"))
if len(wzpage) = 0 or wzpage = 0 then wzpage = 1
rssql = "select id,aaaa,bbbb,cccc from table1 order by id desc"
rs.open rssql,conn,1,1,&h0001
'根据分页参数获取当前页面纪录
rs.absoluteposition=rs.absoluteposition+((abs(wzpage)-1)*wzrep)
'显示文章标题列表
这个代码中rs.absoluteposition=rs.absoluteposition+((abs(wzpage)-1)*wzrep)老是这里提示
ADODB.Recordset 错误 '800a0bb9'
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
我试着改成rs.absoluteposition=rs.absoluteposition+(abs(wzpage)*wzrep)
去掉中的-1就可以成功执行！
请问是为什么呢！
这个问题已经困扰我3天了！请帮帮我谢谢！
'******************************************
'取文章总数及每页重复显示条数，准备分页
'wzcount 文章总数
'wzrep 重复显示条数
'wzpage 分页参数id
'wzpagecount 总页数
'******************************************
dim wzcount,wzrep,wzpage,wzpagecount,wzpagerep,boardstr
wzrep = 3
wzcount = conn.execute ("select count(id) from table1 ",1,1)(0)
wzpagecount = abs(int(-abs(wzcount/wzrep)))
wzpage = clng(request.querystring("page"))
if len(wzpage) = 0 or wzpage = 0 then wzpage = 1
rssql = "select id,aaaa,bbbb,cccc from table1 order by id desc"
rs.open rssql,conn,1,1,&h0001
'根据分页参数获取当前页面纪录
rs.absoluteposition=rs.absoluteposition+((abs(wzpage)-1)*wzrep)
'显示文章标题列表
这个代码中rs.absoluteposition=rs.absoluteposition+((abs(wzpage)-1)*wzrep)老是这里提示
ADODB.Recordset 错误 '800a0bb9'
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
我试着改成rs.absoluteposition=rs.absoluteposition+(abs(wzpage)*wzrep)
去掉中的-1就可以成功执行！
请问是为什么呢！
这个问题已经困扰我3天了！请帮帮我谢谢！
可以连接上数据库！也绝对有数据！50条数据！有个有趣的地方是！可以执行后几页！但是一执行第一页就出错！用on error resume next忽略这个错误！也可以正常执行！
数据库连接语句是
connstr="driver={SQL Server};server=(local);database=JJ;uid=sa;pwd=;"
set conn=server.CreateObject("adodb.connection")
set rs = server.createobject("adodb.recordset")
conn.open connstr
connstr="driver={SQL Server};server=(local);database=JJ;uid=sa;pwd=;"
set conn=server.CreateObject("adodb.connection")
set rs = server.createobject("adodb.recordset")
conn.open connstr
改成这个(clng(abs(wzpage))-1)*wzrep 试一下
谢谢楼上的！但是还是不行啊！
