一个存储过程，关于blob

　　好坏给点意见，谢了
　　
　　
　　代码:--------------------------------------------------------------------------------
　　create or replace procedure ps_cmpimage(
　　 p_srtid in cmpimage.cimg_srtid%type,
　　 p_id in cmpimage.cimg_id%type,
　　 p_filename in varchar2,
　　 p_title in cmpimage.cimg_title%type,
　　 p_flag in number,
　　 p_rowid in rowid)
　　 is
　　 image BLOB;
　　 sourcefile BFILE;
　　 cursor cur_cmpimage is
　　 select a.cimg_count,a.cimg_idate from cmpimage a
　　 where a.rowid=p_rowid;
　　 rowimage cur_cmpimage%rowtype;
　　BEGIN
　　 if p_flag=0 then
　　 INSERT INTO cmpimage (cimg_srtid,cimg_id,cimg_image,cimg_title)
　　 VALUES (p_srtid,p_id,EMPTY_BLOB,p_title)
　　 RETURNING cimg_image INTO image;
　　 sourcefile := BFILENAME('PHOTO_DIR',p_filename);
　　 DBMS_LOB.OPEN(sourcefile, DBMS_LOB.LOB_READONLY);
　　 DBMS_LOB.LOADFROMFILE(image,sourcefile,DBMS_LOB.GETLENGTH(sourcefile));
　　 else
　　 if p_filename is null then
　　 update cmpimage a
　　 set a.cimg_srtid=p_srtid,a.cimg_id=p_id,a.cimg_title=p_title
　　 where a.rowid=p_rowid;
　　 else
　　 update cmpimage a
　　 set a.cimg_srtid=p_srtid,a.cimg_id=p_id,a.cimg_title=p_title
　　 where a.rowid=p_rowid;
　　 select a.cimg_image into image from cmpimage a
　　 where a.rowid=p_rowid
　　 for update;
　　 sourcefile := BFILENAME('PHOTO_DIR',p_filename);
　　 DBMS_LOB.OPEN(sourcefile, DBMS_LOB.LOB_READONLY);
　　 DBMS_LOB.LOADFROMFILE(image,sourcefile,DBMS_LOB.GETLENGTH(sourcefile));
　　 end if;
　　 end if;
　　 commit;
　　end ps_cmpimage;--------------------------------------------------------------------------------
　　
　　
　　相关：
　　-- Create Directory
　　create or replace directory PHOTO_DIR
　　as 'C:\WINNT\TEMP\';
　　--grant
　　grant create any directory to 用户