后台的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使用