可以,提供一点思路给你
<%
db="weizi1" '数据库文件的位置
Set connnew = Server.CreateObject("ADODB.Connection")
connstrnew="Provider=sqloledb;Data Source=(local);uid=sa;pwd=;database=sql1"
%>
<%
db="weizi2" '数据库文件的位置
Set connold = Server.CreateObject("ADODB.Connection")
connstrold="Provider=sqloledb;Data Source=(local);uid=sa;pwd=;database=sql2"
%>
<%
connold.Open connstrold
sql="select * from 表 where 条件"
Set rsold=Server.CreateObject("Adodb.RecordSet")
rsold.Open sql,connold,1,1
connnew.open connstrnew
response.Write"正在删除,请等待!"
do while not rsold.eof
exec=''delete * from 表……"
connnew.execute exec
rsold.movenext
loop
rsold.close
connold.close
connnew.close
response.Write "删除完毕!"
%>