<a href="https://www.jb51.cc/tag/tianjiajilu/" target="_blank" class="keywords">添加记录</a>
<%
'****************创建三个对象（连接对象、记录集对象和指令对象）和五个参数*********************
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("所在部门",10)
set PrmAddr=cmd.CreateParameter("家庭住址",12)
set PrmTel=cmd.CreateParameter("家庭电话",15)
set PrmEmail=cmd.CreateParameter("Email",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
%>
记录添加成功！
||
4)、更改数据页面：Update.asp。
该页面的功能有：
a）、创建两个对象，Connectiion对象和Recordset对象，其目的是连接数据库和返回一个记录集；
b）、创建一个表单，其目的是提交更改过的数据。
5)、保存更改数据页面：Update2.asp。
该页面的功能有：
a)、使用Request对象获取从Update.asp页面提交的值；
b)、创建二个对象（连接对象、记录集对象）；
c)、通过表格显示更改后的记录。
<%
'*****************从提交表单中提取数值***************************
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"))
%>
更改记录
<%
'****************创建二个对象（连接对象、记录集对象）*********************
dim cnn,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,2
set rst=nothing
%>
记录更改成功！
6)、删除数据页面：Detele.asp。
a)、使用Request对象获取要删除的员工姓名；
b)、创建三个对象（连接对象、记录集对象和指令对象）和一个参数，通过参数指定的值删除记录；
c)、给出删除成功提示框。
更改记录
<%
'****************创建三个对象（连接对象、记录集对象和指令对象）和一个参数*********************
dim cnn,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("员工姓名",10)
'将parameter对象添加到Parameters集合中。
cmd.Parameters.Append prmName
'使用表单值设置参数值
PrmName.Value=Name
'执行Delete删除命令
cmd.Execute
%>
记录删除成功！
