存储处过程的混蛋问题！
我想查询title字段种含有字符传2002的信息列表，
为什么没有办法显示啊！程序也没报错啊！
create procedure SearchTitle
@title as varchar(20)
as
select * from table where title like char(39)+'%'+@title+'%'+Char(39) order by id Desc
<%@ Language=VBScript %>
<%
set Conn=Server.CreateObject("ADODB.Connection")
connstr="driver=SQL Server; server=gdmm; uid=sa; pwd=gdmmdatabase=gdmm;"
conn.Open connstr
if err<>0 then
Response.Write "无法建立到数据库的连接！"
end if
%>
<%title="2002"%>
<%
Dim Rstmp
Dim RS
Dim adRstmpStoredProc
Dim adParamReturnValue
Dim adParaminput
Dim adParamOutput
Dim adInteger
Dim iVal
Dim oVal
Dim adoField
Dim adVarChar
'这些值在 VB 中是预定义常量，可以直接调用，但在 VBScript 中没有预定义
adRstmpStoredProc=4
adParamReturnValue=4
adParaminput=1
adParamOutput=2
adInteger=3
adVarChar=200
iVal=5
oVal=3
'建一个command对象
set Rstmp=Server.CreateObject("ADODB.Command")
'建立连结
Rstmp.ActiveConnection=Conn
'定义command 对象调用名称
Rstmp.CommandText="SearchTitle"
'设置command调用类型是存储过程 (adRstmpStoredProc=4)
Rstmp.CommandType=adRstmpStoredProc
'往command 对象中加参数
'定义存储过程有直接返回值，并且是个整数，省缺值是4
Rstmp.Parameters.Append Rstmp.CreateParameter("@title",adVarChar,adParaminput,20,title)
'定义一个字符型输入参数
%>
<%
'运行存储过程，并得到返回记录集
Set RS=Rstmp.Execute
if rs.eof then response.write "无结果"
'把每个记录打印出来，其中的字段是虚拟的，可以不用管
While Not RS.EOF
Response.Write "@title="&Rstmp.Parameters("@title").Value&"<br>"
RS.MoveNext
Wend%>
<%'大扫除
Set RS=nothing
Set Rstmp.ActiveConnection=nothing
Set Rstmp=nothing
%>
问题点数：0、回复次数：1Top
1 楼CrazyFor（冬眠的鼹鼠）回复于 2002-12-03 12:56:30 得分 0
存储过程改成
create procedure SearchTitle
@title as varchar(20)
as
set nocount on
........Top
