.Net 中利用ADODB生成的RecordSet在前台脚本中进行调用的方法

后台的adodb.recordset 在前台进行调用！
采用 xml 储数据。在后台生成recordset后，用recordset在带的save方法将数据保存为xml格式的数据文件，
或保存在某一控键中。然后再前台脚本中（vbscript）创建一个recordset （createobject("adodb.recordset"))
然后调用recordset的open 方法打开xml文件，或用stream读取控键中的数据，再用open(stream)打开获得数据。
这样就行了。

.net 后台程序(生成adodb.recordset)
------------------------------------------------------------------------------------------------
        Dim ado_conn As New ADODB.Connection()
        Dim ado_rs As ADODB.Recordset
        Dim ado_sql As String
        Dim stream As ADODB.Stream
        Dim xml As String

        ado_conn.Open(Application("conn_string"))
        ado_sql = "select * from TRACERESULT where g3e_tno=" & cmd.Parameters("v_g3e_tno").Value

        ado_rs = ado_conn.Execute(ado_sql)
        stream = New ADODB.Stream()

        ado_rs.Save(stream, ADODB.PersistFormatEnum.adPersistXML)
        xml = stream.ReadText

        Me.txtxml.Value = ""
        Me.txtxml.Value = xml

        Page.RegisterStartupScript("key2", "<script language=javaScript>top.main.find_doxl();</script>")


前台脚本程序find_doxl() 调用adodb.recoredset
-----------------------------------------------------------------------------------------------------------------
    dim xml_rs ,Stream,xml,xmlfid_rs
   dim TraceSouRange,TraceSouFid
   
    set xml_rs=createobject("adodb.recordset")
    set Stream = createobject("ADODB.Stream")
    
    Stream.Open()
    xml=top.footer.document.all("txtxml").value    
    Stream.WriteText(xml)
    Stream.Position = 0
    xml_rs.Open(Stream)
    stream.Close()
    
  Gvm.AppendQuery xml_rs, "zkjhy", TraceSym, False, False, True, True, 3,1        'xml_rs已经作为recordset使用