asp+access sql insert into select表复制

这里是把一个同的数据一次性保存到另一个表用的是sql insert into select另一张同结构的新表

sub append()
call opendb()
dim zsqlzdysql
zsql="insert into zdgz select titles_nameuser_fromimagecontentsend_dateisture from zdy "
connexecute(zsql)
if err= then
responsewrite("<br><hr>")
responsewrite("<font class=style >Data successful merger</font><hr><br>")
connexecute("delete * from zdy")
else
responsewrite("<br><hr><br>")
responsewrite("<font class=style>If you are repeatedly running a home data merge successfullyIf you are running the first page the data failed merger</font><hr><br><br><br><br><br><br><p></p>")
end if
end sub

数据连接代码

sub opendb()
set rs=serverCreateObject("adodbrecordset")
set conn=serverCreateObject("adodbconnection")
connconnectionstring="provider=microsoftjetoledb; data source="&servermappath("datasource/hhinfomdb")
connopen
end sub