電子工業出版社 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 显示记录详细内容 您所选择的记录的详细内容为:        :;    ,   bsp;     &n bsp;    ,  :  ,    ,   &nbs 姓名: ,       :;   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; &n bsp; &nbs p; 姓名 : 电话: & nbsp; &n
電子工業出版社 JSHING HOUSE DF ELECTRONCS INDSTE bsp;  ,  :      ,  :;       nbsp          :   &n bsp;    ,    , &nbs p;    ,  ,  ,   e-mail:  , nbsp; nbsp;  ,  :  ,  ,  :   nbsp;  :  :;  :  ,   个人简历p>
bsp; & nbsp; &n bsp; &nbs p; e-mail : & nbsp; 个人简历