RecordSet VS FreeThreadedDOMDOcument

最新推荐文章于 2024-09-11 16:48:28 发布

mocom

最新推荐文章于 2024-09-11 16:48:28 发布

阅读量624

点赞数

分类专栏： vbs &amp; js 文章标签： application stream timer 存储 microsoft vbscript

本文链接：https://blog.csdn.net/mocom/article/details/5834222

版权

vbs & js 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

VS环境：ASP
VS项目：二者在Application中的读写

VS开始：

存储

RecordSet: RecordSet打开一个记录集，并缓存到Stream中，再将Stream的Byte()存储到Application

FreeTreadedDOMDocument: RecordSet将所有记录以<rows><row name="value"...><row...>...</rows>格式转换为FreeThreadedDOMDocument，再将FreeThreadedDOMDocument存储到Application中

读取

RecordSet: Stream打开Application中存储的Byte()，然后用RecordSet的Open方法将Stream作为数据源打开

FreeThreadedDOMDocument: 将Application中存储的FreeThreadedDOMDocument用其自身的cloneNode(True)方法克隆出来

存储速度且不管，这读取100次最快的速度如下：

10条记录 - RecordSet: 0.07813 sec, FreeThreadedDOMDocument: 0.03125 sec

20条记录 - RecordSet: 0.09375 sec, FreeThreadedDOMDocument: 0.04688 sec

30条记录 - RecordSet: 0.09375 sec, FreeThreadedDOMDocument: 0.07813 sec

40条记录 - RecordSet: 0.10938 sec, FreeThreadedDOMDocument: 0.09375 sec

50条记录 - RecordSet: 0.10938 sec, FreeThreadedDOMDocument: 0.12500 sec

....

50条记录是分水岭，再往上，RecordSet PK FreeThreadedDOMDocument

源代码：

<%@language="vbscript"%>  <object id="xml" progid="MSXML2.FreeThreadedDOMDocument" runat="server"></object> <% Option Explicit Sub main() Dim conn, rs, fd Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & Server.MapPath("database/test.mdb") '存储数据条数在此调整 Set rs = conn.Execute("SELECT TOP 50 * FROM TEST") Dim strm, doc, root, node Set strm = Server.CreateObject("ADODB.Stream") strm.Type = adTypeBinary strm.Open rs.Save strm, adPersistADTG strm.Position = 0 strm.Type = adTypeBinary Application.Lock Application("ado") = strm.Read(adReadAll) Application.Unlock strm.Close Set strm = Nothing Set doc = xml.cloneNode(True) Set root = doc.appendChild(doc.createElement("rows")) rs.MoveFirst Do While Not rs.EOF Set node = root.appendChild(doc.createElement("row")) For Each fd In rs.Fields node.setAttribute fd.Name, fd.Value Next Set node = Nothing rs.MoveNext Loop Application.Lock Set Application("xml") = doc Application.Unlock Set root = Nothing Set doc = Nothing rs.Close Set rs = Nothing conn.Close Set conn = Nothing End Sub Call main Dim strm, doc, rs, startTime, i startTime = Timer() For i = 1 To 100 Set rs = Server.CreateObject("ADODB.RecordSet") Set strm = Server.CreateObject("ADODB.Stream") strm.Type = adTypeBinary strm.Open strm.Write Application("ado") strm.Position = 0 rs.Open strm strm.Close Set strm = Nothing rs.Close Set rs = Nothing Next Response.Write FormatNumber(Timer() - startTime, 5, True) & "<br/>" startTime = Timer() For i = 1 To 100 Set doc = Application("xml").cloneNode(True) Set doc = Nothing Next Response.Write FormatNumber(Timer() - startTime, 5, True) & "<br/>" %>