'获取随机数 Public function randonum() Randomize randonum = replace(10000*rnd(),".","a") & "@qq.com" End Function '获取指定范围内的随机数 MAX,MIN RandomizeWScript.Echo Int((MAX-MIN+1)*Rnd)+MIN '截图 Public function capture(part) Dim fi
关于 游标 if,for 的例子 create or replace procedure peace_if is cursor var_c is select * from grade; begin for temp in var_c loop if temp.course_name = 'OS' then dbms_output.put_line('Stu_name = '||temp.stu_name); elsif temp.course_name = 'DB' then dbms_out