ABAP访问网页源代码

REPORT  ZTEST_HTTPGET.
TYPES:BEGIN OF TEXT_LINE,
LINE(200) TYPE C,
END OF TEXT_LINE.
DATA:
STRURL(120) TYPE C,
RESPONSE_BODY TYPE TABLE OF TEXT_LINE WITH HEADER LINE,
SPACE_BODY TYPE TABLE OF TEXT_LINE WITH HEADER LINE,
RESPONSE_HEADER TYPE TABLE OF TEXT_LINE WITH HEADER LINE,
STATUS_CODE(10) TYPE C.

INITIALIZATION.
  STRURL = 'http://baidu.com'.

START-OF-SELECTION.

  CALL FUNCTION 'HTTP_GET'
    EXPORTING
      ABSOLUTE_URI                = STRURL
      RFC_DESTINATION             = 'SAPHTTP'
    IMPORTING
      STATUS_CODE                 = STATUS_CODE
*      RESPONSE_ENTITY_BODY_LENGTH = RLENGTH
    TABLES
      RESPONSE_ENTITY_BODY        = RESPONSE_BODY
      RESPONSE_HEADERS            = RESPONSE_HEADER
    EXCEPTIONS
      CONNECT_FAILED              = 1
      TIMEOUT                     = 2
      INTERNAL_ERROR              = 3
      TCPIP_ERROR                 = 4
      DATA_ERROR                  = 5
      SYSTEM_FAILURE              = 6
      COMMUNICATION_FAILURE       = 7
      OTHERS                      = 8.
  IF SY-SUBRC <> 0.

    MESSAGE '访问失败！' TYPE 'W'.
  ENDIF.

  LOOP AT RESPONSE_BODY.
    WRITE / RESPONSE_BODY.
  ENDLOOP.