ASP对ACCESS的操作!

Set Rs = Server.Createobject("ADODB.Recordset")
Sql = "Select * From 表1 Where 表1中字段=1"
Rs.Open Sql,Conn,1,1
While Not Rs.Eof
Sql="Insert Into 表2 表2的字段=rs("表1中等于1的字段")
Rs.Open Sql,Conn,1,1 'Conn 要定义好先
Rs.Movenext
Wend
Rs.Close

如果表2是未先建好的，也就是说要通过查询表1来确定表2的字段
那么，我认为应该这们做（可能这种做法比较笨）：
先确定哪些字段含有1
sql="select * from 表1"
rs.open sql,conn,1,1
while not rs.eof
用swich判断哪些字段的值为1
最好把这些值用数组装着，方便下面插入在表2中
确定字段后就可以建表
creat table 表2 列名
然后就可以把得到的值插入到表2中

sql="insert into 目标数据表 select * from 源数据表 where 条件" (把源数据表的记录添加到目标数据表)

如果你会SQL语句的话，我想你应该能看明白这些，并且也应该能解决你的问题了，如果实在不明白，就加我QQ吧！

QQ：274936863

150诱人啊,我忘了.你给我邮箱发个邮件吧.我把ASP大部分代码给你发多去.那是我上大学老师给我们发的.a7913589@163.com

最笨的方法
set rs=server.createobject("adodb.recordset")
sql="select * from table where 字段=1"
rs.open sql,con,1,1