a01.rar

procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
  FileContent: TStringList;
begin
  FileContent := TStringList.Create;
    // 假设你的HTML文件位于Web服务器的根目录下，文件名为a01.html
    FileContent.LoadFromFile( ExtractFilePath (ParamStr (0))+ '\a01.html');
    Response.Content := FileContent.Text;
    Response.ContentType := 'text/html; charset="UTF-8"';
    Handled := True;
    FileContent.Free;end; 
<style>
    table {
        width: 400px;
        margin: 0 auto;
        border: 1px solid #000000;
        border-collapse: collapse;
    }
    
    th,
    td {
        border: 1px solid #000000;
        text-align: center;
    }
</style>

<table border="1">
    <tr>
        <th>第一列</th>
        <th>二列表头</th>
    </tr>
    <tr>
        <td><a target="_blank" href="http://www.cnblogs.com/tulater">涂磊的小作</a></td>
        <td>row 1, cell 2</td>
    </tr>
    <tr>
        <td>row 2, cell 1</td>
        <td>row 2, cell 2</td>
    </tr>
    <tr>
        <td>row 3, cell 1</td>
        <td><a target="_blank" href="https://www.cnblogs.com/tulater/p/18519255">实体书</a></td>
    </tr>
</table>