• λ我爱Aspx >> Asp.Net >> ASP程序性能测试报告

    • ASP程序性能测试报告

  • :aspxer  Դ:internet  :2007-5-15 20:47:26  ؼ:asp

  • objRS.Close

    Set objRS = Nothing

    'write data

    Dim numRows

    Dim numFlds

    Dim row

    Dim fld

    numFlds = Ubound(arrRS, 1)

    numRows = Ubound(arrRS, 2)

    For row= 0 to numRows

    Response.Write("＜ TR ＞")

    For fld = 0 to numFlds

    Response.Write("＜ TD ＞" & arrRS(fld, row) & "＜ /TD ＞")

    Next

    Response.Write("＜ /TR ＞")

    Next

    Response.Write("＜ /TABLE ＞")

    End If

    使用GetRows方法时，整个记录集都被提取到了数组。虽然记录集极端庞大时可能产生资源问题，但是用循环访问数据的速度确实更快了，这是由于取消了MoveNext和检查EOF之类的函数调用。

    速度是要付出代价的，现在记录集的元数据已经丢失了。为解决这个问题，我们可以在调用GetRows之前从记录集对象提取标题信息；此外，数据类型和其他信息也可以预先提取。另外还要注意的是，测试中性能上的优势只有在记录集较大的时候才会出现。

    这一组的最后一个测试中，我们使用了记录集的GetString方法。GetString方法将整个记录集提取成为一个大的字符串，并允许指定分隔符（ADO__13.asp）：

    If objRS.EOF Then

    Response.Write("No Records Found")

    objRS.Close

    Set objRS = Nothing

    Else

    'write headings

    ...

    'set array

    Dim strTable

    strTable = objRS.GetString (2, , "＜/TD＞＜TD＞", "＜/TD＞＜/TR＞＜TR＞＜TD＞")

    'close recordset early

    objRS.Close

    Set objRS = Nothing

    Response.Write(strTable & "＜/TD＞＜/TR＞＜/TABLE＞")

    End If

    虽然这种方法在速度上的好处非常明显，但它只适用于最简单的操作，根本无法适应稍微复杂的数据操作要求。

    上一篇： 用ISAPIfilter使INC、ASA文件安全

    下一篇： 用ASP编程实现网络内容快速查找

    Ҷƪл˵?
    第一页上一页567891011下一页尾页
  • һƪ用ASP编写下载网页中所有资源的程序
    һƪ用ISAPIfilter使INC、ASA文件安全