以下是引用xzlxzlxzl在2014-5-4 22:30:16的发言：

现在才看清你的要求，太简单了
<%
    set conn=server.CreateObject("adodb.connection")
    conn.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("..\db\db.mdb")
    conn.open()
    rs1.open "select * from a order by id",conn,3,3
    a=""
    while not rs1.eof  
      a=a & rs1("news_id") & "|"
      rs1.movenext
    wend
    rs1.close
    a=left(a,len(a)-1) & ")"                   '去掉最后一个|号
    rs1.open "select * from b",conn,3,3
    rs1.addnew
    rs1("ccid")=a
    rs1.updata
    rs1.close
    conn.close
%>