软件测试中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 ＞\" & _