SQL Server 2000 实用教程_【例15.9】

電子工業出版社 SHING HOUSE DF ELECTRONCS 【例15.9】在浏览器上显示Demo数据库uses表中的所有记录,选择记录号如图15.19 所示显示记录详细内容,如图15.20所示。(基础模块3.2”选择记录号,显示记录详细内容”) a说(③出⑧·日昏0 擀记最 请点击记录后的“显示” 姓名 3 厂本地 104W0MX-8vEUUN 图15.19选择要显示的记录 显杀记最详细内容 您所选择的记录的详细内容为 个人西 图15.20显示记录详细内容 “选择记录号,显示记录详细内容”模块由两段程序代码 select record. asp与 list sele record.asp组成。 Select record.asp是选择记录号, list sele record.asp是显 示被选定记录的详细内容。 Select record.asp程序流程如下图15.21所示: 建立—个到数据源的连纟 建立记录集,存放查询结果 结果输出,提供选择

【例 15.9】在浏览器上显示 Demo 数据库 users 表中的所有记录，选择记录号如图 15.19 所示, 显示记录详细内容，如图 15.20 所示。（基础模块 3.2 ”选择记录号，显示记录详细内容”） 图 15.19 选择要显示的记录 图 15.20 显示记录详细内容 “选择记录号，显示记录详细内容”模块由两段程序代码 select_record.asp 与 list_sele_record.asp 组成。Select_record.asp 是选择记录号，list_sele_record.asp 是显 示被选定记录的详细内容。 Select_record.asp 程序流程如下图 15.21 所示：

電子工業出版社 JEUISHING HOUSE DF ELECTRONCS INDSTR 图15.21 Select record.asp程序流程图 从程序流程图中可以看出,程序段“建立一个到数据源的连结”“建立记录集,存放査 询结果”与【例15.4】的模块中这两个程序段相同.只要检查修改相应的参数,就可直接引 用这两个程序段 Select record.htm>源程序: e>基础模块“选择记录,显示记录详细内容”之“选择记录 unction Open windows(url)t newwinwindow. open(url, "blank", "toolbar-no, location=no, directories=no, status=no, " menubarno, scrollbars=yes, resizable=yes, " 选择记录

图15.21 Select_record.asp程序流程图 从程序流程图中可以看出，程序段“建立一个到数据源的连结”“建立记录集，存放查 询结果”与【例15.4】的模块中这两个程序段相同.只要检查修改相应的参数，就可直接引 用这两个程序段。 源程序： 基础模块“选择记录,显示记录详细内容”之“选择记录” function OpenWindows(url){ var newwin=window.open(url,"_blank","toolbar=no,location=no,directories=no,status=no,"+ "menubar=no,scrollbars=yes,resizable=yes,"+ "top=50,left=120,width=600,height=400"); return false; } 选择记录

電子工業出版社 JEUISHING HOUSE DF ELECTRONCS INDSTR 请点击记录后的“显示”: If Not rsUsers Eof Then width="120″>记录号姓名 Do While Not rsUsers. Eof ="120"> 1 ist sele record.asp>程序可以理解为:用户在 select record.asp中选定的需要浏 览的记录,1 ist sele record.asp根据获取的记录号进行查询,所以, list record.asp 可以引用查询模块中 query.asp程序段。 接受表单输入的数据

请点击记录后的“显示”： 记录号 姓名 " onClick='return OpenWindows(this.href);'> 程序可以理解为：用户在 select_record.asp 中选定的需要浏 览的记录，list_sele_record.asp 根据获取的记录号进行查询，所以，list_record.asp 可以引用查询模块中 query.asp 程序段。 源程序： <% '接受表单输入的数据

電子工業出版社 JEUISHING HOUSE DF ELECTRONCS INDSTR id=Request QueryString("id") 建立一个到数据源的连接 Dim conn Demo strDSN="ProviderMSDASQL DRIVER=(SQL Server: SERVER=127.0.0.1: DATABASE=Demo UID=chen, PWD=123 Set conn Demo= Server CreateObject("ADODB Connection") connDemo. Open strDSN 建立记录集存放查询结果 Dim strsql Set rsUsers= Server CreateObject("ADODB. Recordset") strSqlSelectUsers="SELECT* FROM users WhERE id="& id rsUsers. Open strSqlselectUsers, connDeme 显示记录详细内容 您所选择的记录的详细内容为: &nbsp; &nbsp &nbsp &nbsp; &nbsp; &nbsp &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp:; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp &nbsp; &nbsp, &nbsp bsp; &nbsp; &nbsp; &nbsp &nbsp; &nbsp; &nbsp; &nbsp &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &n bsp; &nbsp &nbsp, &nbsp; &nbsp: &nbsp; &nbsp; &nbsp, &nbsp &nbsp; &nbsp, &nbsp; &nbsp; &nbsp &nbs 姓名:&nbsp,&nbsp&nbsp&nbsp&nbsp&nbsp &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp:; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp nbsp; &nbsp:; &nbsp; &nbsp; &nbsp: &nbsp: &nbsp &nbsp; &nbsp; &nbsp:; &nbsp; &nbsp; &nbsp: &nbsp; &n

Dim id id=Request.QueryString("id") '建立一个到数据源的连接 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 WHERE id=" & id & "" rsUsers.Open strSqlSelectUsers,connDemo %> 基础模块“选择记录,显示记录详细内容”之“显示记录详细内容” 显示记录详细内容 您所选择的记录的详细内容为： &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;& nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbs p;&nbsp;&nbsp;&nbsp; 姓名 ：&nbsp; 电话： &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;& nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n

電子工業出版社 JSHING HOUSE DF ELECTRONCS INDSTE bsp; &nbsp; &nbsp; &nbsp; &nbsp, &nbsp; &nbsp; &nbsp: &nbsp &nbsp; &nbsp; &nbsp &nbsp; &nbsp; &nbsp, &nbsp; &nbsp; &nbsp:; &nbsp; &nbsp; &nbsp &nbsp; &nbsp; &nbsp &nbsp nbsp &nbsp &nbsp; &nbsp &nbsp; &nbsp; &nbsp &nbsp &nbsp; &nbsp; &nbsp; &nbsp; &nbsp: &nbsp &n bsp; &nbsp &nbsp, &nbsp; &nbsp &nbsp; &nbsp; &nbsp, &nbsp; &nbsp; &nbs p; &nbsp; &nbsp; &nbsp; &nbsp &nbsp, &nbsp, &nbsp, &nbsp; &nbsp; &nbsp; &nbsp; &nbsp &nbsp; e-mail: &nbsp, nbsp; nbsp; &nbsp; &nbsp; &nbsp; &nbsp, &nbsp; &nbsp: &nbsp; &nbsp, &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp, &nbsp; &nbsp; &nbsp; &nbsp: &nbsp nbsp; &nbsp; &nbsp: &nbsp; &nbsp:; &nbsp: &nbsp, &nbsp 个人简历p>

bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;& nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbs p;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; e-mail ： &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;& nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 个人简历