在VBScript中使用输出参数调用SQL存储过程

Question

我已经编写了一个VBScript函数来调用存储过程。过去，我编写了许多函数，这些函数使用输入参数调用存储过程，但是在这种情况下，我需要使用Output参数。

在另一个应用程序中，我使用实体框架调用完全相同的存储过程，因此该存储过程很好。

这是我的代码：

Function checkAccess(userid,link)
    isAllowed = false

    set cmd = Server.CreateObject("ADODB.Command")
    cmd.CommandText = "Check_Permission"
    cmd.ActiveConnection = Conn
    cmd.NamedParameters = true
    cmd.CommandType = adCmdStoredProc
    cmd.Parameters.Append(cmd.CreateParameter("@Login", adVarChar,

adParamInput, 50, userId))
cmd.Parameters.Append(cmd.CreateParameter(“@LinkId”, adInteger,
adParamInput, 50, link))
cmd.Parameters.Append(cmd.CreateParameter(“@IsAllowed”, adBoolean,
adParamOutput, 10, isAllowed))

    checkAccess = isAllowed
End Function

此函数始终返回false。我该如何运作？

Answer 1

您应该返回输出参数的值：

checkAccess = cmd.Parameters("@IsAllowed").Value

另外，ADO中的输出参数不需要初始值，而adBoolean参数不需要大小，因此您可以将最后一个参数更改为：

cmd.Parameters.Append(cmd.CreateParameter("@IsAllowed", adBoolean, adParamOutput))

您也可以摆脱isAllowed变量，因为它不再需要。