ASP llama al procedimiento almacenado de ORACLE y devuelve el conjunto de resultados.
He visto muchos métodos en Internet para que ASP llame a ORACLE, pero no hay nada muy directo, así que resumí las cosas de cada empresa y finalmente se me ocurrió un método. Siento que es más popular, así que aquí está el método de lanzamiento
##############################
.################ ##
procedimiento almacenado de Oracle
################################################ #
- -Crear encabezado
crear o reemplazar el paquete pack_as
como
escriba t_product_id es una tabla de números
índice por binario_integer;
escriba t_serial_no es la tabla de varchar(300)
índice por binario_integer;
escriba t_buy_date es la tabla de fechas
índice por binario_integer;
procedimiento allsfc
(
product_id fuera t_product_id,
serial_no fuera t_serial_no,
buy_date fuera t_buy_date
);
--procedimiento allsfc1;
finalizar pack_as;
--Crear cuerpo del paquete
crear o reemplazar el cuerpo del paquete pack_as
como
procedimiento allsfc
(
product_id fuera t_product_id,
serial_no fuera t_serial_no,
buy_date fuera t_buy_date
)
es
cursor cur_sfc_tbl_product_reg es
seleccione product_id,serial_no,buy_date de sfc_tbl_product_reg;
número predeterminado 1;
comenzar
para grabar en cur_sfc_tbl_product_reg
bucle
product_id(i) := onrecord.product_id;
serial_no(i) := onrecord.serial_no;
fecha_compra(i) := onrecord.fecha_compra;
yo := yo + 1;
bucle final;
fin;
fin;
################################################ #
llamada ASP
################################################ #
<html>
<cabeza>
<meta http-equiv="Tipo de contenido" content="text/html; charset=gb2312">
<título>Documento sin título</título>
</cabeza>
<cuerpo>
<%
str_ora tenue
oscuro objconn_ora
str_ora = "Controlador={Microsoft ODBC para Oracle};Servidor=ora192;uid=dwuser;pwd=family.samsung.com.cn"
establecer objconn_ora = server.CreateObject("adodb.connection")
objconn_ora.cadena de conexión = str_ora
objconn_ora.CursorLocation = 3
objconn_ora.open
dim strsql
establecer rs1 = servidor.CreateObject("ADODB.RecordSet")
strsql = "{call pck_as.allsfc({resultset 90000, product_id, serial_no, buy_date})}"
establecer objcomm1 = server.CreateObject("adodb.command")
objcomm1.activeconnection = objconn_ora
objcomm1.tipo de comando = 1
objcomm1.commandtext = strsql
establecer rs1 = objcomm1.execute
mientras no rs1.eof
respuesta.Write(rs1(0) & "|" & rs1(1) & "|" & rs1(2) & "|<BR>")
rs1.movenext
encaminarse a
%>
</cuerpo>
</html>