- 1PS提示：因為圖層已鎖定，無法編輯圖層的處理方法
- 2Adobe Illustrator CS5 序列號大全
- 3picacg蘋果版怎么找不到|picacg ios版是不是下架了介紹
- 4ACDsee注冊碼免費分享（含ACDsee18、ACDsee10等版本）
- 5蘋果iphone自動時間不準確的多種校正方法
- 6PDF瀏覽器能看3D文件嗎？PDF瀏覽器看3D文件圖文詳細教程
- 7Potato(馬鈴薯聊天)怎么注冊不了|Potato不能注冊處理方法介紹
- 8Potato(土豆聊天)怎么換頭像|Potato app更改頭像方法介紹
- 9ipad版office如何激活? office365激活的圖文說明教程
- 10最新的Adobe Illustrator CS4序列號大全
- 11Mac怎么通過設置VPN來登錄youtube等國外網站
- 12眼萌app怎么色弱測試 眼萌app色弱測試圖文說明教程
[摘要]引用記錄集中域值的最有效方法是什么? 到目前為止，我都是用名字引用記錄集中的域值的。這可能是一種效率很低的方法，因為每次調用都需要查找域。為了證明這一點，下面的測試就要通過記錄集中域的集合的指針來引用域(ADO__08.asp): 'write data Do While No...
引用記錄集中域值的最有效方法是什么? 到目前為止，我都是用名字引用記錄集中的域值的。這可能是一種效率很低的方法，因為每次調用都需要查找域。為了證明這一點，下面的測試就要通過記錄集中域的集合的指針來引用域(ADO__08.asp):
'write data
Do While Not objRS.EOF
Response.Write( _
"< TR >" & _
"< TD >" & objRS(0) & "< /TD >" & _
"< TD >" & objRS(1) & "< /TD >" & _
"< TD >" & objRS(2) & "< /TD >" & _
"< TD >" & objRS(3) & "< /TD >" & _
"< TD >" & objRS(4) & "< /TD >" & _
"< TD >" & objRS(5) & "< /TD >" & _
"< TD >" & objRS(6) & "< /TD >" & _
"< /TR > " _
)
objRS.MoveNext
Loop
正如我們所預料的，裝載時間的變化很�。ú町惪赡苁怯捎诖a上的輕微減少引起的）。但是這種技術在有效顯示時間上卻帶來了明顯的減少。
在下面的例子中，我們將給每個域指定一個單獨的變量。這種方法避免了在表格循環內的所有查找( 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
到目前，這種方法形成的結果是最好的。每條記錄的顯示時間下降成了.45 毫秒。
現在，所有測試腳本的配置都要求對結果記錄集有一些了解。比如說，我們一直在欄標題中給域名編碼，單獨地引用這些域的值。下面的例子提供了一個動態的解決方案，在域的集合中循環，不僅得到數據，也得到域的標題（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
可以看到，我們在性能上有一個損失，但是這個方法還是比ADO__07.asp要快一些。
下面的測試是在最后兩個測試之間進行一些折中。通過在一個動態分配數組中保存域的引用，既維持了動態的靈活性，也挽回了一些性能上的損失。
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 指令，就可以獲取整個記錄集并將其裝載到數組中。當恢復特別大的記錄集時，這種方法有可能會造成資源問題，但是數據的循環快多了，因為類似于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 >"
Next
strTable = strTable & "< /TR >"
objRS.MoveNext
Loop
For i = 0 to fldCount-1
Set fld(i) = Nothing
Next
strTable = strTable & "< /TABLE >"
Response.Write(strTable)
看起來執行得不是很好。也許正象許多人建議的，我們應該用Space 指令為這個字符串指定一些空間，這樣它就不需要在循環期間總是為自己重新分配空間( STR__02.asp ):
Dim strTable
strTable = Space(10000)
也許Space 指令并不象建議的那樣工作。我們最后的規則是：不要用臨時字符串來收集輸出。
推薦資訊 總人氣榜
最新教程 本月人氣
- 1密碼又要符號又要大寫的 規則到底是誰發明的？（俠客密碼查看器）
- 2宇航員在太空中為你展示喝水是種什么體驗？
- 3紅米note 5下周將公布 或將有3個版本！
- 4一部手機還沒賣 安卓之父公司已經估值超10億美元！
- 5小米5X新版開售 變焦雙攝4G/32GB 僅需1299元！
- 6共享經濟持續壯大 共享馬扎強勢入局 網友：不掃碼坐著扎屁股嗎？
- 7《權利的游戲》慘遭黑客泄露 HBO欲砸25萬美元封口費！
- 8《終結者》系列又要回來了 州長透露將在明年3月開拍 卡梅隆執導！
- 9《哆啦A夢》再上熱搜 居然是因為臺詞反日？厲害了我的大雄！
- 10北京在迎來租房新政 滿足條件者租房也可讓子女上學！
- 11《絕地求生：大逃殺》銷量突破800萬 玩家吃雞都上癮！
- 12蘇寧快遞小哥818購物節前大婚 快遞車組成200多米的迎親車隊！
- 1uc瀏覽器去廣告圖文說明教程：uc瀏覽器廣告過濾技巧使用方法_綠茶安卓網
- 2字符串根據多個字符進行分割的一種方法
- 3使用c#制作容易的留言板(1)
- 4從SQL server數據庫導入Mysql數據庫的體驗
- 53星s5電信版支持4g嗎？3星galaxy s5電信版支持4g網絡嗎？
- 6陌陌誰是臥底如何玩？陌陌誰是臥底玩法_綠茶安卓網
- 7nubia x6電信版什么時候上市？中興nubia x6電信版上市時間
- 8華為p7移動版什么時候上市？華為p7手機移動版上市時間
- 9聯想黃金斗士s8預約圖文說明教程(附聯想s8預約網址)
- 10聯想黃金斗士s8加持版與規范版的區別有哪一些？s8加持版/規范版區別
- 11美顏相機聲音如何關？美顏相機關聲音方法_綠茶安卓網
- 12陌陌如何舉報？陌陌舉報好友圖文說明教程_綠茶安卓網
