菜鸟求救 有关ASP模糊查询的分页问题 那个大侠能教教我 怎么把以下程序调通 小弟谢了

[cpitandy]

<html>
<head>
<title>tre</title>
</head>
<body>
<%
set conn=Server.CreateObject("ADODB.CONNECTION")
conn.Open"Provider=MICROSOFT.JET.OLEDB.4.0;Data Source=F:\AA.mdb;"
set rs = server.CreateObject("ADODB.recordset")
rs.CursorType=adOpenStatic
rs.open "select * from B where id like '%1%' or 2 like '%1%' or 3 like '%1%' or 4 like '%1%' or 5 like '%1%'",conn
'对站内以ID的模糊搜索
rs.PageSize=10
'返回当前页
page=CLng(request("page"))
if page < 1 then page=1
if page > rs.pagecount then page=rs.pagecount
%>
<table border="0">

<tr><td>xh</td>
<%for i=0 to rs.fields.count-1
response.write"<td>"&rs.fields(i).name&"</td>"
next
%>
</tr>
<%
'设置当前页
rs.absolutepage=page
'显示当前页
for ipage = 1 to rs.pagesize
recno = (page - 1) * rs.pagesize + ipage
%>
<tr><td><%=recno%></td><%for i=0 to rs.fields.count-1%>
<td><%=rs.fields(i).value%></td><%Next%>
</tr><%rs.movenext'如果已经到达末尾,则提前跳出循环
if rs.eof then exit for
next
%>
</table>
<p align="center">
<%
'显示第一页,上一页,下一页,最后一页信息几创建有效连接
if page<>1 then
response.write"<a href=Untitled-1.asp?page=1>第一页</a>  "
response.write"<a href=Untitled-1.asp?page="&(page-1)&">上一页</a>  "
end if
if page<>rs.pagecount then
response.write"<a href=Untitled-1.asp?page="&(page+1)&">下一页</a>  "
response.write"<a href=Untitled-1.asp?page="&rs.pagecount&">最后一页</a>"
end if
%>
</p><p align="center">页数:<%=page%>/<%=rs.pagecount%></p>
<%
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
</body>
</html>


库名:AA
表名:B
字段:ID,2,3,4,5
挂ACCESS库
ASP页面名Untitled-1.asp

[笨笨兔兔兔兔兔]

出啥错了??

还有你至少要有个order by吧?

[cpitandy]

错误类型：
ADODB.Recordset (0x800A0BB9)
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
/aa/Untitled-1.asp, 第 29 行

[笨笨兔兔兔兔兔]

第 29 行

是什么??

[cpitandy]

<%
'设置当前页
rs.absolutePage=Page--------------29行
'显示当前页
for iPage = 1 to rs.PageSize
recno = (Page - 1) * rs.PageSize + iPage
%>

[cpitandy]

大侠们 帮帮我把 我都整了一天了 还没出来结果

[cpitandy]

大侠们 帮我解决一下 谢谢了 我可以继续加分 速度啊 555~~~

[woailaop]

你先不忙分页哈，先看看上面的代码对不哈，一步一步来撒，你说是不
那样检查起来都快点

[zhenmeiyisi]

if not isempty(request("page")) and request("page")<>"0" then
page=request("page")
else
page =1
end if

[www_7di_net]

加我QQ9256114给你调通

[yangnan1016]

还没能解决

[cpitandy]

if not isempty(request("page")) and request("page")<>"0" then
page=request("page")
else
page =1
end if

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

如果屏蔽了
rs.absolutePage=Page
可以做模糊查询
但出现的现象是:页数:5/-1

[yangnan1016]

解决的?

[zhenmeiyisi]

rs.open sql,conn,1,1

[cpitandy]

....能显示了 可是到了最后一页他仍出现了 下一页 的提示 点击后出现错误 并没有跳出循环
错误类型：
ADODB.Field (0x800A0BCD)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

[zwrtv]

学习下

[如沐]

先定义一个总页数
再给一个判断给下一页，如果当前页数>=总页数，下一页点击无效，试试看吧

[cpitandy]

做模糊查询的话 我定义了总页 要是库里文件过多 我的网页 上就无法显示出来了