asp读取acess数据后分页 数据是读出来了，但分页错误，点击没反应还显示缺少对象

传播最好的ASP ACCESS分页代码
set rs = conn.execute("select count(m_id) as HH_sum_vote_log from HH_say "&HS_haveid2&"")
HH_sum_vote_log = rs("HH_sum_vote_log")
rs.close
set rs = nothing
if HH_sum_vote_log>0 then
HH_sum_page_result=Round(HH_sum_vote_log/HH_pagesize,2)
HH_sum_page=cint(HH_sum_vote_log/HH_pagesize)
if HH_sum_page HH_sum_page=HH_sum_page+1
end if
else
HH_sum_page=1
end if
if isnumeric(HH_admpg) = false then
echo ("页码有误，将为您转向第一页！")
end if
if HH_admpg="" or HH_admpg<1 then
page = 1
else
page = cint(HH_admpg)
end if
if page < 1 or page > HH_sum_page then
echo ("页码有误，将为您转向第一页！")
end if
HH_sumpagemax="desc"
if page=HH_sum_page and page<>1 and HH_sum_page<>1 then
HH_pagesize_no=(HH_pagesize*HH_sum_page)-HH_sum_vote_log
if not HH_pagesize_no=0 then
HH_pagesize=HH_pagesize-HH_pagesize_no
HH_sumpagemax="asc"
end if
end if
set rs=server.createobject("adodb.recordset")
sql = "select * from (select top "&HH_pagesize&" * from (select top "&page*HH_pagesize&" * from HH_say "&HS_haveid&" order by Val([m_id]) "&HH_sumpagemax&") order by Val([m_id])) order by Val([m_id]) desc"
rs.open sql,conn,1,1
if rs.eof then
echo ("")
rs.close
set rs=nothing
exit sub
end if
do while not rs.eof

......................

rs.movenext
loop

你试试：










<%
dim rs,sql
set rs=server.CreateObject("ADODB.Recordset")
sql="select * from maillist order by id desc"
rs.open sql,conn,1,1
%>