ADO 通过 GetString() 加速脚本:
http://www.w3school.com.cn/ado/ado_getstring.asp

set rs = Server.CreateObject("ADODB.recordset")
rs.Open "SELECT SysID, SysName FROM AdmSyst", conn
  str = rs.GetString(,,"</td><td>","</td></tr>"&vbcrlf&"<tr><td>","&nbsp;")
rs.close
set rs = Nothing
str = Replace(str&"^",""&vbcrlf&"<tr><td>^","")
%>
<table border="1">
<tr><td><%Response.Write(str)%>
</table>

GetString() 方法

GetString() 方法使我们有能力仅使用一次 Response.Write，就可以显示所有的字符串。同时它甚至不需要 do..loop 代码以及条件测试来检查记录集是否处于 EOF。

str = rs.GetString(format,rows,coldel,rowdel,nullexpr)

如需使用来自记录集的数据创建一个 HTML 表格，我们仅仅需要使用以上参数中的三个（所有的参数都是可选的）：

• coldel - 用作列分隔符的 HTML
• rowdel - 用作行分隔符的 HTML
• nullexpr - 当列为空时所使用的 HTML

注释：GetString() 方法是 ADO 2.0 的特性。您可从下面的地址下载 ADO 2.0：http://www.microsoft.com/data/download.htm