”弱水三千“请进来。还是包的调用问题。急急急。。。。。。。。。。。。。

我找了个环境，测试了一下，可以的。
我看你还是缺乏耐心，其实好好想一想原因应当可以解决的。
这是我的代码。如果还有问题，请消息给我
<% 
 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
%>