学步园

<%
set rs=server.CreateObject("ADODB.recordset")
rs.Open "select * from webdiy_mb ",conn,1,3
if rs.bof and rs.eof then
response.Write("没有模板")
else

'定义分页
rs.PageSize=10'每页显示的记录数
total_page=rs.PageCount
total_red=rs.RecordCount
current_page=Request.Form("me_page")

if current_page="" then
current_page=1
elseif not isnumeric(current_page) then
current_page=1
else
current_page=cint(current_page)
end if

if current_page>total_page then
current_page=total_page
elseif current_page<1 then
current_page=1
end if

rs.AbsolutePage=current_page

'放表格的行头
%>
<table width="100%" border="0" cellspacing="2" cellpadding="0">
<%
For j = 1 to 5
if rs.EOF then Exit For
response.write("<tr>")
For i=1 to 2

if rs.EOF then
Exit For
end if
%>
<td align="center"> <%=rs("mb_title")%> <a href="mblist.asp?id=<%=rs("id")%>"> </td>
<%
rs.movenext
Next
%>
<%
next
end if
%>
</tr>
</table>

<table>
<tr align="right">

<td height="30" align="right"><div align="right" class="a01">共 <%=total_red%> 条记录，显示第 <%=current_page%>页/总<%=total_page%>页
<%if total_red>rs.pagesize then%>
<%call showpage%>
转到第
<input type="text" name="goto_page1" value="<%=current_page%>" style="border: 1px solid rgb(200,200,200)" size=2 maxlength=3>
页
<input hidefocus type="button" value="GoTo" name="cmd_goto2" onClick="javascript:viewPage(document.all.goto_page1.value);" style="width:40px; BORDER-RIGHT: #C2C2C2 1px solid; BORDER-TOP: #FFFFF0 1px solid; BORDER-LEFT: #F2F2F9 1px solid; COLOR: #000000; BORDER-BOTTOM: #C2C2C2 1px solid; BACKGROUND-COLOR: #F2F2F2">
<!--#include file="../pub/showpage.asp"-->
<%end if%>
</div>
</td>
<form action="mb_list.asp" method=post name="frm_page">
<input type="hidden" name="me_page">
<input type="hidden" name="keyword" value="<%=keyword%>">
<input type="hidden" name="sortid" value="<%=sortid%>">
</form>
</tr>
</table>

showpage.asp源文件：

<script language="javascript">
     function viewPage(ipage){
        document.frm_page.me_page.value=ipage;
        document.frm_page.submit();       
     }
</script>
<%
sub showpage() '显示分页导航条
dim n,k
  n=total_page
  if n>1 then 
      k=current_Page 
      if k=1 then
          response.write "  |  <font color='#999999' >首页</font>"
          response.write "  |  <font color='#999999' >上页</font>"
          response.write "  |  <a class=a01 href='javascript:viewPage(" & cstr(k+1) &")' language='javascript'>下页</a>"
          response.write "  |  <a class=a01 href='javascript:viewPage(" & cstr(n) & ")' language='javascript'>尾页</a>"
      elseif k=n then                
          response.write "  |  <a class=a01 href='javascript:viewPage(" & cstr(1) & ")' language='javascript'>首页</a>"
          response.write "  |  <a class=a01 href='javascript:viewPage(" & cstr(k-1) & ")' language ='javascript'>上页</a>"
          response.write "  |  <font color='#999999'>下页</font>"
          response.write "  |  <font color='#999999'>尾页</font>"
      else
          response.write "  |  <a class=a01 href='javascript:viewPage(" & cstr(1) & ")' language ='javascript'>首页</a>"
          response.write "  |  <a class=a01 href='javascript:viewPage(" & cstr(k-1) & ")' language ='javascript'>上页</a>"
          response.write "  |  <a class=a01 href='javascript:viewPage(" & cstr(k+1) &")' language ='javascript'>下页</a>"
          response.write "  |  <a class=a01 href='javascript:viewPage(" & cstr(n) & ")' language ='javascript'>尾页</a>"
      end if

  else           
      response.write "  |  <font color='#999999'>首页</font>"
      response.write "  |  <font color='#999999'>上页</font>"
      response.write "  |  <font color='#999999'>下页</font>"
      response.write "  |  <font color='#999999'>尾页</font>"
  end if 
end sub
%>