ASP เรียก ORACLE Stored Procedure และส่งกลับชุดผลลัพธ์
ฉันได้เห็นวิธีการมากมายบนอินเทอร์เน็ตเพื่อให้ ASP เรียกใช้ ORACLE แต่ไม่มีอะไรที่ตรงมากนัก ดังนั้นฉันจึงสรุปสิ่งต่าง ๆ ของแต่ละบริษัท และในที่สุดก็เกิดวิธีการที่ฉัน จำเป็น รู้สึกว่ามันฮิตกว่า เลยมีวิธีการปล่อย
############################## ################ ##
ขั้นตอนการจัดเก็บของ Oracle
############################################### #
- - สร้างส่วนหัว
สร้างหรือแทนที่แพ็คเกจ pck_as
เช่น
พิมพ์ t_product_id เป็นสารบัญตัวเลข
ดัชนีโดย binary_integer;
พิมพ์ t_serial_no คือตารางของ varchar(300)
ดัชนีโดย binary_integer;
พิมพ์ t_buy_date เป็นตารางวันที่
ดัชนีโดย binary_integer;
ขั้นตอน allsfc
-
product_id ออก t_product_id,
serial_no ออก t_serial_no,
buy_date ออก t_buy_date
-
--ขั้นตอน allsfc1;
จบ pck_as;
--สร้างเนื้อหาแพ็คเกจ
สร้างหรือแทนที่เนื้อหาของแพ็คเกจ pck_as
เช่น
ขั้นตอน allsfc
-
product_id ออก t_product_id,
serial_no ออก t_serial_no,
buy_date ออก t_buy_date
-
เป็น
เคอร์เซอร์ cur_sfc_tbl_product_reg คือ
เลือก product_id,serial_no,buy_date จาก sfc_tbl_product_reg;
ฉันหมายเลขเริ่มต้น 1;
เริ่ม
สำหรับ onrecord ใน cur_sfc_tbl_product_reg
วนซ้ำ
product_id(i) := onrecord.product_id;
serial_no(i) := onrecord.serial_no;
buy_date(i) := onrecord.buy_date;
ฉัน := ฉัน + 1;
วงท้าย;
จบ;
จบ;
################################################ #
โทร ASP
################################################ #
<html>
<หัว>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>เอกสารที่ไม่มีชื่อ</title>
</หัว>
<ร่างกาย>
-
str_ora สลัว
objconn_ora สลัว
str_ora = "ไดรเวอร์={Microsoft ODBC สำหรับ Oracle};Server=ora192;uid=dwuser;pwd=family.samsung.com.cn"
ตั้ง objconn_ora = server.CreateObject("adodb.connection")
objconn_ora.connectionstring = str_ora
objconn_ora.CursorLocation = 3
objconn_ora.open
strsql สลัว
ตั้ง rs1 = server.CreateObject("ADODB.RecordSet")
strsql = "{โทร pck_as.allsfc({resultset 90000, product_id, serial_no, buy_date})}"
ตั้ง objcomm1 = server.CreateObject("adodb.command")
objcomm1.activeconnection = objconn_ora
objcomm1.commandtype = 1
objcomm1.commandtext = strsql
ตั้งค่า rs1 = objcomm1.execute
ในขณะที่ไม่ใช่ rs1.eof
การตอบสนองเขียน (rs1(0) & "|" & rs1(1) & "|" & rs1(2) & "|<BR>")
rs1.movenenext
เวน
-
</ร่างกาย>
</html>