Sunday, November 26, 2006
Simple upload file program
This is simple program for uploading files from your computer into Oracle database.
You can call uppload procedure like:
http://your_web_server_where _you_configure_dad:port/xyz_test/!documentupload
procedure documentupload (
name_array in owa.vc_arr,
value_array in owa.vc_arr)
is
pdatoteka Documents.name%type;
FUNCTION namedParam(
p_searchVal in varchar2,
p_name_array in owa.vc_arr,
p_value_array in owa.vc_arr
) RETURN varchar2 IS
i integer;
BEGIN
FOR i IN 1..nvl(p_name_array.count,0) LOOP
if p_name_array(i)=p_searchVal then
return p_value_array(i);
end if;
END LOOP;
return null;
END;
begin
pdatoteka := namedParam('pdatoteka',name_array,value_array);
htp.p('
<html>
<HEAD>
<META HTTP-EQUIV="Content-Type" NAME="" CONTENT="text/html;CHARSET=WINDOWS-1250">
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Expires" CONTENT="-1">
<title>Upload</title>
</HEAD>
<body>
<TABLE width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFF99" summary="">
<tr><td><font size="5">Upload</font></TD></TR>
</TABLE>');
if pdatoteka is not null then
htp.p('
<BR> File "'substr(pdatoteka, instr(pdatoteka,'/',-1,1)+1
)'" is uploaded. <BR>');
else
htp.p('
<FORM enctype="multipart/form-data" action="!upload" method="POST">
<p>File:<INPUT type="file" name="pdatoteka"></p>
<p><INPUT type="submit" class=submit value="Submit" ></p>
</FORM>
<BR>');
end if;
htp.p('
</body>
</html>');
exception when others then
htp.p('
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=WINDOWS-1250">
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Expires" CONTENT="-1">
<TITLE>Message</TITLE>
</HEAD>
<BODY bgcolor="#C0C0C0">');
htp.p('
<table>
<tr><td><FONT COLOR="red" size="4">Error: </FONT></td>
<td>'replace(sqlerrm,'','<BR>')'</td>
</tr>
</table>
<BR>
<INPUT TYPE="button" VALUE="Back" class=submit onClick="javascript:history.go(-1)">
</BODY>
</HTML>');
end;
You can call uppload procedure like:
http://your_web_server_where _you_configure_dad:port/xyz_test/!documentupload
# posted by Domen Dolar @ 12:05 AM 
