--按照salgrade表中的标准, --给员工加薪,1:5%,2:4%,3:3%,4:2%,5:1%,

版权声明:本文为博主原创文章,遵循 CC 4.0 by-sa 版权协议,转载请附上原文出处链接和本声明。
本文链接:https://blog.csdn.net/weixin_42121296/article/details/80571615
declaer cursor s1 is selcet * from emp;
 v_res emp%rowtype;
 
 begin
   open s1;
   fetch s1 into v_res;
   loop
     exit when s1%notfound;
     if
       v_res.job='PRESIDENT' then
       update emp set sal=sal*0.05+sal where v_res.ename=emp.ename;
       else if
         v_res.job='ANALYST' then
         update emp set sal=sal*0.04+sal where v_res.ename=emp.ename;
         else if
           v_res.job='MANAGER' then
           update emp set sal=sal*0.03+sal where v_res.ename=emp.ename;
           else if
             v_res.job='SALESMAN' then
             update emp set sal=sal*0.02 where v_res.ename=emp.ename;
             else
               update emp set sal=sal*0.01 where v_res.ename=emp.ename;
           end if;
         end is;
       end if;
     
     end if;
   fetch s1 into v_res;
   
   
   end loop;
 close s1;
  end;
展开阅读全文

[1][2][3][4][5]分页问题中有-1页的解决???

04-05

rs.absolutepage = MyPagern为什么说这一句有错?怎么样才能正常运行?rn=============================================rn<%rnIf Not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Or Request("page") <=0 ThenrnMyPage=1rnElsernMyPage=Int(Abs(Request("page"))) rnEnd if rnrnPageShowSize = 10rnMyPageSize = 5rnrs.PageSize = MyPageSizernMaxPages = rs.PageCountrnrs.absolutepage = MyPagerntotal = rs.RecordCount rni=0rndo while not rs.eof or i = rs.PageSizern%>rn循环rn<% rnrs.movenextrni=i+1rnLooprn%>rn<%rnurl="s_result.asp?BigClassName=" &xxx& "&keyword=" & keywordrnPageNextSize=int((MyPage-1)/PageShowSize)+1rnPagetpage=int((total-1)/rs.PageSize)+1rnrnif PageNextSize >1 thenrnPagePrev=PageShowSize*(PageNextSize-1)rnResponse.write "上一翻页 "rnResponse.write "页首 "rnend ifrnif MyPage-1 > 0 thenrnPrev_Page = MyPage - 1rnResponse.write "上一页 "rnend ifrnrnif Maxpages>=PageNextSize*PageShowSize thenrnPageSizeShow = PageShowSizernElsernPageSizeShow = Maxpages-PageShowSize*(PageNextSize-1)rnEnd ifrnIf PageSizeShow < 1 Then PageSizeShow = 1rnfor PageCounterSize=1 to PageSizeShowrnPageLink = (PageCounterSize+PageNextSize*PageShowSize)-PageShowSizernif PageLink <> MyPage ThenrnResponse.write "[" & PageLink & "] "rnelsernResponse.Write "["& PageLink &"] "rnend ifrnIf PageLink = MaxPages Then Exit forrnNextrnrnif Mypage+1 <=Pagetpage thenrnNext_Page = MyPage + 1rnResponse.write "下一页"rnend ifrnrnif MaxPages > PageShowSize*PageNextSize thenrnPageNext = PageShowSize * PageNextSize + 1rnResponse.write " 页尾"rnResponse.write " 下一翻页"rnEnd ifrnrn%>rn---------------------------------------rn急求.rn先谢/ 论坛

没有更多推荐了,返回首页