<!--#include file="conn.asp" -->

<%

dim i,intPage,page,pre,last,filepath

exec="select * from jbxx order by bh" 

set rs=server.createobject("adodb.recordset")

rs.open exec,conn,1,1

if rs.recordcount>=1 then

      rs.PageSize =10        

  

      pre = true

      last = true

      page = trim(Request.QueryString("page"))

      

      if len(page) = 0 then

                  intpage = 1

                  pre = false

      else

          if cint(page) =< 1 then

               intpage = 1

               pre = false

          else

              if cint(page) >= rs.PageCount then

                  intpage = rs.PageCount

                  last = false

              else

                   intpage = cint(page)

             end if

         end if

      end if

    if not rs.eof then

         rs.AbsolutePage = intpage

    end if

%><style type="text/css">

<!--

body {

	background-color: #E4E4ED;

}

.STYLE1 {font-size: medium}

-->

</style>



<table width="100%" border="1" cellspacing="0" cellpadding="0">

  <tr>