Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "Select * from vpnuser",conn,1,3
if rs.eof and rs.bof then '不存在记录
response.Write "目前没有用户记录"
else '存在记录
counts=10 '每页显示记录条数
rs.pageSize = counts '每页记录数
allpages = rs.pageCount '总页数
page = Request("page") '从浏览器取得当前页
If not isNumeric(page) then cint(page)=1 'page不是数字
if isEmpty(page) or cint(page) < 1 then 'page 为空或小于1
page = 1
elseif page >= allPages then 'page 值大于总页数
page = allPages
end if
rs.AbsolutePage = Cint(page) '转到某页头部
Do While (Not rs.eof) and counts>0 '循环显示指定条数的记录

%>

'rs.AbsolutePage = Cint(page) ->提示的是这句,不支持记录书签，该怎么改???
我改游标,不行!改page类型,不行! include进去adovbs.inc文件， 也不行 这问题费了我一个星期时间,郁闷.在线等待!!

你前面获取page的时候，用没有用这个方法，获取值，转换！
page=CLng(request("page"))
你在那里改成
'rs.AbsolutePage = Cint（request(＂page＂)）
好象我以前也遇到过这种问题，好象是这样改的！
你改改看｀｀｀｀｀｀｀