ASP程序性能测试报告(二)

三、第一次测试
　　 在第一次测试中，我们模拟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 >" & _