28,409
社区成员




dim id, ids
ids = ""
set rs_s1 = server.createobject("ADODB.Recordset")
sql = "select * from s1"
rs_s1.open sql,conn,1,1
if not rs_s1.eof then
do while not rs_s1.eof
ids = rs_s1("id") & ","
rs_s1.movenext
loop
end if
rs_s1.close
set rs_s1 = nothing
If ids <> "" Then ids = Left(ids, Len(ids)-1)
set rs_s2 = server.createobject("ADODB.Recordset")
sql = "select * from s2 where sid IN (" & ids & ")"
rs_s2.open sql,conn,1,1
if not rs_s2.eof then
do while not rs_s2.eof
rs_s2("name")
rs_s2.movenext
loop
end if
rs_s2.close
set rs_s2 = nothing
sql="select * from s1 inner join s2 on s1.id = s2.sid"
set rs_s1 = server.createobject("ADODB.Recordset")
sql = "select * from s1"
rs_s1.open sql,conn,1,1
do while not rs_s1.eof
set rs_s2 = server.createobject("ADODB.Recordset")
sql = "select * from s2 where sid="&rs_s1("id")
rs_s2.open sql,conn,1,1
do while not rs_s2.eof
rs_s2("name")
rs_s2.movenext
loop
rs_s1.movenext
loop