ASP appelle la procédure stockée ORACLE et renvoie le jeu de résultats.
J'ai vu de nombreuses méthodes sur Internet permettant à ASP d'appeler ORACLE, mais il n'y a rien de très direct, j'ai donc résumé les choses de chaque entreprise et j'ai finalement trouvé une méthode que j'ai trouvée. J'ai l'impression que c'est plus populaire, alors voici la méthode
##############################
.################ ##
procédure stockée Oracle
############################################### #
- -Créer un en-tête
créer ou remplacer le package pck_as
comme
tapez t_product_id est une table de nombres
index par binaire_entier ;
tapez t_serial_no est une table de varchar (300)
index par binaire_entier ;
tapez t_buy_date est une table de date
index par binaire_entier ;
procédure allsfc
(
product_id sur t_product_id,
Serial_no sur t_serial_no,
buy_date sortie t_buy_date
);
--procédure allsfc1 ;
terminer pck_as ;
--Créer le corps du package
créer ou remplacer le corps du package pck_as
comme
procédure allsfc
(
product_id sur t_product_id,
Serial_no sur t_serial_no,
buy_date sortie t_buy_date
)
est
le curseur cur_sfc_tbl_product_reg est
sélectionnez product_id,serial_no,buy_date dans sfc_tbl_product_reg ;
je numérote par défaut 1 ;
commencer
pour onrecord dans cur_sfc_tbl_product_reg
boucle
product_id(i) := onrecord.product_id;
numéro_série(i) := onrecord.no_série;
buy_date(i) := onrecord.buy_date;
je := je + 1;
terminer la boucle ;
fin;
fin;
############################################### #
Appel ASP
############################################### #
<html>
<tête>
<méta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Document sans titre</title>
</tête>
<corps>
<%
faible str_ora
faible objconn_ora
str_ora = "Pilote={Microsoft ODBC pour Oracle};Serveur=ora192;uid=dwuser;pwd=family.samsung.com.cn"
set objconn_ora = server.CreateObject("adodb.connection")
objconn_ora.connectionstring = str_ora
objconn_ora.CursorLocation = 3
objconn_ora.open
dim strsql
set rs1 = serveur.CreateObject("ADODB.RecordSet")
strsql = "{call pck_as.allsfc({resultset 90000, product_id, serial_no, buy_date})}"
set objcomm1 = serveur.CreateObject("adodb.command")
objcomm1.activeconnection = objconn_ora
objcomm1.commandtype = 1
objcomm1.commandtext = strsql
définir rs1 = objcomm1.execute
bien que ce ne soit pas rs1.eof
réponse.Write(rs1(0) & "|" & rs1(1) & "|" & rs1(2) & "|<BR>")
rs1.movenext
wend
%>
</corps>
</html>