分页缺少对象问题
这段代码 刚开始没问题 可是后来加了东西后提示说缺少对象,我找了半天也没弄明白那缺少对象大家帮忙看看那出问题了
<%
Set rs=Server.CreateObject("ADODB.Recordset")
rs.open "select * from products order by id desc",conn,3,1
sumcount=rs.recordcount
if sumcount=0 then
response.Write("no list")
else
page=trim(request("page"))
if page="" then
page=1
end if
rs.pagesize=9
page=cint(page)
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
intPageCount = rs.PageCount
rs.Absolutepage=page
%>
共有<font color="#FF0000"><%=sumcount%></font>条记录 共有<span class="style1"><%=page%><span class="style2">/</span><%=rs.pagecount%></span>页
<%if page<>1 then%>
[<a href="chanpin.asp?page=1">首页</a>][<a href="chanpin.asp?page=<%=page-1%>">上一页</a>]
<%end if%>
<%if page<>rs.pagecount then%>
[<a href="chanpin.asp?page=<%=page+1%>">下一页</a>][<a href="chanpin.asp?page=<%=rs.pagecount%>">尾页</a>]
<%end if%>