请教：ado问题...

Question

我以前的一个例子，@retval 是输出参数，希望对你有帮助：Dim oConn
Dim oCmd
Dim oParam1
Dim oParam2
Dim oParam3
Dim oParamSet oConn = OpenConnectionForRead()
Set oCmd = Server.CreateObject("ADODB.Command")
oCmd.CommandText = "sp_mergeurl"
oCmd.CommandType = adCmdStoredProc
Set oCmd.ActiveConnection = oConn
'oCmd.Parameters.Refresh
'For Each oParam in oCmd.Parameters
' pl "Param - " & oParam.Name
'Next
Set oParam = oCmd.CreateParameter("RETURN_VALUE", adInteger, adParamReturnValue, , vbNull)
oCmd.Parameters.Append oParam
Set oParam1 = oCmd.CreateParameter("@url1", adVarWChar, adParamInput, 255, "url1")
oCmd.Parameters.Append oParam1
Set oParam2 = oCmd.CreateParameter("@url2", adVarWChar, adParamInput, 255, "url2")
oCmd.Parameters.Append oParam2
Set oParam3 = oCmd.CreateParameter("@retval", adVarWChar, adParamOutput, 255)
oCmd.Parameters.Append oParam3
oCmd.Execute
pl "Result = " & oParam3.Value
pl "Return value = " & oParam.Value