cnn.ConnectionString="PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=" & server.MapPath("../rsgl.mdb") cnn.Open sSQL="select * from 员工基本情况表 where 员工姓名='" & a & "'" 'rst.Open sSQL,cnn,1,1 set rst=cnn.Execute(sSQL,,adCmdText) %> <html> <head><title>更改记录</title></head> <body background="../../../images/bj1.jpg"> <div> <!--*****************创建一个表单****************************************--> <form method="post" action="Update1.asp"> <table> <tr><td colspan="2">员工基本情况表</td></tr> <tr><td>员工姓名：</td> <td><input type="text" value=<%=rst("员工姓名")%> readonly></td></tr> <tr><td>所在部门：</td> <td><input type="text" value=<%=rst("所在部门")%>></td></tr> <tr><td>家庭住址：</td> <td><input type="text" value=<%=rst("家庭住址")%>></td></tr> <tr><td>家庭电话：</td> <td><input type="text" value=<%=rst("家庭电话")%>></td></tr> <tr><td>Email：</td> <td><input type="text" value=<%=rst("Email")%>></td></tr> <tr><td><input type="submit" value="提交"></td> <td><input type="reset" value="全部重写"></td></tr> </table> </form> </div> </body> </html>
5)、保存更改数据页面：Update2.asp。
该页面的功能有：
a)、使用Request对象获取从Update.asp页面提交的值；
b)、创建二个对象（连接对象、记录集对象）；
c)、通过表格显示更改后的记录。
<% @ Language="VBScript" %> <% '*****************从提交表单中提取数值*************************** Dim Name,Department,Addr,Tel,Email Name=Trim(Request.Form("txtName")) Department=Trim(Request.Form("txtDepartment")) Addr=Trim(Request.Form("txtAddr")) Tel=Trim(Request.Form("txtTel")) Email=Trim(Request.Form("txtEmail")) %> <html> <head> <title>更改记录</title> </head> <body> <!-- #include virtual ="/adovbs.inc" --> <% '****************创建二个对象（连接对象、记录集对象）********************* dim cnn,rst,cmd set cnn=Server.CreateObject("ADODB.Connection") set rst=Server.CreateObject("ADODB.Recordset") '指定连接字符串， cnn.ConnectionString="PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=" & server.MapPath("../rsgl.mdb") cnn.Open sSQL="update 员工基本情况表 set 所在部门='" & Department & "',家庭住址='" & Addr & "',家庭电话='" & Tel & "',Email='" & Email & "' where 员工姓名='" & name & "'" rst.Open sSQL,cnn,1,2 set rst=nothing %> <!--**************************用表格显示记录。**********************--> <table> <tr><td colspan="2">员工基本情况表</td></tr> <tr><td>员工姓名：</td> <td><%=Name %></td></tr> <tr><td>所在部门：</td> <td><%=Department %></td></tr> <tr><td>家庭住址：</td> <td><%=Addr %></td></tr> <tr><td>家庭电话：</td> <td><%=Tel %></td></tr> <tr><td>Email：</td> <td><%=Email %></td></tr> </table> <center> <p><hr color="#cc9999"> <h3>记录更改成功！</h3> <p><a href="https://www.jb51.net/index.asp">返回首页</a> </center> </body> </html>
6)、删除数据页面：Detele.asp。
a)、使用Request对象获取要删除的员工姓名；
b)、创建三个对象（连接对象、记录集对象和指令对象）和一个参数，通过参数指定的值删除记录；
c)、给出删除成功提示框。
<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="Delete from 员工基本情况表 where 员工姓名=? " '创建一个Parameter对象 set PrmName=cmd.CreateParameter("员工姓名",adVarChar,adParamInput,10) '将parameter对象添加到Parameters集合中。 cmd.Parameters.Append prmName '使用表单值设置参数值 PrmName.Value=Name '执行Delete删除命令 cmd.Execute %> <p><p><p> <hr color="#cc9999"> <center><h3>记录删除成功！</h3> <p><a href="https://www.jb51.net/index.asp">返回主页</a> </center> </body> </html>
7)、检索员工资料页面 ：shousho.asp。
a)、使用一个列表框用以提交检索的条件；
b)、创建三个对象（连接对象、记录集对象和指令对象）和一个参数，使用 Parameter 对象的 Value 属性将表单提交的值赋给参数；
c)、使用for 循环语句将检索出的记录集中的每一条记录都通过表格显示出来。