ASP程序性能测试报告

"＜ 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