当前位置：首页 > 资讯 > 技术文档

ASP基础知识Command对象讲解

时间：2021-06-02 00:40 编辑：来源：阅读：
扫一扫，手机访问

摘要：ASP基础知识Command对象讲解

Coonamd 对象定义了将对数据源执行的命令，可以用于查询数据库表并返回一个记录集，也可以用于对数据库表进行添加、更改和删除操作。 [b]一、使用Command 对象的步骤： [/b]当在 ASP 页面中使用 Command 对象处理数据时，应首先设置命令类型、命令文本以及相关的活动数据库连接等，并通过 Parameter 对象传递命令参数，然后通过调用 Execute 方法来执行 SQL 语句或调用存储过程，以完成数据库记录的检索、添加、更改和删除任务。其步骤如下： 1、使用 ActiveCommand 属性设置相关的数据库连接； 2、使用 CommandType 属性设置命令类型； 3、使用 CommandText 属性定义命令（例如SQL语句）的可执行文本； 4、使用 CommandTimeout 属性设置命令超时时间； 5、使用 Execute 方法执行命令。 [b]二、Command 对象的属性：[/b] [img]http://img.1sucai.cn/uploads/article/2018010709/20180107090134_0_71409.jpg[/img] [b]三、Command 对象的方法－－－－Execute [/b]该方法执行在 CommandText 属性中指定的查询。语法格式分为以下两种形式。 1、对于按行返回的 Command ： Set recordset=command.Execute(RecordsAffected,Parameters,Options) 2、对于不按行返回的 Command ： command.Execute RecordsAffected,Parameters,Options 　　其中参数 RecordsAffected 为提供程序返回操作所影响的记录数录。Rarameters 为使用 SQL 语句传送的参数值。Options 指示提供程序如何对 Command 对象的 CommandText 属性赋值。 [b]四、使用 Parameters 集合 [/b]Command 对象具有由 Parameter 对象组成的 Parameters 集合，Parameter 对象代表与基于参数化查询或存储过程的 Command 对象相关联的参数或自变量。通过创建 Parameter 对象并添加到 Parameter 集合中，可以向参数化查询传递所需要的数据。使用 Parameter 集合的步骤如表下：使用Parameter 集合的步骤 [img]http://img.1sucai.cn/uploads/article/2018010709/20180107090134_1_35827.jpg[/img] [b]五、Command 对象的应用实例 [/b]1、这是一个简单的员工基本情况管理系统，其功能有：1）、添加员工资料；2）、更改员工资料；3）、删除员工资料，检索员工资料。它包含着七个页面和一个数据库。分别为： 1）、主页面：index.asp 2）、添加数据页面：add.htm 3）、保存添加数据页面：add.asp 4）、更改数据页面：Update.asp 5）、保存更改数据页面：Update1.asp 6）、删除记录页面：Detele.asp 7）、检索员工资料页面：shousho.asp 8）、数据库：RSGL.mdb.用到该数据库中的”员工基本情况表“。 2、各页面的代码如下： [b]1)、主页面：index.asp。[/b]该页面的功能有： a）、创建两个对象，Connectiion对象和Recordset对象，其目的是连接数据库和返回一个记录集； b）、创建一个表格，使do while循环语句将各条记录在表格中显示出来； c）、创建三个超连接，一个用以连接添加数据页面，另一个通过指定的员工姓名连接到更改数据页面，还有一个通过指定的员工姓名连接到删除页面。

<% @ Language="VBScript" %>
<html>
<head><title>员工基本情况管理系统</title></head>
<body background="../../../images/bj1.jpg">
<%
'****************创建两个对象（连接对象、记录集对象）*********************
dim cnn,rst
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="select * from 员工基本情况表"
'rst.Open sSQL,cnn,1,1
set rst=cnn.Execute(sSQL,,adCmdText)
%>
<!--************创建一个表格，用以显示数据库中的各条记录***********-->
<table align="center" border="1">
<caption><h3>教职员工基本信息表</h3></caption>
<tr colspan="5"><td><a href="shousho.asp">查询记录</a>||<a href="add.htm">添加记录</a></td></tr>
<!--显示各字段名-->
<tr><td align="center">员工姓名</td><td align="center">所在部门</td><td align="center">家庭住址</td><td align="center">家庭电话</td><td align="center">Email</td><td align="center">状态</td>
<%
'使用do while循环语句将各条记录显示出来。
do while Not rst.eof
t1=rst("员工姓名")
t2=rst("所在部门")
t3=rst("家庭住址")
t4=rst("家庭电话")
t5=rst("Email")
tt="<tr align='center'><td>" & t1 & "</td><td>" &t2& "</td><td>" &t3& "</td><td>" &t4& "</td><td>" &t5& "</td><td>"
tt=tt & "<a href=Update.asp?id=" & t1 & ">修改</a><a href=Delete.asp?id=" & t1 & ">||删除</a></td></tr>"
response.write tt
rst.MoveNext
loop
cnn.Close
Set cnn=Nothing
%>
</table>
</body>
</html>

[b]2)、添加数据页面：add.htm 。[/b] 本页面由一个表单组成，其功能是向保存添加数据页面（add.asp）提交数据。

<html>
<head><title>添加记录</title></head>
<body background="../../../images/bj1.jpg">
<div align="center">
<form name="form1" method="post" action="add.asp">
<table align="center" border="1">
<tr><td colspan="2" align="center">员工基本情况表</td></tr>
<tr><td align="right">员工姓名：</td>
<td><input type="text" name="txtName"></td></tr>
<tr><td align="right">所在部门：</td>
<td><input type="text" name="txtDepartment"></td></tr>
<tr><td align="right">家庭住址：</td>
<td><input type="text" name="txtAddr"></td></tr>
<tr><td align="right">家庭电话：</td>
<td><input type="text" name="txtTel"></td></tr>
<tr><td align="right">Email：</td>
<td><input type="text" name="txtemail"></td></tr>
<tr><td align="center"><input type="submit" value="提交"></td>
<td align="center"><input type="reset" value="全部重写"></td></tr>
</table>
</form>
</div>
</body>
</html>

[b]3)、保存添加数据页面：add.asp。[/b] 该页面的功能有： 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 align="center" border="1">
<tr><td colspan="2" align="center">员工基本情况表</td></tr>
<tr><td align="right" width="130">员工姓名：</td>
<td width="200"><%=prmName.Value %></td></tr>
<tr><td align="right">所在部门：</td>
<td><%=prmDepartment.Value %></td></tr>
<tr><td align="right">家庭住址：</td>
<td><%=prmAddr.Value %></td></tr>
<tr><td align="right">家庭电话：</td>
<td><%=prmTel.Value %></td></tr>
<tr><td align="right">Email：</td>
<td><%=prmEmail.Value %></td></tr>
</table>
<center><p><p><p>
<hr width="505" color="#cc9999">
 <p><p><h3>记录添加成功！</h3>
<p><a href="add.htm">返回记录添加表单</a>||<a href="index.asp">返回主页</a>
</center>
</body>
</html>

[b]4)、更改数据页面：Update.asp。[/b]该页面的功能有： a）、创建两个对象，Connectiion对象和Recordset对象，其目的是连接数据库和返回一个记录集； b）、创建一个表单，其目的是提交更改过的数据。

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 align="center">
<!--*****************创建一个表单****************************************-->
<form name="form1" method="post" action="Update1.asp">
<table align="center" border="1">
<tr><td colspan="2" align="center">员工基本情况表</td></tr>
<tr><td align="right">员工姓名：</td>
<td><input type="text" name="txtName" value=<%=rst("员工姓名")%> readonly></td></tr>
<tr><td align="right">所在部门：</td>
<td><input type="text" name="txtDepartment" value=<%=rst("所在部门")%>></td></tr>
<tr><td align="right">家庭住址：</td>
<td><input type="text" name="txtAddr" value=<%=rst("家庭住址")%>></td></tr>
<tr><td align="right">家庭电话：</td>
<td><input type="text" name="txtTel" value=<%=rst("家庭电话")%>></td></tr>
<tr><td align="right">Email：</td>
<td><input type="text" name="txtemail" value=<%=rst("Email")%>></td></tr>
<tr><td align="center"><input type="submit" value="提交"></td>
<td align="center"><input type="reset" value="全部重写"></td></tr>
</table>
</form>
</div>
</body>
</html>

[b]5)、保存更改数据页面：Update2.asp。 [/b] 该页面的功能有： 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 align="center" border="1">
<tr><td colspan="2" align="center">员工基本情况表</td></tr>
<tr><td align="right" width="130" align="center">员工姓名：</td>
<td width="200"><%=Name %></td></tr>
<tr><td align="right">所在部门：</td>
<td><%=Department %></td></tr>
<tr><td align="right">家庭住址：</td>
<td><%=Addr %></td></tr>
<tr><td align="right">家庭电话：</td>
<td><%=Tel %></td></tr>
<tr><td align="right">Email：</td>
<td><%=Email %></td></tr>
</table>
<center>
<p><hr width="505" color="#cc9999">
<h3>记录更改成功！</h3>
<p><a href="index.asp">返回首页</a>
</center>
</body>
</html>

[b]6)、删除数据页面：Detele.asp。[/b] 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 width="505" color="#cc9999">
<center><h3>记录删除成功！</h3>
<p><a href="index.asp">返回主页</a>
</center>
</body>
</html>

[b]7)、检索员工资料页面：shousho.asp。[/b] a)、使用一个列表框用以提交检索的条件； b)、创建三个对象（连接对象、记录集对象和指令对象）和一个参数，使用 Parameter 对象的 Value 属性将表单提交的值赋给参数； c)、使用for 循环语句将检索出的记录集中的每一条记录都通过表格显示出来。

<% @ Language="VBScript" %>
<html>
<head>
<title>使用参数化检索记录</title>
</head background="../../../images/bj1.jpg>
<body background="../../../images/bj1.jpg">
<!--*************开始创建表单*****************-->
<div align="center">
<p>查询各部门员工的基本情况
<form name="form1" method="post" action="Shousho.asp">
选择部门:
<select size="1" name="department">
<option selected value="all">全部记录</option>
<option value="教务处">教务处</option>
<option value="英语教研室">英语教研室</option>
<option value="语文教研室">语文教研室</option>
<option value="数学教研室">数学教研室</option>
<option value="财务处">财务处</option>
</select>
<input type="submit" value="提交">||<a href="index.asp">返回主页</a>
</form>
<!-- #include virtual ="/adovbs.inc" -->
<%
'****************创建三个对象（连接对象、记录集对象和指令对象）和一个参数*********************
dim cnn,rst,cmd,i
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
'创建一个Parameter对象
set PrmDepartment=cmd.CreateParameter("所在部门",adVarChar,adParamInput,10)
'将Parameter对象添加到Prmameters集合中
cmd.Parameters.Append prmDepartment
'将用户提交的所在部门名称作为parameter对象的值
prmDepartment.Value=Request.Form("department")
'指定传送给数据提供者的命令文本是一条SQL语言。
cmd.CommandType=adCmdText
'设置ActiveConnection属性，使Command对象与打开的连接相关联
set cmd.ActiveConnection=cnn
'******如果没有提交所在部门名称，或选择所有部门,则显示所有记录，否则按参数进行查询。****************
if PrmDepartment.Value="" or Request.Form("department")="all" then
cmd.CommandText="select * from 员工基本情况表"
Else
'便用参数化查询语句作为命令文本
cmd.CommandText="select * from 员工基本情况表 where 所在部门=?"
end if
'向服务器发送SQL语句并返回一个记录集
Set rst=cmd.Execute
'-----------如果记录集不存在，则显示一条提示信息，否则，列出符合条件的记录。----------
if rst.EOF then
%>
<p><b>没有找到符合条件的记录！</b></p>
<% else %>
<table border="1">
<tr>
<!--用for 循环语句列出字段名。-->
<% for i=0 to rst.Fields.Count-1 %>
<th><%=rst(i).Name %></th>
<% next %>
<!--用while条件语句列出每条记录-->
<% while not rst.eof %>
<tr>
<%
'用for循环语句列出某条记录的各字段的值。
for i=0 to rst.Fields.Count-1
'如果字段值为空，则显示一个空格
if IsNull(rst(i)) then
%>
<td> </td>
<% else %>
<td nowrap><% =rst(i) %></td>
<% end if %>
<% next %>
</tr>
<%
rst.MoveNext
wend
%>
</table>
<% end if %>
</div>
</body>
</html>

以上就是关于ASP基础知识Command对象的入门教程，希望对大家的学习有所帮助，多多交流探讨。

全部评论(0)

上一篇：一个颜色轮换的简单例子
下一篇：IIS+PHP+MySQL+Zend配置 (视频教程)

资讯排行榜
更多>>