電子工業出版社 JEUISHING HOUSE DF ELECTRONCS INDSTR 建立一个到数据源的连结 建立记录集,存放查询结果 接受表单输入数据,写入数据库 图15.9 Add record.asp程序流程图 从程序流程图中可以看出,程序段“建立一个到数据源的连结”“建立记录集,存放查 询结果”及“接受表单输入数据”与【例15.4】的模块中这三个程序段相同.可直接引用这 三个程序段,再加上“写入数据库表”程序段就可实现“添加新记录”的功能 < add record.asp>源程序: < Option Explicit 建立一个到数据源的连接 Dim strDsN Dim condE strDSN="Provider=MSDASQL: DRIVER=SQL rver): SERVER=127. 0. 0. 1: DATABASE=Demo: UID-chen: PWD=123 Set connDemo Server. CreateObject("ADODB Connection) connDemo. Open strDSN 建立记录集,存放查询结果 Dim strSqlselectUsers Set rsUsers Server CreateObject("ADODB. Recordset") strSqlSelectUsers=" SELECT ** FROM users rsUsers. Open strSqlselectUsers, connDemo, 1, 3 接受表单输入数据,写入数据库表 rsUsers AddNew rsUsers("username")=Request Form(txtUserName") rsUsers(" password")=Request Form(txtPassword rsUsers("email")=Request Form("txtEmai1") rsUsers("phone")=Request Form("txtPhone") rsUsers("resume")=Request. Form("txt Resume") rsUsers. Update rsUsers. Close图 15.9 Add_record.asp 程序流程图 从程序流程图中可以看出，程序段“建立一个到数据源的连结”“建立记录集，存放查 询结果”及“接受表单输入数据”与【例 15.4】的模块中这三个程序段相同.可直接引用这 三个程序段，再加上“写入数据库表”程序段就可实现“添加新记录”的功能。 <add_record.asp>源程序： <% 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,1,3 '接受表单输入数据，写入数据库表 rsUsers.AddNew rsUsers("username")=Request.Form("txtUserName") rsUsers("password")=Request.Form("txtPassword") rsUsers("email")=Request.Form("txtEmail") rsUsers("phone")=Request.Form("txtPhone") rsUsers("resume")=Request.Form("txtResume") rsUsers.Update rsUsers.Close