Oracle中游标的使用案例

DECLARE userid WEB_SITE.USERID%TYPE;id WEB_SITE.ID%TYPE;CURSOR site IS select id,userid from web_site;beginOPEN site;

DECLARE
userid WEB_SITE.USERID%TYPE;
id WEB_SITE.ID%TYPE;
CURSOR site IS select id,userid from web_site;
begin
OPEN site;
LOOP
fetch site into id,userid;
EXIT WHEN site%NOTFOUND;

INSERT INTO web_model (id,userId,siteId,name,type,codeHeadLeft,
codeHeadRight,code,codeEdit,codeWeb,model,bgColor,style)
values(id+1,userid,id,'搜索','网站默认','','','','搜索结果列表',
'',
'','','0');

INSERT INTO web_page (id,userId,siteId,model,fatherNode,fatherNodeName,name,title,
keyWords,introduction,bgColor,posterCode,code,style,isShow,isShowImgHead,isShowNavigation,
isShowFooter,pageType) values (id+2,userid,id,'2','0','','搜索结果','搜索结果','搜索结果',
'','','-1,-1,-1','widget-place-1=|widget-place-2=widget-'||(id+1),'0','0','1','1','1','1');

END LOOP;
close site;
end;