ASP调用代码:
<% '连接数据库
set OraSession=CreateObject("OracleInProcServer.XOraSession")
set OraDatabase=OraSession.DbOpenDatabase("mydb","bookshop/1234",0)
        OraDatabase.Parameters.Add "num1",10,1
OraDatabase.Parameters("num1").ServerType=2
OraDatabase.Parameters.Add "num2",10,1
OraDatabase.Parameters("num2").ServerType=2
OraDatabase.Parameters.Add "result",0,2
OraDatabase.Parameters("result").ServerType=2
        OraDatabase.DbExecuteSQL("Begin :result:=ADD1(:num1,:num2);end;")
        response.Write(OraDatabase.Parameters("result").value)
%>1、Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=timecard;Data Source=bosweb;Extended Properties=""2、Provider=MSDAORA;Password=timecard;User ID=timecard;Data Source=bosweb3、dsn=bosweb;uid=zdwy;pwd=zdwy4、"Driver={Oracle ODBC Driver};" & _
           "Dbq=myDBName;" & _
           "Uid=myUsername;" & _
           "Pwd=myPassword"更多连接参考:http://www.able-consulting.com/ADO_Conn.htm