我们用asp来处理 客户端,生成xml后,提交到远程asp文件 Private Sub CustomerManager_PostCustomerTable(ByVal rs As ADODB.Recordset) Dim RequestDoc As MSXML.DOMDocument Set RequestDoc = New MSXML.DOMDocument rs.Save RequestDoc, adPersistXML Dim httpRequest As New MSXML.XMLHTTPRequest httpRequest.Open "POST", sURL & "PostCustomerTable.asp", False httpRequest.send RequestDoc ' throw assert on any return status other than 200 If httpRequest.Status <> 200 Then MsgBox httpRequest.statusText, , httpRequest.Status End If End Sub服务端 <%@ Language=VBScript %><% dim rs Set rs = Server.CreateObject("ADODB.Recordset") rs.Open Request rs.UpdateBatch %>
不需要任何数据源
参考
当然可使用记录集
因为记录集可以直接创建在内存中
Dim Rs As New ADODB.Recordset
Dim II As LongRs.CursorLocation = adUseClient
Rs.Fields.Append "Col1", adVarChar, 20
Rs.Fields.Append "Col2", adVarChar, 20
Rs.Fields.Append "Col3", adVarChar, 20
Rs.Fields.Append "Col4", adVarChar, 20
Rs.Open "me"
'把表格中的数据搬到数据集,再借助 .Find 即可查找,速度超快For II = 1 To 1000
'插入1000行
Rs.AddNew
Rs(0).Value = "a" & II & 1
Rs(1).Value = "b" & II & 2
Rs(2).Value = "c" & II & 3
Rs(3).Value = "d" & II & 4
Rs.Update
NextRs.MoveFirstRs.Find "Col1='a11'"
If Rs.EOF = False Then
MsgBox Rs(0)
End IfRs.Close
我想,如果有一种机制把内存Recordset直接更新到服务器数据源上岂不是更方便。
也许想法天真了。但是请知道的朋友帮帮我。不胜感激。
客户端,生成xml后,提交到远程asp文件
Private Sub CustomerManager_PostCustomerTable(ByVal rs As ADODB.Recordset)
Dim RequestDoc As MSXML.DOMDocument
Set RequestDoc = New MSXML.DOMDocument
rs.Save RequestDoc, adPersistXML
Dim httpRequest As New MSXML.XMLHTTPRequest
httpRequest.Open "POST", sURL & "PostCustomerTable.asp", False
httpRequest.send RequestDoc
' throw assert on any return status other than 200
If httpRequest.Status <> 200 Then
MsgBox httpRequest.statusText, , httpRequest.Status
End If
End Sub服务端
<%@ Language=VBScript %><% dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Request
rs.UpdateBatch
%>
结贴了。通过两位的方法,我想能够解决我提出的问题了。非常感谢。