要执行本范例,请在 HTML 表中添加虚构的新记录。单击“Add New”。要删除不需要的记录,请参阅 Delete 方法范例。
<%@Language = VBScript %>
ADO Open Method
ADO AddNew Method
<% src = "C:\mssdk\samples\dataaccess\rds\advworks.mdb" sC & src 'Create and Open Connection Object Set OBJdbConn = Server.CreateObject("ADODB.Connection") OBJdbConn.Open sConnStr 'Create and Open Recordset Object Set RsCustomerList = Server.CreateObject("ADODB.Recordset") RsCustomerList.ActiveConnection = OBJdbConn RsCustomerList.CursorType = adOpenKeyset RsCustomerList.LockType = adLockOptimistic RsCustomerList.Source = "Customers" RsCustomerList.Open %> If this is first time page is open, Form collection will be empty when data is entered. run AddNew method --> <% If Not IsEmpty(Request.Form) Then If Not Request.Form("CompanyName") = "" Then RsCustomerList.AddNew RsCustomerList("CompanyName") = Request.Form("CompanyName") RsCustomerList("ContactLastName") = Request.Form("LastName") RsCustomerList("ContactFirstName") = Request.Form("FirstName") RsCustomerList("PhoneNumber") = Request.Form("PhoneNumber") RsCustomerList("City") = Request.Form("City") RsCustomerList("StateOrProvince") = Request.Form("State") RsCustomerList.Update RsCustomerList.MoveFirst End If End If %>