我的一个ASP页面怎么实现写入数据库啊?

1、你的表单应包含在

中并且，性别中的两个option要指定值















2、以下是save.asp
<%name=trim(request.form("T1"))
age=trim(request.form("T2"))
sex=trim(request.form("D1"))

dim conn,db
dim connstr
db="db.mdb" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if

sql="select * from person"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
rs.addnew
rs["name"]=neme '其中name是person的字段
rs["age"]=age '同上
rs["sex"]=sex '同上
rs.update
rs.close
set rs=nothing
set conn=nothing
%>

原文件(已修改过,请看注释):

addnew.asp 用于将数据插入数据的文件
<%
on error resume next
set conn=server.createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("./") & "\db.mdb"
set rs=server.createobject("adodb.recordset")

fname=request.Form("name")
fage=request.Form("age")'注意,假设数据库中的数据类型为"数字型"的
fsex=request.Form("sex")

sql="insert into person values('"&fname&"',"&age&",'"&sex&"')"
rs.open sql,conn
if err.number<>0 then
response.write(err.Description)
else
response.write("插入成功!")
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

先连接数据库,得到conn对象
Dim strSql
strSql =
"INSERT INTO 表名(姓名，年龄，性别) VALUES('"& Request.Form("T1")&"','"&Request.Form("T2")&"','"& Request.Form("D1")&"')"
执行conn.Execute(strSql)后将记录加入数据库中