<%
'相关说明
'-------------------
'功能:将数据库test1.mdb中的表table1的[field1],[field2]的数据拷贝到数据库test2.mdb中的表table2的[field3],[field4]
'-------------------
dim conn,cmd
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("test2.mdb")
Set cmd = Server.CreateObject("ADODB.command")
cmd.activeconnection=conn
cmd.commandtext= "insert into table2([field3],[field4]) select [field1],[field2] from table1 in ""F:/test/tset1.mdb"" "
cmd.execute
response.write "Is OK!"
set cmd=nothing
conn.close
set conn=nothing
%>