一个分页的ASP代码实例

 Response.Write("<option selected>"&i&"</option>") ''当前页码
  else
  Response.Write("<option>"&i&"</option>")
  end if
  Next
  Response.Write("</select>页/共"&rs.PageCount&"页 共"&rs.RecordCount&"条记录</font><p>")
  Response.Write("</form>")
  
  ''创建表格，用于显示
  Response.Write("<table align=center cellspacing=1 cellpadding=1 border=1")
  Response.Write(" bordercolor=#99CCFF bordercolordark=#b0e0e6 bordercolorlight=#000066>")
  
  Response.Write("<tr bgcolor=#ccccff bordercolor=#000066>")
  
  Set Columns=rs.Fields
  
  ''显示表头
  For i=0 to Columns.Count-1
  Response.Write("<td align=center width=200 height=13>")
  Response.Write("<font size=2><b>"&Columns(i).name&"</b></font></td>")
  Next
  Response.Write("</tr>")
  ''显示内容
  For i=1 to rs.PageSize
  Response.Write("<tr bgcolor=#99ccff bordercolor=#000066>")
  For j=0 to Columns.Count-1
  Response.Write("<td><font size=2>"&Columns(j)&"</font></td>")
  Next
  Response.Write("</tr>")
  
  rs.movenext
  if rs.EOF then exit for
  Next
  
  Response.Write("</table>")
  
  END IF
  %>
  </BODY>
  </HTML>