軟件測試中ASP程序性能測試報告

發布: 2009-4-10 09:40 | 作者: 不詳 | 來源: 測試時代采編 | 查看: 44次 | 進入軟件測試論壇討論

e, \" & _
\"ShippedDate, \" & _
\"Freight \" & _
\"FROM[Orders] \"
        測試服務器配置如下：450 Mhz Pentium，512 MB RAM，NT Server 4.0 SP5，MDAC 2.1（數據訪問組件），以及5.0版本的Microsoft腳本引擎。SQL Server運行在另外一臺具有類似配置的機器上。和第一部分一樣，我們仍舊使用Microsoft Web Application Stress Tool 記錄從第一個頁面請求到從服務器接收到最后一個字節的時間（TTLB，Time To Last Byte），時間以毫秒為單位。測試腳本調用每個頁面1300次以上，運行時間約20小時，以下顯示的時間是會話的平均TTLB。請記住，和第一部分一樣，我們只關心代碼的效率，而不是它的可伸縮性或服務器性能。
        同時請注意我們啟用了服務器的緩沖。另外，為了讓所有的文件名字長度相同，有的文件名字中嵌入了一個或多個下劃線。
三、第一次測試
        在第一次測試中，我們模擬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 ＞\" & _