提高ASP性能的最佳选择（续三）(2)

　　Response.Write("< TH >" & fld(i).name & "< /TH >")

　　Next

　　Response.Write("< /TR >")

　　'write data

　　Do While Not objRS.EOF

　　Response.Write("< TR >")

　　For i = 0 to fldCount-1

　　Response.Write("< TD >" & fld(i) & "< /TD >")

　　Next

　　Response.Write("< /TR >")

　　objRS.MoveNext

　　Loop

　　For i = 0 to fldCount-1

　　Set fld(i) = Nothing

　　Next

　　Response.Write("< /TABLE >")

　　End If


　　虽然它并不比最好值快，但是比前面的几个例子要快了很多，并且有一个优势就是能够动态地表现任何记录集。

　　在下一个测试中，我们将对以前的方案做一个彻底的改变，使用记录集的GetRows指令创建一个循环用的数组，而不是在记录集本身进行循环。注意，调用GetRows之后，立刻就将记录集设置为Nothing，这样就能更快地释放系统资源。另外还要注意数组的第一个维数代表域，第二个维数代表行 ( ADO__12.asp ):

　　If objRS.EOF Then

　　Response.Write("No Records Found")

　　objRS.Close

　　Set objRS = Nothing

　　Else

　　'write headings

　　...

　　'set array

　　Dim arrRS

　　arrRS = objRS.GetRows

　　'close recordset early

　　objRS.Close

　　Set objRS = Nothing

　　'write data

　　Dim numRows

　　Dim numFlds

　　Dim row

　　Dim fld

　　numFlds = Ubound(arrRS, 1)

　　numRows = Ubound(arrRS, 2)

　　For row= 0 to numRows

　　Response.Write("< TR >")

　　For fld = 0 to numFlds

　　Response.Write("< TD >" & arrRS(fld, row) & "< /TD >")

　　Next

　　Response.Write("< /TR >")

　　Next

　　Response.Write("< /TABLE >")

　　End If


　　通过使用GetRows 指令，就可以获取整个记录集并将其装载到数组中。当恢复特别大的记录集时，这种方法有可能会造成资源问题，但是数据的循环快多了，因为类似于MoveNext 的函数调用和EOF 的检测都可以取消了。

　　不过速度的提升确实是有代价的，因为记录集的元数据不再与数据在一起。围绕这个问题，我在调用GetRows之前用记录集来恢复标题名。另外还可以提前提取数据类型和其它信息。还要注意，在我们的测试中，性能上的优势只有在使用大一些的记录集时才能看到。

　　在这部分最后的测试中，我们更进一步，使用记录集的GetString 指令。这个方法将整个记录集提取到一个大的字符串中，允许你指定自己的分隔符( ADO__13.asp ):

　　If objRS.EOF Then

　　Response.Write("No Records Found")

　　objRS.Close

　　Set objRS = Nothing

　　Else

　　'write headings

　　...

　　'set array

　　Dim strTable

　　strTable = objRS.GetString (2, , "< /TD >< TD >", "< /TD >< /TR >< TR >< TD >")

　　'close recordset early

　　objRS.Close

　　Set objRS = Nothing

　　Response.Write(strTable & "< /TD >< /TR >< /TABLE >")

　　End If


　　虽然这种方法已经接近了最高水平，但是它只适合于最简单的设计，因为它根本就不能应用于数据的特殊情况。

观察
　　在我们开始这套测试之前，执行每条记录的时间一直在.83 毫秒左右震动。这套测试中的大多数方法都将这个数字减少了一半。虽然有些方法明显地提供了更快的速度，但是代价是灵活性的降低。

　　下面的规则是以重要程度为顺序的：

* 当记录集中的值不需要用一种特殊方式来对待并且能够格式化为一种统一的格式时，使用GetString方法来提取数据。
* 当你在设计上需要更大的灵活性，但是又不需要用记录集的元数据进行工作，使用GetRows 方法将数据提取到一个数组中。
* 当你需要设计的灵活性和元数据时，在进入一个数据恢复的循环之前，将你的域约束在本地变量中。避免用名字引用域。
使用临时字符串可以较好地代替缓冲器吗？
　　这是针对我上一篇文章提交的一些注解所引发的一个小小的离题。要讨论的问题是围绕着缓冲器的使用及使用临时字符串作为替代来收集输出，这样就允许Response.Write 只调用一次。为了测试，我从ADO_11.asp的代码开始，将结果附加到一个字符串中，而不是在每个循环都调用Response.Write，当整个操作都结束后，在字符串上调用Response.Write ( STR__01.asp ):

　　Dim strTable

　　strTable = ""

　　'write headings

　　strTable = strTable & "< TABLE BORDER=1 >< TR >"

　　For i = 0 to fldCount-1

　　strTable = strTable & "< TH >" & fld(i).name & "< /TH >"

　　Next

　　strTable = strTable & "< /TR >"

　　'write data

　　Do While Not objRS.EOF

　　strTable = strTable & "< TR >"

　　For i = 0 to fldCount-1

　　strTable = strTable & "< TD >" & fld(i) & "< /TD >"

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有