ADODB.Recordset 错误 '800a0bb9' 急急急！！！

来源：百度知道 编辑：UC知道 时间：2024/05/30 14:42:56
ADODB.Recordset 错误 '800a0bb9'

参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。

/jobindex.asp，行 85

代码如下：

<%
sql="select * from tbl_job order by id desc"
Set rs = server.CreateObject("adodb.recordset")

rs.PageSize =3 '这里设定每页显示的记录数
rs.CursorLocation = 3
rs.Open sql,conn,0,2,1'这里执行你查询SQL并获得结果记录集 （此为85行）
pre = true
last = true
page = trim(Request.QueryString("page"))

if len(page) = 0 then
intpage = 1
pre = false
else
if cint(page) =< 1 then
intpage = 1
pre = false
else
if cint(page) >= rs.PageCount then
intpage = rs.PageCount
last = false
else
intpage = cint(page)
end if
end if
end if
if not rs.eof then
rs.AbsolutePage = intpage
end if
%>

<%

<%
Dim CurRentPage
MaxPerPage = 20
Rs.PageSize = MaxPerPage
CurRentPage = ReQuest.QueryString("PageID")

IF CurRentPage = "" Then
CurRentPage = 1
ElseIF CurRentPage < 1 Then
CurRentPage = 1
Else
CurRentPage = Clng(CurRentPage)
IF CurRentPage > Rs.PageCount Then
CurRentPage = Rs.PageCount
End IF
End IF

IF Not IsNumEric(CurRentPage) Then
CurRentPage = 1
End IF

Dim ToTalPut,n
ToTalPut = Rs.ReCordCount

IF ToTalPut Mod MaxPerPage = 0 Then
n = ToTalPut\MaxPerPage
Else
n = ToTalPut\MaxPerPage + 1
End IF

IF n = 0 Then
n = 1
End IF

Rs.Move(CurRentPage - 1) * MaxPerPage
i = 0
Do While i < MaxPerPage And Not Rs.Eof
%>
<!--加入代码-->
<%
i = i+1
Rs.MoveNext
Loop

%><