关于ASP调用存储过程

[dingzq]

我建立了一个存储过程：
ALTER PROCEDURE Pro_del(@cur int)
AS
BEGIN
DECLARE @LEVEL int
SET @LEVEL = 1
SELECT @cur AS ID,@LEVEL AS LEVEL INTO #T

WHILE EXISTS(SELECT 1 FROM list a,#T b
WHERE a.type_fu = b.ID AND b.LEVEL = @LEVEL)
BEGIN

INSERT INTO
#T
SELECT
a.ID,
@LEVEL + 1
FROM
list a,#T b
WHERE
a.type_fu = b.ID and b.LEVEL = @LEVEL

SET @LEVEL = @LEVEL + 1

END

select * FROM list WHERE ID IN(SELECT ID FROM #T)

END


ASP调用如下：
Set Cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection=conn
cmd.CommandType = 4
cmd.CommandText = "Pro_del"
Set param = cmd.CreateParameter("@cur",adInteger,adParamInput,,2)
cmd.parameters.Append param
Set rs = cmd.execute
do while not rs.eof
response.write "+++<BR>"
loop

提示：
ADODB.Command 错误 '800a0bb9'

参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。

/program/product/shop_mng.asp，行 168

[中洲少年]

我还不会.

[dingzq]

我……晕

[无爱大叔]

Set param = cmd.CreateParameter("@cur",adInteger,adParamInput,,2)
==>
Set param = cmd.CreateParameter("@cur",adInteger,adParamInput,4,2)
试一下

[itzhiren]

168行是哪一个？

[zftow110]

168是哪行撒？？？？？

[kingcrab]

你有没有包含定义ado常量的文件adovbs.inc?