<html> <head><title>添加记录</title></head> <body background="../../../images/bj1.jpg"> <div> <form method="post" action="add.asp"> <table> <tr><td colspan="2">员工基本情况表</td></tr> <tr><td>员工姓名：</td> <td><input type="text"></td></tr> <tr><td>所在部门：</td> <td><input type="text"></td></tr> <tr><td>家庭住址：</td> <td><input type="text"></td></tr> <tr><td>家庭电话：</td> <td><input type="text"></td></tr> <tr><td>Email：</td> <td><input type="text"></td></tr> <tr><td><input type="submit" value="提交"></td> <td><input type="reset" value="全部重写"></td></tr> </table> </form> </div> </body> </html>
3)、保存添加数据页面：add.asp。
该页面的功能有：
a)、使用Request对象获取从add.htm页面提交的值；
b)、创建三个对象（连接对象、记录集对象和指令对象）和五个参数，通过调用参数执行INSERT插入命令。
<% @ Language="VBScript" %> <html> <head> <title>添加记录</title> </head> <body background="../../../images/bj1.jpg"> <!-- #include virtual ="/adovbs.inc" --> <% '****************创建三个对象（连接对象、记录集对象和指令对象）和五个参数********************* dim cnn,rst,cmd set cnn=Server.CreateObject("ADODB.Connection") set rst=Server.CreateObject("ADODB.Recordset") set cmd=Server.CreateObject("ADODB.Command") '指定连接字符串， cnn.ConnectionString="PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=" & server.MapPath("../rsgl.mdb") cnn.Open '设置ActiveConnection属性，使Command对象与打开的连接相关联 set cmd.ActiveConnection=cnn '指定传送给数据提供者的命令文本是一条SQL语言。 cmd.CommandType=adCmdText cmd.CommandText="INSERT INTO 员工基本情况表(员工姓名,所在部门,家庭住址,家庭电话,Email) values(?,?,?,?,?)" '创建五个Parameter对象 set PrmName=cmd.CreateParameter("员工姓名",adVarChar,adParamInput,10) set PrmDepartment=cmd.CreateParameter("所在部门",adVarChar,adParamInput,10) set PrmAddr=cmd.CreateParameter("家庭住址",adVarChar,adParamInput,12) set PrmTel=cmd.CreateParameter("家庭电话",adVarChar,adParamInput,15) set PrmEmail=cmd.CreateParameter("Email",adVarChar,adParamInput,20) '将parameter对象添加到Parameters集合中。 cmd.Parameters.Append prmName cmd.Parameters.Append prmDepartment Cmd.Parameters.Append prmAddr Cmd.Parameters.Append prmTel Cmd.Parameters.Append prmEmail '使用表单值设置参数值 PrmName.Value=Request.Form("txtName") PrmDepartment.Value=Request.Form("txtDepartment") PrmAddr.Value=Request.Form("txtAddr") PrmTel.Value=Request.Form("txtTel") PrmEmail.Value=Request.Form("txtEmail") '执行INSERT插入命令 cmd.Execute %> <!--用表格显示记录。--> <table> <tr><td colspan="2">员工基本情况表</td></tr> <tr><td>员工姓名：</td> <td><%=prmName.Value %></td></tr> <tr><td>所在部门：</td> <td><%=prmDepartment.Value %></td></tr> <tr><td>家庭住址：</td> <td><%=prmAddr.Value %></td></tr> <tr><td>家庭电话：</td> <td><%=prmTel.Value %></td></tr> <tr><td>Email：</td> <td><%=prmEmail.Value %></td></tr> </table> <center><p><p><p> <hr color="#cc9999"> <p><p><h3>记录添加成功！</h3> <p><a href="https://www.jb51.net/add.htm">返回记录添加表单</a>||<a href="https://www.jb51.net/index.asp">返回主页</a> </center> </body> </html>
4)、更改数据页面：Update.asp。该页面的功能有：
a）、创建两个对象，Connectiion对象和Recordset对象，其目的是连接数据库和返回一个记录集；
b）、创建一个表单，其目的是提交更改过的数据。