asp·ÖÒ³´úÂë

 <%'¿ªÊ¼·ÖÒ³
    Const MaxPerPage=25
       dim totalPut  
       dim CurrentPage
       dim TotalPages
       dim j
       dim sql
        if Not isempty(request("page")) then
          currentPage=Cint(request("page"))
       else
          currentPage=1
       end if
   set rs=server.createobject("adodb.recordset")
      rs.open "*",conn,1,1
      if rs.eof And rs.bof then
           Response.Write "<p align='center' class='in'> Äú»¹Ã»ÓÐÌí¼Ó»î¶¯£¡</p>"
       else
       totalPut=rs.recordcount
          if currentpage<1 then
              currentpage=1
          end if
          if (currentpage-1)*MaxPerPage>totalput then
         if (totalPut mod MaxPerPage)=0 then
           currentpage= totalPut \ MaxPerPage
         else
            currentpage= totalPut \ MaxPerPage + 1
         end if
          end if
           if currentPage=1 then
     &n