急 啊！！！！！
从数据库表A中的提取了字段news_id, 条数不限，分别是
1
2
3
4
5
。。。
10

如何将提取的这些数字生成内容 1|2|3|4|5|...|10, 并将这个内容写入到表B中的ccid字段呢
拜托各位了，给个详细代码吧



[ 本帖最后由 cncnok 于 2014-5-3 12:26 编辑 ]

就是指用某个表中内容作为字段名，生成另一个表？

行变列？

提取A表中的字段 news_id,
1
2
3
....
10

将读取的内容生成为  1|2|3|...|10 这种样式, 并将这个内容写入到 B 表中的 ccid.
拜托了

<%
    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",conn,3,3
    sql="create table b(ccid integer primary key,"   '创建b表并且设置ccid为主键
    while not rs1.eof  
      sql=sql & rs1("news_id") & " text(100),"       '读取news_id记录作为b表字段，全部按文本处理
      rs1.movenext
    wend
    sql=left(sql,len(sql)-1) & ")"                   '去掉最后一个逗号
    rs1.close
    conn.execute sql                                 '执行sql语句创建b表
    conn.close
%>

怎么没有人帮我呢

现在才看清你的要求，太简单了
<%
    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
%>

叩谢！！叩谢！

呵呵，原来如此