当前记录集不支持书签。这可能是提供程序或选定的游标类型的限制。

[TJBKOY]

当前记录集不支持书签。这可能是提供程序或选定的游标类型的限制。

在论坛里面搜索了 相关帖子 但是我的修改了 还是错误
不知道为什么 哎做这个益阳人才网 真废了我脑细胞啊
谢谢大伙啊


源码

dim rs,sql,Pagesize,Allrecord,Allpage,Page,id,rs1,sql1,zt,degree,dysp,thepage
  	dim cmdTemp
  	Set cmdTemp = Server.CreateObject("ADODB.Command")
  	set rs = server.CreateObject ("adodb.recordset")
	condition = get_search_data()
	'response.Write condition
	'response.End()
	sql = "select jobs.id as id,jobs.comid as comid,jobs.jobs as jobs,jobs.dysp as dysp,jobs.s_WorkLocation as s_WorkLocation,jobs.c_worklocation as c_worklocation,jobs.endValidDate as endValidDate,jobs.tjsj as tjsj,jobs.zt as zt,jobs.topall as topall,jobs.topdate as topdate,jobs.topday as topday,jobs.ispub as ispub,jobs.ischeck as ischeck,company.vip as vip,company.companyname as companyname from [jobs] left join [company] on jobs.comid=company.comid where 1=1 "&condition&" order by jobs.id desc"
  	cmdTemp.CommandText = sql
  	cmdTemp.CommandType = 1
  	Set cmdTemp.ActiveConnection = conn   
  	rs.Open sql,conn,1,3
  	set cmdTemp=nothing
  rs.Pagesize=15
  Pagesize=rs.Pagesize
  Allrecord=rs.Recordcount
  Allpage=rs.Pagecount
  
page = getpage(request("page"))
  thepage=(page-1)*pagesize
  if not rs.eof then rs.absolutepage=page

[TJBKOY]

出错是 出在
ADODB.Recordset (0x800A0CB3)
当前记录集不支持书签。这可能是提供程序或选定的游标类型的限制。

提示在这一行 if not rs.eof then rs.absolutepage=page

[「已注销」]

dim rs as ADODB.RECORDSET

[王向飞]

发错版了吧？去VB版

[「已注销」]

这vb.net啊？

[TJBKOY]

已经解决了 就是在
set rs = server.CreateObject ("adodb.recordset")
下面加一条这个语句：
rs.CursorLocation = 3
我不明白原理 哎。。。

[「已注销」]

[Quote=引用 5 楼 tjbkoy 的回复:]

已经解决了 就是在
set rs = server.CreateObject ("adodb.recordset")
下面加一条这个语句：
rs.CursorLocation = 3
我不明白原理 哎。。。
[/Quote]
谢谢分享~