<%
              SQL="Select * from product where pro_name='product'"
              Set rs=Server.CreateObject("ADODB.RecordSet")
            rs.Open SQL,con,1,1
            rs.PageSize=12
            count=1
            if Request("count")<>"" then
            count=Cint(Request("count"))
                if count<1 then
                    count=1
                end if
                if count>rs.PageCount then
                    count=rs.PageCount
                end if
            end if
            if not rs.Bof and not rs.Eof then
                  rs.ABSolutePage=count
              end if
            pagecountx=rs.pagecount
            for i=0 to 2
                if i*4>=rs.RecordCount-((count-1)*rs.PageSize) then
                    exit for
                end if    
          %>

太感谢版主了