正在加载图片...
電子工業出版社 JEUISHING HOUSE DF ELECTRONCS INDSTR 建立一个到数据源的连结 建立记录集,存放查询结果 结果输出,提供选择 15.16Sele_ modi record.htm程序流程图 从程序流程图中可以看出,程序段“建立一个到数据源的连结”“建立记录集,存放査 询结果”与【例15.4】的模块中这两个程序段相同.只要检查修改相应的参数,就可直接引 用这两个程序段 < sele modi record.htm源程序> < Option Explicit % 建立一个到数据源的连接 DIm strDSN="ProviderMSDASQL, DRIVER=SQL Server: SERVER=127.0.0.1, DATABASE=Demo, UID=chen PWD=123 et conn Demo= Server CreateObject("ADODB Connection") connDemo. Open strDSN 建立记录集,存放查询结果 Dim strSqlselectUsers Set rsUsers= Server CreateObject("ADODB. Recordset strSqlSelectUsers="SELECT* FROM users rsUsers. Open strSqISelectUsers, conn Demo, 3, 3 <!-结果输出,以供选择-> chtml> <head> <metahttp-equiv="content-type"content"tExt/html;charset=gb2312">图 15.16 Sele_modi_record.htm程序流程图 从程序流程图中可以看出，程序段“建立一个到数据源的连结”“建立记录集，存放查 询结果”与【例15.4】的模块中这两个程序段相同.只要检查修改相应的参数，就可直接引 用这两个程序段。 <sele_modi_record.htm 源程序>: <% 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 %> <!--结果输出,以供选择--> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312">