分页时首先不要关闭rs
dim hw_id(),hw_name(),hw_cash(),hw_views(),hw_buys(),hw_content(),hw_pic(),hw_date()sql="select * from hw where sort_id='"&sort_id&"' order by hw_id DESC"
      rs.open sql,conn,3,3
      if rs.eof then
          response.write "你所选的类别没有商品"
          response.end
      else
          rs.pagesize=12
          totalrec=rs.recordcount
          totalpage=rs.pagecount
           if page>totalpage then page=totalpage
           rs.absolutepage=page                /*44行*/
           for i=0 to rs.pagesize-1
         
             hw_id(i)=rs("hw_id")
             hw_name(i)=rs("hw_name")
          hw_cash(i)=rs("hw_cash")
          hw_views(i)=rs("hw_views")
          hw_buys(i)=rs("hw_buys")
          hw_content(i)=rs("hw_content")
          hw_pic(i)=rs("hw_pic")
          hw_date(i)=rs("hw_date")
          rs.movenext
          next
       end if
      rs.close