電子工業出版社 JEUISHING HOUSE DF ELECTRONCS INDSTR < font face="华文行楷"size="6">输入查询串</font>/hl <h3>请输入您要查询的用户名:</h3 用户名:< input type="text"name=" txtUserName < input type=" submit" value="查询">< input type=" reset" value="全部重填" </body〉 </html> Query.asp程序流程如下图15.6所示: 接受表单输入数据 建立一个到数据源的连结 建立记录集,存放查询结果 图156@uery.asp程序流程图 从程序流程图中可以看出,程序段“建立一个到数据源的连结”即【例15.3】的模块 只要检查相应的参数,如: server=”127.0.0.1;uid=chen;pwd=123; database=Demo”,把IP uid、pwd、 database的值改为当前题目的参数值就可以直接引用 < query.asp>源程序 < Option Explicit % 接受表单输入的数据 rName userName=Request Form(txtUserName") 建立一个到数据源的连接 Dim strdsN con strDSN="Provider=MSDASQL: DRIVER=SQL Serverl: SERVER=127 0.0.1: DATABASE=Demo: UID=chen: PWD=123 Set conn Demo = Server CreateObject("ADODB Connection") connDemo. Open strDSN<font face="华文行楷" size="6">输入查询串</font></h1> </p> <h3>请输入您要查询的用户名：</h3> <p> 用户名：<input type="text" name="txtUserName" size="20"> </p> <p> <input type="submit" value="查询" ><input type="reset" value="全部重填"> </p> </form> </body> </html> Query.asp 程序流程如下图 15.6 所示： 图 15.6 Query.asp程序流程图 从程序流程图中可以看出，程序段“建立一个到数据源的连结”即【例15.3】的模块， 只要检查相应的参数，如：server=”127.0.0.1;uid=chen;pwd=123;database=Demo”,把IP、 uid、pwd、database的值改为当前题目的参数值就可以直接引用。 <query.asp>源程序： <% Option Explicit %> <% '接受表单输入的数据 Dim userName userName=Request.Form("txtUserName") '建立一个到数据源的连接 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