Oracle中三种上载文件技术

4．提供上载文件浏览页面

第3步提交的文件自动上载到文档表中，下面由存储过程WRITE_INFOS来记录上载的文件信息，实际上完全没必要，但这里做一比较。

CREATE OR REPLACE PROCEDURE "ZYFILEUP"."WRITE_INFOS" (
filetitle in varchar2,
up_file in owa.vc_arr,
filesort in varchar2,
author in varchar2,
abstract in varchar2,
localsort in varchar2
) is
i number:=1;
begin
htp.htmlopen;
htp.headopen;
htp.title('File Uploaded');
htp.headclose;
htp.bodyopen;
htp.header(1, 'Upload Status');
while true loop
begin
htp.prn('Uploaded '|| up_file(i) ||' successfully !');
htp.prn('＜br＞');
htp.prn('＜a href="/pls/upfile/downfile?upfilename=');
htp.prn(utl_url.escape(up_file(i),true,'GBK'));
htp.prn('" target="_blank"＞Open this file !＜/a＞');
htp.prn('＜br＞');
INSERT INTO "ZYFILEUP"."FILE_TABLE"
values(filetitle,up_file(i),filesort,author,sysdate(),abstract,localsort);
commit;
i:=i+1;
exception
when no_data_found then exit;
end;
end loop;
htp.line;
htp.print('Uploaded successfully !');
htp.bodyclose;
htp.htmlclose;
end;

查阅文档表后会发现，文件已经上载了，但文档表的上载时间有错误，与上载记录中的系统时间不符，这可能是该功能的一个BUG，如果谁有解决此问题的办法或软件补丁，请告诉我。