我想把表单中的数据加入ACESS数据库，并且已经在ODBC中做好了系统DSN配置
<% language = vbscript%>
<% if request.querystring("action")="add" then
dim conn
set conn = server.createobject("adodb.connection")
conn.open "ceshi"

dim rs
set rs=server.createobject("adodb.recordset")
rs.open "select * from ceshi",conn,adlockoptimistic,adopendynamic

rs.addnew()
        rs.fields("neirong") = request.form("S1")
        rs.update()
        if not(conn.errors.count > 0) then    
            response.write "您的数据已经提交！"
            response.write "

[返回]

"

end if
else
%>

 

<% end if %>

这样应该没错了吧
<% language = vbscript%>
<% if request.querystring("action")="add" then
dim conn
set conn = server.createobject("adodb.connection")
conn.open "ceshi"

dim rs
set rs=server.createobject("adodb.recordset")
rs.open "select * from ceshi",conn,adlockoptimistic,adopendynamic

rs.addnew()
        rs.fields("neirong") = request.form("S1")
        rs.update()
        if not(conn.errors.count > 0) then    
            response.write "您的数据已经提交！"
            response.write "

[返回]

"

end if %>
<% else %>

 

<% end if %>