使用asp实现分页

<% @language="vbscript" %> <html> <head> <title>asp分页</title> </head> <body> <table> <%  connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("DB.mdb")  sqlstr="select * from book"  Set conn=CreateObject("ADODB.Connection")  conn.open connstr  Set rs=CreateObject("ADODB.RecordSet")  rs.open sqlstr,conn,1,1

 rs.pagesize=10  pagecount=rs.pagecount  page=cint(request("page"))  if page<=0 then page=1  if page>=pagecount then page=pagecount  rs.absolutepage=page

 if rs.eof and rs.bof then   response.write "无记录"  else  for i=1 to rs.pagesize  if rs.eof then  exit for  end if %> <tr><td>序号:<%=rs("b_id")%></td></tr> <tr><td>书名:<%=rs("b_name")%></td></tr> <tr><td>价格:<%=rs("b_price")%></td></tr> <tr><td>作者:<%=rs("b_author")%></td></tr> <tr><td>出版社:<%=rs("b_publisher")%></td></tr> <tr><td>出版日期:<%=rs("b_publishdate")%></td></tr> <tr><td>-----------------------------------</td></tr> <%  rs.movenext  next  end If

  str="<div align='left'>"       str=str & "<center>"       str=str & "<table border='0' cellpadding='0' cellspacing='0' height=25 width='98%'>"        str=str & "<tr>"                                             str=str & "<td width='100%' align='left' colspan='3'><p style='margin-right: 5'>记录总数:<font color='#FF0000'><b>"&rs.recordcount &"</b></font>,分页:"                                                if page>=10 then                                            str=str & "[<A href='paging1.asp?page="&(page/10)*10-1&""&Param&"'><font color='#0000FF'><<</font></A>]&nbsp;"                                     end if                                        for i=(page/10)*10+1 to (page/10)*10+10                                            if i>rs.pagecount then exit for                                            if i=page then                                               str=str & "<FONT color=#cc0000><B>" & i & "</B></FONT>&nbsp;"                                            else                                               str=str & "[<A href='paging1.asp?page="&i&""&Param&"'><font color='#0000FF'>" & i & "</font></A>]&nbsp;"                                            end if                                            if i=(page/10)*10+10 then                                             str=str & "[<A href='paging1.asp?page="&i+1&""&Param&"'><font color='#0000FF'>>></font></A>]&nbsp;"                                            end if                                                      next               str=str & "</p></td>"                                              str=str & "</tr>"                                              str=str & "</table>"                                              str=str & "</center>"                                             str=str & "</div>"      response.write str

 rs.close  set rs=nothing  conn.close  set conn=nothing    %> </table> <p>

 

<% for i=1 to pagecount%> <a href="paging1.asp?page=<%=i%>"><%=i%></a> <%next%> (本页为第<%=page%>页,共<%=pagecount%>页) </body> </html>  

你可能感兴趣的:(Microsoft,table,VBScript,asp,border,出版)