正在加载图片...
電子工業出版社 JEUISHING HOUSE DF ELECTRONCS INDSTR 图15.21 Select record.asp程序流程图 从程序流程图中可以看出,程序段“建立一个到数据源的连结”“建立记录集,存放査 询结果”与【例15.4】的模块中这两个程序段相同.只要检查修改相应的参数,就可直接引 用这两个程序段 Select record.htm>源程序: < Option Explicit % 建立一个到数据源的连接 Dim strdsN Dim conn Demo strDSN="Provider=MSDASQL, DRIVER=(SQL Server: SERVER=127.0.0.1: DATABASE=Demo UID=chen; PWD=123 Set conn Demo= Server CreateObject("ADODB Connection") connDemo. Open strDSN 建立记录集,存放查询结果 Set rs Users= Server CreateObject("ADODB. Recordset strSqlselectUsers=SELECT* FROM users rsUsers. Open strSqlselectUsers, conn Demo, 3, 3 <-结果输出(以供选择 <metahttp-equiv="content-type"content="Text/html;charset=gb2312"> e>基础模块“选择记录,显示记录详细内容”之“选择记录<ite <SCRIPT> unction Open windows(url)t newwinwindow. open(url, "blank", "toolbar-no, location=no, directories=no, status=no, " menubarno, scrollbars=yes, resizable=yes, " </SCRIPT> <head> <body bgcolor"#COCOC0"> < font face="华文行楷"sie="6">选择记录</font><hl>图15.21 Select_record.asp程序流程图 从程序流程图中可以看出，程序段“建立一个到数据源的连结”“建立记录集，存放查 询结果”与【例15.4】的模块中这两个程序段相同.只要检查修改相应的参数，就可直接引 用这两个程序段。 <Select_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"> <title>基础模块“选择记录,显示记录详细内容”之“选择记录”</title> <SCRIPT> 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; } </SCRIPT> </head> <body bgcolor="#C0C0C0"> <p> <font face="华文行楷" size="6">选择记录</font></h1>