ASP基础知识Command对象讲解
《PHP实战:ASP基础知识Command对象讲解》要点: PHP编程Coonamd 对象定义了将对数据源执行的命令,可以用于查询数据库表并返回一个记录集,也可以用于对数据库表进行添加、更改和删除操作. PHP编程 PHP编程三、Command 对象的办法----Execute PHP编程 PHP编程五、Command 对象的应用实例 PHP编程
<% @ 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>
PHP编程2)、添加数据页面:add.htm . PHP编程本页面由一个表单组成,其功能是向保存添加数据页面(add.asp)提交数据. PHP编程
<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>
PHP编程3)、保存添加数据页面:add.asp. PHP编程该页面的功能有: PHP编程a)、使用Request对象获取从add.htm页面提交的值; PHP编程b)、创建三个对象(连接对象、记录集对象和指令对象)和五个参数,通过调用参数执行INSERT插入命令. PHP编程
<% @ 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("所在部门",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
%>
<!--用表格显示记录.-->
<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>
PHP编程 PHP编程a)、创建两个对象,其目的是连接数据库和返回一个记录集; PHP编程b)、创建一个表单,其目的是提交更改过的数据. PHP编程
cnn.ConnectionString="PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=" & server.MapPath("../rsgl.mdb")
cnn.Open
sSQL="select * from 员工基本情况表 where 员工姓名='" & a & "'"
'rst.Open 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>
PHP编程5)、保存更改数据页面:Update2.asp. PHP编程该页面的功能有: PHP编程a)、使用Request对象获取从Update.asp页面提交的值; PHP编程b)、创建二个对象(连接对象、记录集对象); PHP编程c)、通过表格显示更改后的记录. PHP编程
<% @ 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,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
%>
<!--**************************用表格显示记录.**********************-->
<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>
PHP编程 PHP编程a)、使用Request对象获取要删除的员工姓名; PHP编程b)、创建三个对象(连接对象、记录集对象和指令对象)和一个参数,通过参数指定的值删除记录; PHP编程c)、给出删除成功提示框. PHP编程
<title>更改记录</title>
</head>
<body background="../../../images/bj1.jpg">
<!-- #include virtual ="/adovbs.inc" -->
<%
'****************创建三个对象(连接对象、记录集对象和指令对象)和一个参数*********************
dim cnn,使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
%>
?<p><p><p>
<hr width="505" color="#cc9999">
<center><h3>记录删除成功!</h3>
<p><a href="index.asp">返回主页</a>
</center>
</body>
</html>
PHP编程 PHP编程a)、使用一个列表框用以提交检索的条件; PHP编程b)、创建三个对象(连接对象、记录集对象和指令对象)和一个参数,使用 Parameter 对象的 Value 属性将表单提交的值赋给参数; PHP编程c)、使用for 循环语句将检索出的记录集中的每一条记录都通过表格显示出来. PHP编程
<% @ 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,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("所在部门",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>
PHP编程以上就是关于ASP基础知识Command对象的入门教程,希望对大家的学习有所赞助,多多交流探讨. 欢迎参与《PHP实战:ASP基础知识Command对象讲解》讨论,分享您的想法,编程之家 52php.cn为您提供专业教程。 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |