<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("sj1.mdb")
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from test"
rs.open sqlstr,conn,1,3
if rs.eof then
rs.addnew
rs("name").value=name
rs("sex").value=sex
rs("age").value=age
rs("note").value=note
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
end if
response.write "记录添加成功!"
%>

这个.........
它确实只能加一条，你想加几条？

LZ这问题高

我想根据表传送来的数据，想添加就添加几条

一个表单你能传多少数据？

如果想同时添加到多个表中，你可以换种添加记录的方式

dim sql

sql="INSERT INTO 表(字段1，字段2)VALUES(值1，值2)"

conn.execute(sql)

使用循环啊，你想填加几条就循环几次不就行啦！

我想通过表单多添加几天记录，根据用户的情况!

你具体说明一下可以吗？太抽象了，我无法想象。你就说怎么根据用户的情况，用户的情况具体说一下.

就象邮箱注册一样，将用户的资料存入数据库中

你的程序不可以吗？可以啊，只要在rs.addnew里面多加几个字段就是了！