用GetString提高ASP的速度
2024-05-04 10:57:30
供稿：網友
<%
'Create connection / recordset
'Populate data into recordset object
%>
<TABLE>
<% Do While not rs.EOF %>
<TR>
<TD ><%=rs("Field1")% ></TD>
<TD ><%=rs("Field2")% ></TD>
.
</TR>
<% rs.MoveNext
Loop %>
</TABLE>
如果查詢結果很多，服務器解釋你的ASP script將花費大量的時間，因為有許多的Response.Write語句要處理. 如果你將輸出的全部結果放在一個很長的字符串里(從 到 )，那么服務器只需解釋一遍Response.Write語句，速度就會快得多 . 微軟公司里的一些能干的家伙已經將想法變成了現實. (注意，這是一個ADO 2.0以上才有的特性. 如果你還在使用以前版本的話,請升級到最新版)
有了GetString方法，我們就可以僅用一個Response.Write來顯示所有的輸出了，它就象是能判斷Recordset是否為EOF的DO ... LOOP循環。
GetString的用法如下(所有的參數都是可選的)：
String = recordset.GetString(StringFormat， NumRows， ColumnDelimiter， RowDelimiter， NullExpr)
要從Recordset的結果里生成HTML表格，我們只需關心GetString的5個參數中的3個：
ColumnDelimiter(分隔記錄集的列的HTML代碼)，RowDelimiter(分隔記錄集的行的HTML 代碼)，和NullExpr(當前記錄為空時應生成的HTML代碼)。就象你在下面生成HTML表格的例子里所看到的那樣，每列用[td]...[/td]分隔，每行用[tr]...[/tr]分隔。例子的代碼：
以下是引用片段：
<%@ LANGUAGE="VBSCRIPT" %>
<% Option Explicit 'Good coding technique
'Establish connection to DB
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DSN=Northwind;"
'Create a recordset
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * FROM table1"， conn
'Store our one big string
Dim strTable
strTable = rs.GetString(，，"</td ><td >"，"</td ></tr ><tr ><td >" ，" ")
%>
<HTML>
<BODY>
<TABLE>
<TR ><TD>
<% Response.Write(strTable) %>
</TR ></TD>
</TABLE>
</BODY>
