Oracle数据库中基本动态Web开发和应用

Create or replace procedure score_into_webpage (code_in in number)

As

cursor score_cursor is

select code,name,score

from student

where code = code_in;

Begin

Htp.htmlopen;

Htp.headopen;

Htp.title ('Student's score information');

Htp.headclose;

Htp.bodyopen (cattributes=>'bgcolor = "#80800"');

Htp.tableopen(border');

Htp.tablecaption ('Score Information','center');

Htp.tablerowopen;

Htp.tableheader (' Student Code');

Htp.tableheader (' Student Name');

Htp.tableheader (' Student Score');

--固定地显示页标题、标题、表头等信息，每次调用此页时显示的信息

--是相同的

Htp.tablerowclose;

For score_rec in score_cur

Loop

--利用游标的For循环为游标在网页中产生一个数据行

htp.tablerowopen;

htp.tabledata (score_rec.code);

htp.tabledata (score_rec.name);

htp.tabledata (score_rec.score);

htp.tablerowclose;

Endloop;

Htp.tableclose;

Htp.bodyclose;

Htp.htmlclose;

End; 

Create or replace procedure ScoreForm

As

Begin

Htp.headopen;

Htp.title ('Code Entry Form');

Htp.headclose;

Htp.bodyopen;

Htp.header (2,'Score Information Code Form');

Htp.p ('

');

Htp.formopen ('Score_into_webpage',cmethod=>'GET');

--打开ScoreForm表单。缺省情况下Score_into_webpage PL/SQL过程用GET

--方法调用。GET方法在URL里显示传递的参数。

Htp.tableopen ('border');

Htp.tablerowopen;

Htp.tabledata ('Enter Student Code');

Htp.tabledata (htf.formtext ('code_in',5,5));

--用一个文本框提示用户输入考号。文本框的名字必须与调用过程里的输入

--参数相同。

Htp.tablerowclose;

Htp.tablerowopen;

Htp.tablerowclose;

Htp.tablerowopen;

Htp.tabledata (htf.formSubmit);

Htp.tabledata (htf.formReset);

Htp.tablerowclose;

Htp.formclose;

Htp.bodyclose;

Htp.htmlclose;

End;