PLSQL訪問網頁簡單案例（二）

PL/SQL 過程已成功完成。

可以看到，網頁中的中文都變成了亂碼，這是由於設定的CHARSET不正確導致的。

SQL> DECLARE
  2   V_REQ UTL_HTTP.REQ;
  3   V_RESP UTL_HTTP.RESP;
  4   V_VALUE VARCHAR2(4000);
  5   V_COUNT NUMBER := 1;
  6   V_CHARSET VARCHAR2(100);
  7  BEGIN
  8   V_REQ := UTL_HTTP.BEGIN_REQUEST('http://www.itpub.net/forum-2-1.html');
  9   UTL_HTTP.GET_BODY_CHARSET(V_CHARSET);
 10   DBMS_OUTPUT.PUT_LINE(V_CHARSET);
 11   V_RESP := UTL_HTTP.GET_RESPONSE(V_REQ);
 12   LOOP
 13    UTL_HTTP.READ_LINE(V_RESP, V_VALUE, TRUE);
 14    DBMS_OUTPUT.PUT_LINE(V_VALUE);
 15    EXIT WHEN V_COUNT >= 10;
 16    V_COUNT := V_COUNT + 1;
 17   END LOOP;
 18   UTL_HTTP.END_RESPONSE(V_RESP);
 19  EXCEPTION
 20   WHEN UTL_HTTP.END_OF_BODY THEN
 21    UTL_HTTP.END_RESPONSE(V_RESP);
 22  END;
 23  /
ISO-8859-1




？Y？a1üàí -  ITPUB？？ì3  -
IT168？ì？？רòμ？？ê？é？？？

PL/SQL 過程已成功完成。

當前預設的CHARSET是ISO-8859-1，而目標網頁使用的CHARSET是gb2312，根據目標頁面設定CHARSET後，中文正確顯示：

SQL> DECLARE
  2   V_REQ UTL_HTTP.REQ;
  3   V_RESP UTL_HTTP.RESP;
  4   V_VALUE VARCHAR2(4000);
  5   V_COUNT NUMBER := 1;
  6   V_CHARSET VARCHAR2(100) := 'gb2312';
  7  BEGIN
  8   V_REQ := UTL_HTTP.BEGIN_REQUEST('http://www.itpub.net/forum-2-1.html');
  9   V_RESP := UTL_HTTP.GET_RESPONSE(V_REQ);
 10   UTL_HTTP.SET_BODY_CHARSET(V_RESP, V_CHARSET);
 11   LOOP
 12    UTL_HTTP.READ_LINE(V_RESP, V_VALUE, TRUE);
 13    DBMS_OUTPUT.PUT_LINE(V_VALUE);
 14    EXIT WHEN V_COUNT >= 500;
 15    V_COUNT := V_COUNT + 1;
 16   END LOOP;
 17   UTL_HTTP.END_RESPONSE(V_RESP);
 18  EXCEPTION
 19   WHEN UTL_HTTP.END_OF_BODY THEN
 20    UTL_HTTP.END_RESPONSE(V_RESP);
 21  END;
 22  /




資料庫管理 -  ITPUB論壇  -
IT168旗下專業技術社群





.
.
.
» Oracle資料庫管理

PL/SQL 過程已成功完成。