asp高手请来看这段程序

[guolianghu]

<%
'接收参数
tj_title=Request("title")
tj_publisher=Request("publisher")
tj_year1=Request("year1")
tj_month1=Request("month1")
tj_day1=Request("day1")
tj_year2=Request("year2")
tj_month2=Request("month2")
tj_day2=Request("day2")
'建立recordset对象
set rs=server.CreateObject("adodb.recordset")
set rs.ActiveConnection=conn
rs.CursorType=3
'ggb_adm是sql server的存储过程
sql_str="ggb_adm '"&tj_title&"','"&tj_publisher&"','"&tj_year1&"','"&tj_month1&"','"&tj_day1&"','"&tj_year2&"','"&tj_month2&"','"&tj_day2&"'"

rs.Open sql_str,conn,,,adCmdtext

if not (rs.BOF and rs.EOF) then
rs.PageSize=20
if page="" or int(page)>int(rs.PageCount) then
rs.AbsolutePage=1
page=1
else
rs.AbsolutePage=int(page)
page=int(page)
end if
end if
%>
执行该asp程序后提示不支持AbsolutePage属性，但如果sql_str改为"select * from ggb"则支持absolutepage属性，为什么？请赐教！

ggb_adm存储过程：
CREATE PROCEDURE ggb_adm
@title char(30),@publisher char(20),@year1 char(2),@month1 char(2),@day1 char(2),@year2 char(2),@month2 char(2),@day2 char(2)
AS
if len(@title)=0 and len(@publisher)=0 and len(@year1)=0 and len(@month1)=0 and len(@day1)=0 and len(@year2)=0 and len(@month2)=0 and len(@day2)=0
select gg.gg_title,gg.gg_date,gg.gg_id,memb.member_name,dept.department_name from ggb gg,member_register memb,department_archires dept
where ltrim(rtrim(gg.member_bh))=ltrim(rtrim(memb.member_bh)) and ltrim(rtrim(gg.gg_department_bh))=ltrim(rtrim(dept.department_bh))
order by gg.gg_date desc
else if len(@title)!=0
select gg.gg_title,gg.gg_date,gg.gg_id,memb.member_name,dept.department_name from ggb gg,member_register memb,department_archires dept
where ltrim(rtrim(gg.member_bh))=ltrim(rtrim(memb.member_bh)) and ltrim(rtrim(gg.gg_department_bh))=ltrim(rtrim(dept.department_bh)) and ltrim(rtrim(gg.gg_title)) like '%'+ltrim(rtrim(@title))+'%'
order by gg.gg_date desc
else if len(@publisher)!=0
select gg.gg_title,gg.gg_date,gg.gg_id,memb.member_name,dept.department_name from ggb gg,member_register memb,department_archires dept
where ltrim(rtrim(gg.member_bh))=ltrim(rtrim(memb.member_bh)) and ltrim(rtrim(gg.gg_department_bh))=ltrim(rtrim(dept.department_bh)) and ltrim(rtrim(memb.member_name)) like '%'+ltrim(rtrim(@publisher))+'%'
order by gg.gg_date desc
else if len(@year1)=0 and len(@year2)!=0
select gg.gg_title,gg.gg_date,gg.gg_id,memb.member_name,dept.department_name from ggb gg,member_register memb,department_archires dept
where ltrim(rtrim(gg.member_bh))=ltrim(rtrim(memb.member_bh)) and ltrim(rtrim(gg.gg_department_bh))=ltrim(rtrim(dept.department_bh))
and (gg.gg_date between convert(datetime,ltrim(rtrim(@year1))+'-'+ltrim(rtrim(@month1))+'-'+ltrim(rtrim(@day1))) and convert(datetime,ltrim(rtrim(@year2))+'-'+ltrim(rtrim(@month2))+'-'+ltrim(rtrim(@day2))))
order by gg.gg_date desc

[online]

若有问题，请联系，[e-mail]
老兄，加分吧,期盼!!!
set rsresult=server.createobject("adodb.recordset")
rsresult.cursorlocation=aduseclient '游标的位置
rsresult.cursortype=adopenstatic '游标的类型
rsresult.CacheSize =20
set rsresult.activeconnection=oconn

strsql = " jbyl_shhff '"& strparameter1 & "','" & strparameter2 & "','" & mode & "','" & bldddm & "'"
rsresult.open strsql,oconn,3,adcmdtext
包含adovbs.inc文件，jbyl_shhff,是sp名
这样肯定没问题，我就是这样做的。
呜呜，sp的分页就是难

[ixiaoxiaozhu]

使用absolutepage属性一定要注意游标类型。具体的在网巴里我既不清了，依稀记得四类游标中有些游标类型不支持非分页。我没有仔细看online(挽剑狂客)的帖子。也没有仔细看你的帖子。只是提醒一下而已。希望对你有帮助。加分给别人吧。我不配。谢谢！