£¨ÐÂÊÖÇóÖú£©ASPÖбȽ϶þ·þÎñÆ÷±í1ºÍ±í2ÖеÄÊý¾Ý²îÒ죬ɾ³ý±í1ÖжàÓÚ±í2µÄÊý ...

ºÚÏÀ

<%set conn1=server.createobject("adodb.connection")
    strConn1 = "Provider=Sqloledb;User ID=sa;Password=123;Initial Catalog=web;Data Source=(local)"
Conn1.open strConn1   
set rs1=server.createobject("adodb.recordset")
rs1.open "Select * From ±í1",Conn,0,1

t1=rs1("name")   
do while not rs1.eof
%> <%
set conn2=server.createobject("adodb.connection")
    strConn2 = "Provider=Sqloledb;User ID=sa;Password=123;Initial Catalog=web;Data Source=192.168.0.1"
Conn2.open strConn2   
set rs2=server.createobject("adodb.recordset")
rs2.Open "Select * from ±í2 where name='"&t1&"'",conn2,1,1

if rs2.eof then
      conn1.Execute("delete ±í1 where name='"&t1&"'")
      end if
      ors.MoveNext
loop

rs1.close
set rs1=nothing

      
%>
´ó¸Å¾ÍÊÇÕâÑù£ºÎÒÏë±¾»úÊý¾Ý¿âÖеģ¬±í1ÖÐname×Ö¶ÏÒÀÒÀÔÚÁį́·þÎñÆ÷Éϱí2ÖвéѯÊÇ·ñÓдËÊý¾Ý£¬Èç¹ûûÓÐÄǾÍɾ³ý±í1ÖеÄÊý¾Ý£¡£¡£¡£¡
ÎÒÉÏÃæµÄ´úÂëÎÞ±¨´í£¬µ«ÎÞЧ¹û£¬Çë¸ßÊÖÖ¸µãÏÂ

¡ÌËÀÅÖ×Ó

<%
set conn1=server.createobject("adodb.connection")
strConn1 = "Provider=Sqloledb;User ID=sa;Password=123;Initial Catalog=web;Data Source=(local)"
Conn1.open strConn1
set conn2=server.createobject("adodb.connection")
strConn2 = "Provider=Sqloledb;User ID=sa;Password=123;Initial Catalog=web;Data Source=192.168.0.1"
Conn2.open strConn2     
set rs1=server.createobject("adodb.recordset")
rs1.open "Select * From ±í1",Conn1,0,1
do while not rs1.eof
   t1=rs1("name")  
   set rs2=server.createobject("adodb.recordset")
   rs2.Open "Select * from ±í2 where name='"&t1&"'",Conn2,1,1
   if Not rs2.eof then
      conn1.Execute("delete ±í1 where name='"&t1&"'")
   end if
   rs1.MoveNext
loop

rs1.close
set rs1=nothing
%>