<% @ Language="VBScript" %> <html> <head> <title>使用参数化检索记录</title> </head background="../../../images/bj1.jpg> <body background="../../../images/bj1.jpg"> <!--*************开始创建表单*****************--> <div> <p>查询各部门员工的基本情况 <form method="post" action="Shousho.asp"> 选择部门: <select size="1"> <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="https://www.jb51.net/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> <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对象的入门教程，希望对大家的学习有所帮助，多多交流探讨。
您可能感兴趣的文章: