高手很容易解决的问题，asp调用存储过程，代码很短的。解决立码给100分

先把存储过程调试通过，然后再调试asp里面调用它。
参考：
<%    
 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  
%>