'******************************************
'取文章总数及每页重复显示条数,准备分页
'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天了!请帮帮我谢谢!
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