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

Dim i
For i = 1 to 10
Set objConn = Server.CreateObject(\"ADODB.Connection\")
objConn.Open Application(\"Conn\")
Set objRS = Server.CreateObject(\"ADODB.Recordset\")
objRS.ActiveConnection = objConn
objRS.CursorType = 0 ’adOpenForwardOnly
objRS.LockType = 1 ’adLockReadOnly
objRS.Open Application(\"SQL\")
If objRS.EOF Then
Response.Write(\"No Records Found\")
Else
’write headings
...
’write data
...
End If
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
Next
        第二，如ADO__05.asp所示，在循環外面創建Connection對象，所有記錄集共享該對象：
Set objConn = Server.CreateObject(\"ADODB.Connection\")
objConn.Open Application(\"Conn\")
Dim i
For i = 1 to 10
Set objRS = Server.CreateObject(\"ADODB.Recordset\")
objRS.ActiveConnection = objConn
objRS.CursorType = 0 ’adOpenForwardOnly
objRS.LockType = 1 ’adLockReadOnly
objRS.Open Application(\"SQL\")
If objRS.EOF Then
Response.Write(\"No Records Found\")
Else
’write headings
...
’write data
...
End If
objRS.Close
Set objRS = Nothing
Next
objConn.Close
Set objConn = Nothing
        第三，如ADO__06.asp所示，在每一個循環內把連接串賦給ActiveConnection屬性：
Dim i
For i = 1 to 10
Set objRS = Server.CreateObject(\"ADODB.Recordset\")
objRS.ActiveConnection = Application(\"Conn\")
objRS.CursorType = 0 ’adOpenForwardOnly
objRS.LockType = 1 ’adLockReadOnly [Page]
objRS.Open Application(\"SQL\")
If objRS.EOF Then

文章來源于領測軟件測試網 http://www.kjueaiud.com/