set rs=server.createobject("adodb.recordset")

sql="select * from 基本库"

rs.open sql,conn,1,1

do while not rs.eof

set rs1=server.createobject("adodb.recordset")

sql1="select count(*) as num from 日志库 where ID="& rs("ID") 'ID为与基本库关联的字段

rs1.open sql1,conn,1,1

do while not rs1.eof

rs1.movenext

response.write rs("名称")&" "&rs1("num")  '输出内容

loop

rs.movenext

loop