什么才是进步ASP机能的最佳选择（续三）
发布时间：2020-12-29 12:53:35 所属栏目：编程 来源：网络整理
导读：引用记录齐集域值的最有用要领是什么? 到今朝为止，我都是用名字引用记录齐集的域值的。这也许是一种服从很低的要领，由于每次挪用都必要查找域。为了证明这一点，下面的测试就要通过记录齐集域的荟萃的指针来引用域(ADO__08.asp): 'write data Do While Not
|
引用记录齐集域值的最有用要领是什么?
在下面的例子中，我们将给每个域指定一个单独的变量。这种要领停止了在表格轮回内的全部查找( ADO__09.asp ): If objRS.EOF Then Response.Write("No Records Found") Else 'write headings ... Dim fld0 Dim fld1 Dim fld2 Dim fld3 Dim fld4 Dim fld5 Dim fld6 Set fld0 = objRS(0) Set fld1 = objRS(1) Set fld2 = objRS(2) Set fld3 = objRS(3) Set fld4 = objRS(4) Set fld5 = objRS(5) Set fld6 = objRS(6) 'write data Do While Not objRS.EOF Response.Write( _ "< TR >" & _ "< TD >" & fld0 & "< /TD >" & _ "< TD >" & fld1 & "< /TD >" & _ "< TD >" & fld2 & "< /TD >" & _ "< TD >" & fld3 & "< /TD >" & _ "< TD >" & fld4 & "< /TD >" & _ "< TD >" & fld5 & "< /TD >" & _ "< TD >" & fld6 & "< /TD >" & _ "< /TR >" _ ) objRS.MoveNext Loop Set fld0 = Nothing Set fld1 = Nothing Set fld2 = Nothing Set fld3 = Nothing Set fld4 = Nothing Set fld5 = Nothing Set fld6 = Nothing Response.Write("< /TABLE >") End If
此刻，全部测试剧本的设置都要求对功效记录集有一些相识。好比说，我们一向在栏问题中给域名编码，单独地引用这些域的值。下面的例子提供了一个动态的办理方案，在域的荟萃中轮回，不只获得数据，也获得域的问题（ADO__10.asp ): If objRS.EOF Then Response.Write("No Records Found") Else 'write headings Response.Write("< TABLE BORDER=1 >< TR >") For Each objFld in objRS.Fields Response.Write("< TH >" & objFld.name & "< /TH >") Next Response.Write("< /TR >") 'write data Do While Not objRS.EOF Response.Write("< TR >") For Each objFld in objRS.Fields Response.Write("< TD >" & objFld.value & "< /TD >") Next Response.Write("< /TR >") objRS.MoveNext Loop Response.Write("< /TABLE >") End If
下面的测试是在最后两个测试之间举办一些折中。通过在一个动态分派数组中生涯域的引用，既维持了动态的机动性，也挽回了一些机能上的丧失。 If objRS.EOF Then Response.Write("No Records Found") Else Dim fldCount fldCount = objRS.Fields.Count Dim fld() ReDim fld(fldCount) Dim i For i = 0 to fldCount-1 Set fld(i) = objRS(i) Next 'write headings Response.Write("< TABLE BORDER=1 >< TR >") For i = 0 to fldCount-1 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之前用记录集来规复问题名。其它还可以提条件取数据范例和其余信息。还要留意，在我们的测试中，机能上的上风只有在行使大一些的记录集时才气看到。 在这部门最后的测试中，我们更进一步，行使记录集的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 >" Next strTable = strTable & "< /TR >" objRS.MoveNext Loop For i = 0 to fldCount-1 Set fld(i) = Nothing Next strTable = strTable & "< /TABLE >" Response.Write(strTable)
Dim strTable strTable = Space(10000)
（编辑：湖南网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
站长推荐
热点阅读