電子工業出版社 JSHING HOUSE DF 【例15.8】编程实现如下结果:在浏览器上分页显示Demo数据库 users表中的所有记 录。(基础模块3.1”分页显示”) 分页显示”程序模块是 output pages.asp ouput pages.asp程序流程如下图15.18: 建立一个到数据源的连结 建立记录集,存放查询结果 结果输出(分页显示) 图15.18 output pages,asp程序流程图 从程序流程图中可以看出,程序段“建立一个到数据源的连结”“建立记录集,存放査 询结果”与【例15.4】的模块中这两个程序段相同.只要检查修改相应的参数,就可直接引 用这两个程序段 < output pages.asp源程序〉 licit % 建立一个到数据源的连 Dim strDSN Dim conn demo strDSN="ProviderMSDASQL, DRIVER=ISQL Server SERVER=127.0.0.1: DATABASE=Demo UID=chen, PWD=123 Set connDemo Server CreateObject("ADODB Connection") connDemo. Open strDSN 建立记录集,存放查询结果 Dim rsUsers Dim strSqiselectUsers Set rsUsers= Server CreateObject("ADODB. Recordset") trSqlselectUsers-="SELECT* FROM users" rsUsers. Open strSqISelectUsers, connDemo, 3, 3 分页处理 If rsUsers Record Count=0 Then Msg="无记录 Response. Write("<scriptalert("& errmsg &") history go(-1/script") Response. End【例 15.8】编程实现如下结果：在浏览器上分页显示 Demo 数据库 users 表中的所有记 录。（基础模块 3.1”分页显示”） “分页显示”程序模块是 output_pages.asp ouput_pages.asp 程序流程如下图 15.18： 图15.18 output_pages.asp程序流程图 从程序流程图中可以看出，程序段“建立一个到数据源的连结”“建立记录集，存放查 询结果”与【例15.4】的模块中这两个程序段相同.只要检查修改相应的参数，就可直接引 用这两个程序段。 <output_pages.asp源程序>: <% Option Explicit %> <% '建立一个到数据源的连接 Dim strDSN Dim connDemo strDSN="Provider=MSDASQL;DRIVER={SQL Server};SERVER=127.0.0.1;DATABASE=Demo;UID=chen;PWD=123" Set connDemo = Server.CreateObject("ADODB.Connection") connDemo.Open strDSN '建立记录集，存放查询结果 Dim rsUsers Dim strSqlSelectUsers Set rsUsers = Server.CreateObject("ADODB.Recordset") strSqlSelectUsers="SELECT * FROM users" rsUsers.Open strSqlSelectUsers, connDemo, 3, 3 '分页处理 If rsUsers.RecordCount=0 Then Dim errMsg errMsg="无记录" Response.Write("<script>alert('" & errmsg & "');history.go(-1)</script>") Response.End