本文用到没有用到adodb.command命令，只是简单的做了一个用adodb.recordset来执行存储过程。

　　存储过程：
　　'在SQL中建立dbo.tse存储过程

　　CREATE PROCEDURE [dbo].[tse]
　　@keyword varchar(20)=null,  '定义查询的关键字
　　@choose int=null                    '定义查询的类型（1为查询列title,其他为content）
　　as
　　if @choose=1
　　select * from web where title like @keyword + '%'
　　else
　　select * from web where content like @keyword + '%'
　　return
　　GO

　　 

　　'list.asp页
　　<!--#include file="conn.inc" -->
　　<%
　　dim rs
　　dim sql
　　dim keyword
　　dim choose
　　keyword=request(“keyword“) '接收页面传送的值
　　choose=request(“choose“)
　　set rs=server.createobject("adodb.recordset")
　　sql="exec tse '"&keyword&"',"&choose&""     '用exec执行tse存储过程，把keyword，choose给存储过程传递参数
　　rs.open sql,conn,1,1
　　if rs.eof and rs.bof then
　　response.write("没有任何记录！")
　　response.end
　　end if
　　response.write"搜索到的记录如下:<br><br>"
　　do until rs.eof 
　　response.write""&rs("id")&":"&rs("title")&""   '打印出文章的ID和标题
　　response.write"<br><br>"
　　rs.movenext
　　loop
　　'打扫战场
　　rs.close
　　conn.close
　　set rs=nothing           
　　set conn = nothing   
　　%>