三、第一次測試

在第一次測試中，我們模擬Microsoft ASP ADO示例中可找到的典型情形提取一個記錄集。在這個例子（ADO__01.asp）中，我們首先打開一個連接，然后創建記錄集對象。當然，這里的腳本按照本文第一部分所總結的編碼規則作了優化。
< % Option Explicit % >
< !-- #Include file="ADOVBS.INC" -- >
< %
Dim objConn
Dim objRS

Response.Write( _
"< HTML >< HEAD >" & _
"< TITLE >ADO Test< /TITLE >" & _
"< /HEAD >< BODY >" _
)

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open Application("Conn")

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.ActiveConnection = objConn
objRS.CursorType = adOpenForwardOnly
objRS.LockType = adLockReadOnly
objRS.Open Application("SQL")

If objRS.EOF Then
Response.Write("No Records Found")
Else
'write headings
Response.Write( _
"< TABLE BORDER=1 >" & _
"< TR >" & _
"< TH >OrderID< /TH >" & _
"< TH >CustomerID< /TH >" & _
"< TH >EmployeeID< /TH >" & _
"< TH >OrderDate< /TH >" & _
"< TH >RequiredDate< /TH >" & _
"< TH >ShippedDate< /TH >" & _
"< TH >Freight< /TH >" & _
"< /TR >" _
)
'write data
Do While Not objRS.EOF
Response.Write( _
"< TR >" & _
"< TD >" & objRS("OrderID") & "< /TD >" & _
"< TD >" & objRS("CustomerID") & "< /TD >" & _
"< TD >" & objRS("EmployeeID") & "< /TD >" & _
"< TD >" & objRS("OrderDate") & "< /TD >" & _
"< TD >" & objRS("RequiredDate") & "< /TD >" & _
"< TD >" & objRS("ShippedDate") & "< /TD >" & _
"< TD >" & objRS("Freight") & "< /TD >" & _
"< /TR > " _
)
objRS.MoveNext
Loop
Response.Write("< /TABLE >")
End If

objRS.Close
objConn.Close
Set objRS = Nothing
Set objConn = Nothing

Response.Write("< /BODY >< /HTML >")
% >


下面是測試結果：


我們來看一下各欄數字的含義： 0 返回0個記錄的頁面所需要的TTLB（毫秒）。在所有的測試中，該值被視為生成頁面本身（包括創建對象）的時間開銷，不包含循環訪問記錄集數據的時間。
25 以毫秒計的提取和顯示25個記錄的TTLB。
tot time/25 "25"欄的TTLB除以25，它是每個記錄的總計平均時間開銷。
disp time/25 "25"欄的TTLB減去"0"欄的TTLB，然后除以25。該值反映了在循環記錄集時顯示單個記錄所需時間。
250 提取和顯示250個記錄的TTLB。
tot time/250 "250"欄的TTLB除以25，該值代表單個記錄的總計平均時間開銷。
disp time/250 "250"欄的TTLB減去"0"欄的TTLB，再除以250。該值反映了在循環記錄集時顯示單個記錄所需時間。


上面的測試結果將用來同下一個測試結果比較。
（出處：熱點網絡）