declare   v_count  number;  uprinciple varchar2(20);  principle  varchar2(20);  beginuprinciple := upper('&wssl_user');select count(1)  into v_count from dba_network_acls where acl like '%httprepuestpermission01.xml%';if v_count <> 0 then    dbms_network_acl_admin.drop_acl(acl=> 'httprepuestpermission01.xml');      commit;   end if; --1.0 创建 ACL 以及相关操作   dbms_network_acl_admin.create_acl(acl         => 'httprepuestpermission01.xml',                                    description => 'Network permissions',                                    principal   => uprinciple,                                    is_grant    => TRUE,                                    privilege   => 'connect',                                    start_date  => systimestamp,                                    end_date  => null);commit;--1.1 授予普通用户可以使用ACL的权限    dbms_network_acl_admin.add_privilege(acl        => 'httprepuestpermission01.xml',                                       principal  => uprinciple, --要使用acl的用户                                       is_grant   => true,                                       privilege  => 'connect',                                       start_date => systimestamp,                                       end_date   => null);                                      commit;--1.2授予普通用户可以使用ACL的权限   dbms_network_acl_admin.assign_acl(acl        => 'httprepuestpermission01.xml',                                        host       => '&url_ip',      --要访问的目标主机                                      lower_port => &url_port,                 --要访问的端口                                      upper_port => &url_port);                                        commit;end;/

转载于:https://www.cnblogs.com/iyoume2008/p/9174010.html