電子工業出版社 JEUISHING HOUSE DF ELECTRONCS INDSTR 接受表单输入数据 建立一个到数据源的连结 保存按钮被点击 建立记录集,存放查询结果 建立一个到数据源的连结 受表单输入数据,写入数据库 建立记录集,存放查询结果 建立表单与记录集的连接 图15.17 modify record.asp程序流程图 modify record.asp源程序 < Option Explicit %> 接受从表单读出输入的数据 Dim save id=Request QueryString("id") save=Request Form("btnSave") 判断本页面的”保存”按钮是否被点击 If save="保存"Then 建立一个到数据源的连接 Dim strdsN Dim conn Demo strDSN="ProviderMSDASQL DRIVER=SQL Server: SERVER=127.0.0.1: DATABASE=Demo UID=chen, PWD=123 Set connDemo= Server CreateObject("ADODB Connection") conn Demo. Open strDSN 建立记录集,存放查询结果 Dim strSqISelectUsers Set rsUsers= Server CreateObject("ADODB. Recordset")图 15.17 modify_record.asp程序流程图 <modify_record.asp 源程序> <% Option Explicit %> <% '接受从表单读出输入的数据 Dim id Dim save id=Request.QueryString("id") save=Request.Form("btnSave") '判断本页面的"保存"按钮是否被点击 If save="保存" Then '建立一个到数据源的连接 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")