微软建议的ASP性能优化28条守则---[15] 批处理内嵌脚本和 Response.Write 语句

技巧 15：批处理内嵌脚本和 Response.Write 语句
VBScript 语法 ``` = expression

Next
While Not rs.EOF

1<tr>   

For Each fld in rs.Fields

1<td>```
2 = fld.Value 
3```</td>   

Next
</tr>
&lt;% rs.MoveNext
Wend

1</table>

下面的代码更有效，每一行对响应流有一次写操作。所有的代码都包含在一个 VBScript 块内：

1<table>   

For each fld in rs.Fields
Response.Write (?<th>? &amp; fld.Name &amp; ?</th>? &amp; vbCrLf)
Next
While Not rs.EOF
Response.Write (?<tr>?)
For Each fld in rs.Fields

1Response.Write(?<td>? &amp; fld.Value &amp; ?</td>? &amp; vbCrLf)   
2Next   
3Response.Write ?</tr>?   
4Wend   
5%&gt;   
6</table>

当禁用响应缓冲时，这一技巧的效果特别大。最好启用响应缓冲，然后看批处理 Response.Write 是否有助于提高性能。

（在这一特定举例中，建立表主体的嵌套循环 (While Not rs.EOF...) 可以用仔细构建的 GetString 调用来替代。）