分页代码

--------文件中的数据库和CLSS文件都在同一个目录中----------------

<%
'显示数据内容
sub showContent()
  dim i
  i=0
  do while not rs.eof
    response.Write("<div align=center>" & rs("name")& "</div>")
   i=i+1
   if i>=MaxPerPage then exit do
   rs.movenext
  loop
end sub
 
'分页的显示方案1
function showpage(totalnumber,maxperpage,filename)
   dim n
   if totalnumber mod maxperpage=0 then
      n=totalnumber\maxperpage
 else
   n=totalnumber\maxperpage+1
 end if
 
  response.Write("<table id='maintab'>")
  response.Write("<form method=post action=" & filename & ">")
  response.Write("<tr>")
  '显示开始
  if currentPage<2 then
     response.Write("<td align=center>首页</td>")
  response.Write("<td align=center>上一页</td>")
   else
     response.Write("<td align=center><a href='" & filename & "?page=1'>首页</a></td>")
  response.Write("<td align=center><a href='" & filename & "?page=" & currentPage-1 & "'>上一页</a></td>")
   end if
  if n-currentPage<1 then
     response.Write("<td align=center>下一页</td>")
  response.Write("<td align=center>尾页</td>")
   else
     response.Write("<td align=center><a href='" & filename & "?page=" & currentPage+1 & "'>下一页</a></td>")
  response.Write("<td align=center><a href='" & filename & "?page=" & n & "'>尾页</a></td>")
   end if
  response.Write("<td>共" & totalnumber & "篇 &nbsp;" & currentPage &"/" & n & "页 &nbsp;")
  response.Write("<select name=page>")
   for j=1 to n
   response.Write("<option value=" & j & ">" & j & "</option>")
   next
  response.Write("</select>")
  response.Write("</td>")
  '显示结束
  response.Write("</tr>")
  response.Write("</form>")
  response.Write("</table>")
end function

'分页显示方案2(用阿拉伯数字)
function showALB(totalnumber,maxperpage,filename)
   dim n,i
   if totalnumber mod maxperpage=0 then
      n=totalnumber\maxperpage
 else
   n=totalnumber\maxperpage+1
 end if
 
  response.Write("<table width='60%' border='1' align='center' cellpadding='0' cellspacing='0' id='maintab'>")
  response.Write("<form method=post action=" & filename & ">")
  response.Write("<tr>")
  '显示开始
  response.Write("<td align=center>")
  for i=1 to n
   if currentPage=i then
     response.Write(i &"&nbsp;")
 else
  response.Write("<a href='" & filename & "?page=" & i & "'>" & i & "&nbsp;</a>")
   end if
  next
  response.Write("共" & totalnumber & "篇 &nbsp;" & currentPage &"/" & n & "页 &nbsp;")
  response.Write("<select name=page>")
   for j=1 to n
    if j=currentPage then
   sel="selected"
   response.Write("<option value='" & j & "'  selected='" & sel & "'>" & j & "</option>")
 else
 
  response.Write("<option value='" & j & "'>" & j & "</option>")
  end if
  
   next
  response.Write("</select>")
  response.Write("</td>")
  '显示结束
  response.Write("</tr>")
  response.Write("</form>")
  response.Write("</table>")
end function
%>