rs.absolutepage报错

[py_mfkmfk]

   rs.open sql,comm,1,1
   rs.pagesize=15
    
    if request("page")<>"" then page=clng(request("page"))
    if page<1  then page=1
    if page>rs.pagecount then page=rs.pagecount
    href="gr_zltj.asp"
    rs.absolutepage=page
    for i=1 to rs.pagesize

这个是一个查询页面分页，不知道是不是这里出了问题，我点查询后总是提示错误
错误如下：
ADODB.Recordset 错误 '800a0bb9'
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。

/office/quality/gr_zltj.asp，行 126
行 126就是 rs.absolutepage=page
请大家指教！

[hookee]

试试看
rs.cursorLocation = 3
rs.open sql,comm,3,1

[py_mfkmfk]

if request("find")<>"" then
		

    people_name=request("people_name")
    dept_name=request("dept_name")
    
    if request("dept_name")<>"" then
       sql="select * from mgr.people_master where  dept_no='"&dept_name&"'"
    if request("people_name")<>"" then
       sql="select * from mgr.people_master where people_name='"&people_name&"' and dept_no in('0909','0910','0911','0912','0913')"
    if request("monthx")<>"" then
       sql="select a.people_no,a.gangwei,a.people_name,a.dept_no from mgr.people_master a,kqy.gangwei b where  a.dept_no in ('0909','0910','0911','0912','0913') and a.gangwei=b.gangwei_no(+)"
    else 
    sql="select a.people_no,a.gangwei,a.people_name,a.dept_no from mgr.people_master a,kqy.gangwei b where  a.dept_no in ('0909','0910','0911','0912','0913') and a.gangwei=b.gangwei_no(+)"
    end if
    end if
    end if

rs.cursorLocation = 3 
rs.open sql,comm,3,1
   'rs.open sql,comm,1,1
   rs.pagesize=15
    
    if request("page")<>"" then page=clng(request("page"))
    if page<1  then page=1
    if page>rs.pagecount then page=rs.pagecount
    href="gr_zltj.asp"
    rs.absolutepage=page
    for i=1 to rs.pagesize

还是报错：
ADODB.Recordset 错误 '800a0bb9'
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。

/tlyyoa/code/office/quality/gr_zltj.asp，行 122
行123就是：rs.open sql,comm,3,1

[hijack_hijack]

rs.open sql,comm,1,1
   rs.pagesize=15
    
    if request("page")<>"" then page=clng(request("page"))
    if page<1  then page=1
    if page>rs.pagecount then page=rs.pagecount
    href="gr_zltj.asp"
    response.write page
    response.end
    rs.absolutepage=page
    for i=1 to rs.pagesize

兄弟 你能选vbs么？
输出一下 page

[toury]

if request("page")<>"" then page=clng(request("page"))
----------->

if request("page")="" then page=1
if not isnumeric(request("page")) then page=1
page=clng(request("page"))

[py_mfkmfk]

这个分页怎么弄的啊，报错的问题解决了，但比如我要查询5月的数据，输入5点查询，第一页显示的是查询出来的5月份数据，但点下一页就又是当前月的数据了，
这个分页应该怎么写？

year1=year(date())

month1 = Trim(Request("monthx"))
If month1 = "" Then
   month1 = Month(Date())
End If

day1=day(date())
date1="1"&"-"&month1&"月"&year1
date2=day1&"-"&month1&"月"&year1
date3=year1&"-"&month1&"-1"
'以上是定义的时间
'下面是接收输入月份值后数据库查询语句
			set conn=opendb()
			set rs_sw1=server.createobject("adodb.recordset")
            sql_sw1="select (sum(buhege_shiwu)+sum(buhege_qita)) as sw1 from buhege_pingshen where zerenren='"&rs("people_name")&"' and (date_jianyan between '"&date3&"' and '"&date()&"')"

			rs_sw1.open sql_sw1,conn,1
			   if not isnull(rs_sw1("sw1")) then 		   
               sum_sw1=rs_sw1("sw1")
               else sun_sw1=0
               end if


            set rs3=server.createobject("adodb.recordset")
            sql3="select round(sum(nvl(processn,0)),0) as sum1 from mgr.xorder_ticket where worker='"&rs("people_no")&"' and (processd between '"&date1&"' and '"&date2&"')"
            
			rs3.open sql3,comm,1
                if not isnull(rs3("sum1")) then   %>     
			<td height="27" align=center>
			<%sum_hege1=round(rs3("sum1"))-sum_sw1
			hegelv1=round(sum_hege1/round(rs3("sum1")),3)*100%>
			<%=hegelv1%>%

[shenzhenNBA]

rs.open sql,comm,1,1
rs.pagesize=15

if request("page")<>"" then page=cInt(request("page"))
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
href="gr_zltj.asp"
rs.absolutepage=page
for i=1 to rs.pagesize

页码为整数... :)

[hijack_hijack]

回楼主,将5月的信息传到下一页
地址栏 隐藏域 都可以选择

[py_mfkmfk]

[Quote=引用 7 楼 hijack_hijack 的回复:]
回楼主,将5月的信息传到下一页
地址栏 隐藏域 都可以选择
[/Quote]
请问怎么将输入的月份信息传到下一页呢？

<tr>
 <form action=<%=href%> method=post>

<td align="center" width="82"><a href="gr_zltj.asp?page=<%=(page-1)%>&find=yes&dept_name=<%=dept_name%>&people_name=<%=people_name%>"><img border="0" src="../images/1-prev.gif" width="36" height="11"></a></td>
<td><a href="gr_zltj.asp?page=<%=(page+1)%>&find=yes&dept_name=<%=dept_name%>&people_name=<%=people_name%>"><img border="0" src="../images/1-next.gif" width="36" height="11"></td>
<td width="106">
<input type="hidden" name="people_name" value="<%=people_name%>">
<input type="hidden" name="dept_name" value="<%=dept_name%>">
<input type="hidden" name="find" value="yes">

<p align="center"><input type="submit" value="go"><input type=text name=page size=3><font size="2">页</font></font></td>
<td width="123"><font size="2" color="#000000"><span style="text-decoration: none">    第<%=page%>/<%=rs.pagecount%>页</span></font></a></td>
</form>
</tr>

这个是分页的代码，请指教怎么将输入的月份信息传到下一页？
这个是查询语句

			<%
			set conn=opendb()
			set rs_shiwu=server.createobject("adodb.recordset")

            sql_shiwu = "SELECT (SUM(buhege_shiwu)) AS sum3 FROM buhege_pingshen WHERE zerenren='"&rs("people_name")&"' and  (date_jianyan between '"&date3&"' and '"&date()&"')" 
			rs_shiwu.open sql_shiwu,conn,1
			'response.write rs_shiwu.fields(0)
			shiwu=rs_shiwu("sum3")%>
            <%=shiwu%>

获取月份输入值：

year1=year(date())

monthx = Trim(Request("monthx"))
If monthx = "" Then
   monthx = Month(Date())
End If

day1=day(date())
date1="1"&"-"&monthx&"月"&year1
date2=day1&"-"&monthx&"月"&year1
date3=year1&"-"&monthx&"-1"