在PL / SQL过程中，将查询或反射器包装在HTML表中

CREATE OR REPLACE PROCEDURE generate_html_table (p_query IN VARCHAR2)
IS
  v_xml_data CLOB;
  v_html_data CLOB;
BEGIN
  -- 将查询结果转换为XML格式
  SELECT DBMS_XMLGEN.getXML(p_query)
    INTO v_xml_data
    FROM DUAL;

  -- 将XML格式的数据转换为HTML表格格式
  SELECT DBMS_XMLDOM.GETXMLTYPE(v_xml_data)
    .transform(DBMS_XSLPROCESSOR.MAKEXSL('<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"><xsl:template match="/<table><xsl:for-each select="ROWSET/ROW"><tr><xsl:for-each select="*"><td><xsl:value-of select="."/></td></xsl:for-each></tr></xsl:for-each></table></xsl:template></xsl:stylesheet>'))
    .getClobVal()
    INTO v_html_data
    FROM DUAL;

  -- 返回HTML表格数据
  HTP.P(v_html_data);
END;