FILENAME:='文件名.htm';
   FHND:=TEXT_IO.FOPEN(FILENAME,'W');
   LINE_BUFF:='<HTML><HEAD><TITLE>标题名称</TITLE></HEAD>';
   TEXT_IO.PUT_LINE(FHND,LINE_BUFF);
   LINE_BUFF:='<BODY><STYLE>';
   TEXT_IO.PUT_LINE(FHND,LINE_BUFF);
   LINE_BUFF:='.tdtitle{font-family: "宋体";color: #ffff11;font-size: 14px;}';
   TEXT_IO.PUT_LINE(FHND,LINE_BUFF);
   LINE_BUFF:='.smtitle{font-family: "宋体";color: #0000ff;font-size: 16px;}';
   TEXT_IO.PUT_LINE(FHND,LINE_BUFF);
   LINE_BUFF:='.toptitle{font-family: "宋体";color: #0000ff;font-size: 18px;}';
   TEXT_IO.PUT_LINE(FHND,LINE_BUFF);
   LINE_BUFF:='.bigtitle{font-family: "隶书";color: #0000ff;font-size: 24px;}';
   TEXT_IO.PUT_LINE(FHND,LINE_BUFF);
   LINE_BUFF:='td{color: #000000;font-size: 12px;}';
   TEXT_IO.PUT_LINE(FHND,LINE_BUFF);
   LINE_BUFF:='</STYLE>';
   TEXT_IO.PUT_LINE(FHND,LINE_BUFF);
   LINE_BUFF:='<CENTER><font class=smtitle>标题名称</font></CENTER>';
   TEXT_IO.PUT_LINE(FHND,LINE_BUFF);
   LINE_BUFF:='<BR><table border=1 cellspacing=0 cellpadding=0>';
   TEXT_IO.PUT_LINE(FHND,LINE_BUFF);
   LINE_BUFF:='<tr><td>列1</td><td>列2</td></tr>';
   TEXT_IO.PUT_LINE(FHND,LINE_BUFF);
   FOR RD IN TD LOOP
    LINE_BUFF:='<tr><td>'||'值1'||'</td><td>'
                    ||'<tr><td>'||'值2'||'</td><tr>';
    TEXT_IO.PUT_LINE(FHND,LINE_BUFF);
    CNT:=CNT+1;
    SYNCHRONIZE;
   END LOOP;
   LINE_BUFF:='</BODY></HTML>';
   TEXT_IO.PUT_LINE(FHND,LINE_BUFF);
   TEXT_IO.FCLOSE(FHND);