利用rs赋值也可以实现
如果两个表的字段类型和结构完全一样
可以一个读取一个写入
如
Dim rsR
Dim rsW
Dim i
Set rsR=Server.CreateObject("ADODB.RecordSet")
Set rsW=Server.CreateObject("ADODB.RecordSet")
rsR.Open "select * From Table1",con,1,3
rsW.Open "select * From Table2",con,1,3
Do Until rsR.EOF
rsW.addNew
For i=0 To rsR.Fields.Count-1
rsW.Fields(i).Value=rsR.Fields(i).Value
Next
rsR.MoveNext
Loop
rsW.Update()
rsR.Close
rsW.Close
Set rsR=Nothing
Set rsW=Nothing