在經典asp中使用oracle日期參數調用oracle函數

Question

當在asp中將oracle日期授予oracle函數時，在經典ASP中出現錯誤。我的代碼：

dim startDate, endDate 
startDate = rs1.fields("oraDate1") 'field is oracle field. Gets with oracle to_char('30.10.203','dd/mm/yyyy') 
endDate = rs1.fields("oraDate2") 'oraDate2 is like oraDate1 

if IsDate(startDate) Then 
Set cmd = Server.CreateObject("ADODB.Command") 
cmd.ActiveConnection = conn 
cmd.CommandText = "find_business_day" 'oracle function 
cmd.CommandType = 4 
dim date1, date2 
set date1 = cmd.CreateParameter("start_date",135,1) 
cmd.Parameters.Append date1 
date1.value = startDate 
set date2 = cmd.CreateParameter("end_Date", 135, 1) 
cmd.Parameters.Append date2 
date2.value = endDate 
cmd.Execute 

的錯誤是在cmd.Execute線，該錯誤信息是：

Microsoft OLE DB Provider for ODBC Drivers hata '80004005' 

[Microsoft][ODBC driver for Oracle]Invalid parameter type 

我的Oracle功能：

CREATE OR REPLACE FUNCTION find_business_day (my_trh1 date,my_trh2 date) return number is 
my_isgunu number(2); 
begin 
select count(*) into my_isgunu from takvim where tatil=1 and tarih between my_trh1 and my_trh2; 
Return(my_isgunu); 
exception 
When others then return(0); 
end find_business_day; 
/

Answer 1

我解決這個問題，更改oracle函數參數類型。 這裏是我的解決方案：

dim startDate, endDate 
     startDate = rs1.fields("mail_gon_trh") 
     endDate = rs1.fields("olur_trh") 
if IsDate(startDate) 
Set cmd = Server.CreateObject("ADODB.Command") 
cmd.ActiveConnection = conn 
cmd.CommandText = "find_business_day" 
cmd.CommandType = 4 

set returnval = cmd.CreateParameter("my_isgunu",131,4,100) 
cmd.Parameters.Append returnval 

set date1 = cmd.CreateParameter("my_trh1",201,1,100) 
cmd.Parameters.Append date1 
cmd.parameters(1).value = startDate 
set date2 = cmd.CreateParameter("my_trh2", 201, 1,100) 
cmd.Parameters.Append date2 
cmd.parameters(2).value = endDate 
cmd.Execute 
result = cmd.Parameters(0) 
end if 

我的Oracle功能：

CREATE OR REPLACE FUNCTION TUBORTAK.ISGUNU_BUL_TRH2 (my_trh1 varchar,my_trh2 varchar) return number is 
my_isgunu number(3); 
my_trh1_date date; 
my_trh2_date date; 
begin 
my_trh1_date:=to_date(my_trh1,'dd/mm/yyyy'); 
my_trh2_date:=to_date(my_trh2,'dd/mm/yyyy'); 
select count(*) into my_isgunu from takvim where tatil=1 and tarih between my_trh1_date and my_trh2_date; 
Return(my_isgunu); 
exception 
When others then return(0); 
end ISGUNU_BUL_TRH2; 
/