我已经编写了一个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
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。我该如何运作?
您应该返回输出参数的值:
checkAccess = cmd.Parameters("@IsAllowed").Value
另外,ADO中的输出参数不需要初始值,而adBoolean参数不需要大小,因此您可以将最后一个参数更改为:
cmd.Parameters.Append(cmd.CreateParameter("@IsAllowed", adBoolean, adParamOutput))
您也可以摆脱isAllowed变量,因为它不再需要。