用GetRows或GetString来提高ASP的速度

<!--#include file="include/DBConn.asp"-->
<%
'''''''''''''''基本的GetRows的使用''''''''''''''''''''
Call DBConnBegin()
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql = "Select top 10 id,AreaCode,AreaName,EnglishName from Info_Hotel"
Rs.Open Sql,conn,1,1
RecList = Rs.GetRows()
Rs.Close

%>
<table width="600" border="0" cellspacing="0" cellpadding="0">
<%For i = 0 To Ubound(RecList,2)%>
<tr>
<td><%=RecList(0,i)%></td>
<td><%=RecList(2,i)%></td>
<td><%=RecList(3,i)%></td>
</tr>
<%Next%>
</table>

<%
''''''通过getrows实现数据库记录分页的一段代码--------------------
Dim iStart, iOffset
iStart = Request("Start")
iOffset = Request("Offset")
if Not IsNumeric(iStart) or Len(iStart) = 0 then
iStart = 0
else
iStart = CInt(iStart)
end if
if Not IsNumeric(iOffset) or Len(iOffset) = 0 then
iOffset = 30
else
iOffset = Cint(iOffset)
end if
Response.Write "Viewing " & iOffset & " records starting at record " & iStart & "<BR>"
Dim objConn, objRS
Set objConn = Server.CreateObject("ADODB.Connection")
'objConn.Open "DSN=MP3"
dim connstr
字串9
dim db
db="csnjimageman.mdb"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
objconn.Open connstr
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "SELECT * FROM imageinfo", objConn
Dim aResults
aResults = objRS.GetRows
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing

Dim iRows, iCols, iRowLoop, iColLoop, iStop
iRows = UBound(aResults, 2)
iCols = UBound(aResults, 1)
If iRows > (iOffset + iStart) Then
iStop = iOffset + iStart - 1
Else
iStop = iRows
End If
For iRowLoop = iStart to iStop
For iColLoop = 0 to iCols
Response.Write aResults(iColLoop, iRowLoop) & " "
字串5

Next
Response.Write "<BR>"
Next
Response.Write "<P>"
if iStart > 0 then
'Show Prev link
Response.Write "<A HREF=""GetRows.asp?Start=" & iStart-iOffset & _
"&Offset=" & iOffset & """>Previous " & iOffset & "</A>"
end if
if iStop < iRows then
'Show Next link
Response.Write " <A HREF=""GetRows.asp?Start=" & iStart+iOffset & _
"&Offset=" & iOffset & """>Next " & iOffset & "</A>"
end if
%>

-------------------------------------------------------

ADO也提供更有效率方法来取得数据。GetRows 方法传回一个二维的数组变量，每一行对应Recordset中的一笔记录，且每一列对应到记录中的字段。此方法的语法如下：

varArray = rs.GetRows([Rows], [Start], [Fields])

Rows 是要读取记录的数量；如果想要取得Recordset所有记录，可用-1或省略此参数。Start 是指出第一个被读取记录的书签；也可以是下列列举常数中的一个：0-adBookmarkCurrent（目前记录）、1-adBookmarkFirst（第一笔记录）、或2- adBookmarkLast（最后记录）。

Fields 是可选择的字段名称数组，其用来限制要读取的数据量。（也可指定单一字段名称、单一字段索引、或者一个字段索引数组）。当设定 Rows 为少于Recordset记录笔数时，第一笔未读取的记录变成现行记录。若省略 Rows 参数或设定为-1-adGetRowsRest 或大于未读取的笔数时，GetRows 方法会读取所有记录并让Recordset在EOF状态，而不会产生任何错误。

当处理目的变量数组的数据时，应该记得数据储存方式是有点相反的感觉：数组中第一维定义Recordset的字段（数据行），第二维定义Recordset的数据列。以下有个加载Recordset内所有记录某三个字段的范例：

Dim values As Variant, fldIndex As Integer, recIndex As Integer
values = rs.GetRows(, , Array("LastName", "FirstName", "BirthDate"))
For recIndex = 0 To UBound(values, 2)
For fldIndex = 0 To UBound(values)
Print values(fldIndex, recIndex),
Next
Print
Next

GetRows 方法通常比一次读一笔记录的循环要来得快些，但使用这方法时，必须确定Recordset未包含太多记录；否则，会很容易以一个非常大的变量数组来填满所有内存。基于相同的原因，得小心不要包括任何BLOB（Binary Large Object）或 CLOB（Character Large Object）字段；若如此做的化，应用程序一定会爆掉，特别是对于较大的Recordset而言。最后，记住此方法传回的变量数组是以0为基底的；传回记录的笔数是UBound(values,2)+1，传回字段数是UBound(value, 1)+1。

GetString 方法跟 GetRows 是类似的，不过其传回以单一字符串形式存在的多重记录。GetString 语法如下：

GetString([Format], [NumRows], [ColDelimiter], [RowDelimiter], [NullExpr])

Format 是结果的格式。GetString 还可能支持更多格式，但是目前唯一支持的格式是2- adClipString，所以实际上没有任何选择。NumRows 是要取得的列数。（使用-1或省略此参数来读取所有剩下的记录。）ColDelimiter 是行的分隔字符（预设为Tab字符）。 RowDelimiter 为记录的分隔字符（预设为换行字符）。NullExpr 是用来表示Null字段的字符串（预设为空字符串）。文件中说明只有当Format= adClipString时，最后三个参数才可使用，但是这警告没有多大意义，因为（如之前所提）此格式是目前唯一支持的。以下有个例子，其透过 GetString 方法来将数据汇出成以分号分隔的文字文件：

Dim i As Long
Open "datafile.txt" For Output As #1
For i = 0 To rs.Fields.Count _ 1 ’ Export field names.
If i > 0 Then Print #1, ";";
Print #1, rs.Fields(i).Name;
Next
Print #1, ""
rs.MoveFirst ’ Export data.
Print #1, rs.GetString(, , ";", vbCrLf); ’ Don’t add an extra CR-LF here.
Close #1

GetString 方法不允许只汇出字段的子集合，也不允许修改汇出字段的顺序。如果需要这些额外的功能，应该使用 GetRows 方法且自行建立结果字符串。

-------------用GetString来提高ASP的速度-------------------------

许多ASP程序员都有过执行数据库查询，然后将查询结果用HTML表格的形式显示出来的经历吧。通常我们是这么做的:

以下为引用的内容： <%
'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语句要处理. 如果你将输出的全部结果放在一个很长的字符串里(从<TABLE >到</TABLE >)，那么服务器只需解释一遍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>
</HTML>
<%
'Cleanup!
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>
strTable字符串用于存放我们从"SELECT * FROM table1"结果生成的HTML表格的代码.
HTML表格的每列之间都将有</td ><td >的HTML代码，每行之间的HTML代码是</td ></td ><tr ><td >. GetString方法将输出正确的HTML代码并存放在strTable中，这样我们只需一行Response.Write便可以输出数据集中的所有记录. 让我们来看个简单的例 子，假设我们的查询结果返回了以下的行和列:

以下为引用的内容： Col1 Col2 Col3
Row1 Bob Smith 40
Row1 Ed Frank 43
Row1 Sue Void 42
那么GetString语句返回的字符串将是:

以下为引用的内容： Bob</td ><td >Smith</td ><td >40</td ><td ></td ></tr ><tr ><
td
>Ed ...

说实话，这个字符串看上去冗长而杂乱，但它就是我们想要的HTML代码. (注意看，我们在 手工书写的HTML代码中，将<TABLE ><TR ><TD >放在Response.Write的前面，将</TD ></TR ></TABLE >放在它的后面. 这是因为我们的格式化字符串中并不含有这些表格 头尾所需的字符串.)

转自：http://nyazheng.blog.163.com/blog/static/5712646520088554940528/