在ASP里如何调用存储过程？请各位指出程序的错误！！

Question

参考：
<%    
 dim  cn,cmd,cmdrc,driver_name,para  
 driver_name="Provider=MSDAORA.1;Password=pass;User  ID=user;Data  Source=afis;Persist  Security  Info=True"  
 set  cn  =  server.CreateObject("adodb.connection")  
 cn.open  driver_name  
 set  cmd=server.CreateObject("adodb.command")  
 set  cmdrc=server.CreateObject("adodb.recordset")  
   
   
 cmd.CommandType  =  1  
 set  para  =  cmd.Parameters  
 '这个地方不要出错，一定要写myrc，不能是别的  
 cmd.CommandText  =  "{call  tinger01.selectbudgettitle(?,{resultset  0,  myrc})}"  
 '这个地方你的也有问题,asp是不认识adInteger,adParamInput的.  
 para.Append  cmd.CreateParameter("p_depart_id",3,1,4,1)  
'以下两句应当可以不要  
         cmdrc.CursorType  =  3  
         cmdrc.LockType  =  3  
'设置连接  
 set  cmd.ActiveConnection  =  cn                  
 set  cmdrc.Source  =  cmd  
cmdrc.Open  
'测试是否成功,我这里返回ok  
if  cmdrc.EOF  then  
 response.Write  "false"  
else  
 response.Write  "ok"  
end  if  
%>

Answer 1

Set cmd.ActiveConnection = Conn
Set Rs = Server.CreateObject("ADODB.Recordset")
cmd.CommandType = 1
cmd.CommandTimeout = 0
cmd.Prepared = true
cmd.CommandText = "{call addInvoiceNo(?,?,?,?)}"cmd.Parameters.Append cmd.CreateParameter("p_invSet_id",3, 1,3,setid)
cmd.Parameters.Append cmd.CreateParameter("p_invType_id",3, 1,3,invoice_type_id)
cmd.Parameters.Append cmd.CreateParameter("p_minno",200, 1,200,minno)
cmd.Parameters.Append cmd.CreateParameter("p_maxno",200, 1,200,maxno)set rs.Source = CMD
   on error resume next
    set rs=CMD.Execute
    
    if err.number <> 0 then
response.Write err.Description 
response.End
    end if

    rs.Open()

Answer 2

以下是asp与oracle数据类型参照表:
//---- DataTypeEnum Values ----
var adEmpty = 0;
var adTinyInt = 16;
var adSmallInt = 2;
var adInteger = 3;
var adBigInt = 20;
var adUnsignedTinyInt = 17;
var adUnsignedSmallInt = 18;
var adUnsignedInt = 19;
var adUnsignedBigInt = 21;
var adSingle = 4;
var adDouble = 5;
var adCurrency = 6;
var adDecimal = 14;
var adNumeric = 131;
var adBoolean = 11;
var adError = 10;
var adUserDefined = 132;
var adVariant = 12;
var adIDispatch = 9;
var adIUnknown = 13;
var adGUID = 72;
var adDate = 7;
var adDBDate = 133;
var adDBTime = 134;
var adDBTimeStamp = 135;
var adBSTR = 8;
var adChar = 129;
var adVarChar = 200;
var adLongVarChar = 201;
var adWChar = 130;
var adVarWChar = 202;
var adLongVarWChar = 203;
var adBinary = 128;
var adVarBinary = 204;
var adLongVarBinary = 205;
var adChapter = 136;
var adFileTime = 64;
var adDBFileTime = 137;
var adPropVariant = 138;
var adVarNumeric = 139;以下是一些输入输出参数:
//---- ParameterDirectionEnum Values ----
var adParamUnknown = 0x0000;
var adParamInput = 0x0001;
var adParamOutput = 0x0002;
var adParamInputOutput = 0x0003;
var adParamReturnValue = 0x0004;以下是一些命令参数对照表
//---- CommandTypeEnum Values ----
var adCmdUnknown = 0x0008;
var adCmdText = 0x0001;
var adCmdTable = 0x0002;
var adCmdStoredProc = 0x0004;
var adCmdFile = 0x0100;
var adCmdTableDirect = 0x0200;

Answer 3

先提前感谢你们的帮助，明天我会到办公室测试一下beckhambobo(beckham)写的程序。