<!--#include file="conn.asp"--> <% cateid=request("cateid") if cateid=empty or cateid<1 or cateid>13 then cateid=1 set rst=server.createobject("adodb.recordset") sql="select * from images where cateid="&cateid rst.open sql,conn,1,1 rst.pagesize=8 if not rst.eof then page=int(request("page")) if page=empty or page<1 then page=1 if page>rst.pagecount then page=rst.pagecount rst.absolutepage=page end if %> Microsoft JET Database Engine 错误 '80040e07' 标准表达式中数据类型不匹配。 /11/fbcp.asp, 行6 我实在找不到不匹配的数据

cateid在表中是什么类型的？

rst.open sql,conn,1,1 rst.pagesize=8 if not rst.eof then page=int(request("page")) 光标类型改一下吧，光标改成可以前后移动的就行了 rst.open sql,conn,2,3 rst.pagesize=8 if not rst.eof then page=clng(request("page"))

[此贴子已经被作者于2005-6-29 10:11:12编辑过]

cateid是文本类型的
光标类型改了也不可以啊
还是这个错误
怎么办？

这样试一试

上面的问题解决了，谢谢楼上的 还是这个程序 又出现新的错误 ADODB.Recordset 错误 '800a0bb9' 应用程序使用的参数或者类型不正确，或者不在可以接受的范围之内，要不就是与其他数据冲突。 /11/fbcp.asp, 行12

结合三楼的你再试试
我没有代码也不知道怎么回事啊

代码还是上面的
我把rst.absolutepage=page改成Response.Write(page)可以了
不过我不明白为什么rst.absolutepage=page不对

不明白
这两个有本质的区别啊

这是我的分页，你看下吧 你出错的原因应该是 int(Request("page")) 当Request("page") = 空值 int(空值) 会出现类型不匹配的错误. <% Dim Repeat1__numRows Dim Repeat1__index Dim page

'============ 分页开始 =================== Repeat1__numRows = 6 Recordset1.PageSize = Repeat1__numRows pagetotal = Recordset1.PageCount

if(Request.QueryString("page") <> "" ) then page = int(Request.QueryString("page")) else page = 1 end if

if page < 1 then page = 1 end if

if page >= pagetotal then page = pagetotal end if

if Recordset1.pagecount > 0 then Recordset1.Absolutepage = page end if '============ 分页导航=================== str = "每页" & Recordset1.PageSize & "条 " str = str & "共" & Recordset1_total & "条 " str = str & "页次:" & page & "/" & Recordset1.pagecount if page <= 1 then str = str & " 首页|上页|" else str = str & "<a href=?userid=" & Request.QueryString("userid") str = str & "&page=1" & ">首页</a>" str = str & "|" str = str & "<a href=?userid=" & Request.QueryString("userid") str = str & "&page=" & page - 1 & ">上页</a>" str = str & "|" end if

if page = Recordset1.pagecount then str = str & "下页|末页" else str = str & "<a href=?userid=" & Request.QueryString("userid") str = str & "&page=" & page + 1 & ">下页</a>" str = str & "|" str = str & "<a href=?userid=" & Request.QueryString("userid") str = str & "&page=" & Recordset1.pagecount & ">末页</a>" end if '============ 分页结束!=================== Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %>

[此贴子已经被作者于2005-6-29 14:10:50编辑过]