[Oracle][ODBC]Invalid bookmark value.

[Germain]

做分页时，总是报这个错误。请大家帮帮忙

[jspadmin]

Invalid bookmark value
说明参数不在范围内，或者不是数字型的。用cint转换下

[Germain]

关键是我没有设置bookmark 的值，他因该是自动产生的

[Germain]

顶

[underone]

上代码

[Germain]

curpage这是参数，指当前第几页

[明珠佩佩]

curpage有这样用的吗？？？？

[slawdan]

对curpage做下判断吧

必须>1 和 < rs.pagecount

[Germain]

dim str,rs,pagesize
set rs=Server.CreateObject("ADODB.Recordset")
pagesize = 1000
'打开数据库
call DBStoreReportOpen()
'获取数据集
rs.Open sql,dbSR,3,1

'Response.Write rs.RecordCount & "<br>" & chr(13)
'设置每页显示的纪录数目
rsCount = rs.RecordCount
rs.PageSize = pagesize
if rs.RecordCount > 0 then
rs.AbsolutePage = cint(curpage)
for i=1 to pagesize
if rs.EOF then exit for
dept_code = rs("dept_code")
item_code = rs("item_code")
local_name = rs("chinese_name")
promotion = rs("promotion")
sal_price = rs("sales_price")
sal_qty = rs("sales_qty")
sal_amt = rs("sales_amount")
pur_amt = rs("purchase_amount")
margin = rs("margin")
'Response.Write margin & "<br>" & chr(13)
margin_pct = rs("margin_pct")*100 'margin%
stop_yyyymm = rs("stop_yyyymm")
sen = rs("sensitiveness")

rcount = rcount +1

if not rs.EOF then rs.MoveNext
next
end if
if err.number <> 0 then
Response.Write err.number & err.Description & chr(13) & "<br>"
end if
iPageCount = rs.PageCount
'释放集合
rs.Close
set rs = nothing

[itzhiren]

curpage
这个从哪儿来的呀？