ASP中表单直接提交到数据库的代码怎么写

首先是连接到数据库
其次是对数据的操作
最后是关闭数据库

具体例子网上很多这里我就转一个别人的：

sqlstr="select * from message" ---- >(message为数据库中的一个数据表，即你要显示的
数据所存放的数据表)
rs.open sqlstr,conn,1,3 ---- >(表示打开数据库的方式) rs.addnew 新增加一条记录
rs("name")="xx" 将xx的值传给name字段 rs.update 刷新数据库
------------------------------------------------------ rs.close
conn.close 这几句是用来关闭数据库 set rs=nothing set conn=nothing
------------------------------------------------------- % >
.<4 >删除一条记录
删除数据库记录主要用到rs.delete,rs.update
< !--#include file=conn.asp-- > (包含conn.asp用来打开bbs\db1\目录下的user.mdb数据 库) < %
dim name name="xx"
set rs=server.CreateObject("adodb.recordset") (建立recordset对象)
sqlstr="select * from message" ---- >(message为数据库中的一个数据表，即你要显示的数据所存放的数据表)
rs.open sqlstr,conn,1,3 ---- >(表示打开数据库的方式) ------------------------------------------------------- while not rs.eof
if rs.("name")=name then rs.delete
rs.update 查询数据表中的name字段的值是否等于变量name的值"xx"，如果符合就执行删 除，
else 否则继续查询,直到指针到末尾为止 rs.movenext emd if wend
------------------------------------------------------ ------------------------------------------------------ rs.close
conn.close 这几句是用来关闭数据库 set rs=nothing set conn=nothing
------------------------------------------------------- % >

http://wenku.baidu.com/link?url=vya_shXfg3kgqbPvq-SfsIoAV7qZaf9XY2RsOQOCpwrt1Pr1yHMFKtQYnCgu8ExK0H-9LsgXWUpQ7FmEuN_a95gWD0cChMqPneQFyaHVgMK

Set conn = server.CreateObject("ADODB.Connection")
connstr = "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("你的数据库")
conn.open connstr
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from 表格"
rs.open sql,Conn,1,3
rs.addnew
rs("radiobutton")=Request.Form("radiobutton")
rs("textfield2")=Request.Form("textfield2")
rs("textfield3")=Request.Form("textfield3")
rs.Update
rs.Close
Set rs = Nothing

建立execute.asp页面，内容如下
<%
Set conn = server.CreateObject("ADODB.Connection")
connstr = "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("数据库名")
conn.open connstr
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from 表格"
rs.open sql,Conn,1,3
rs.addnew
rs("radiobutton")=Request.Form("radiobutton")
...
...
...
rs.Update
rs.Close
response.write"ok"
Set rs = Nothing

Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open "select * from name",conn,1,3
rs.addnew
rs("name")=name
rs("age")=age
rs.update '加个更新
set rs=nothing
conn.close
set rs=nothing
%>
好像没有 rs.update

用insert语句