asp又一个分页的代码例子

Pages.asp

```asp

<%

' 此程序名为Pages.asp，用于展示分页功能

' 包含ADO常量表文件adovbsc，确保从正确的路径导入（路径已隐藏）

Include File="adovbsc"

' 与数据库建立连接，这里使用的是Oracle 8.05数据库

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open "Provider=msdaora.1;Data Source=YourSrcName;User ID=YourUserID;Password=YourPassword;"

Set rs = Server.CreateObject("ADODB.Recordset") ' 创建Recordset对象

rs.CursorLocation = adUseClient ' 设置记录集指针属性

rs.PageSize = 10 ' 设置每页的记录总数为10条

StrSQL = "Select ID, 姓名, 住址, 电话 from 通讯录 Order By ID" ' 设置查询语句

rs.Open StrSQL, conn, adOpenStatic, adLockReadOnly, adCmdText

%>

<% For i = 0 To Columns.Count - 1 %>

<% Next %>

<% For i = 1 To rs.PageSize %>

<% For j = 0 To Columns.Count - 1 %>