asp向Access数据库写入数据

 

<%@ CODEPAGE=65001 %>
<%
 Response.CodePage=65001
 Response.Charset="UTF-8"

set conn=server.createobject("adodb.connection")
'DateBase = "/aspweb/register.mdb"
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("register.mdb")

//接收参数
Dim name //宝宝姓名
name=Request.Form("babyname")

Dim tel //联系电话
tel=Request.Form("telephone")

Dim eml //email
eml=Request.Form("email")

exec="insert into registerTable(BabyName,Telephone,Email)values('"+name+"',"+tel+",'"+eml+"')"
conn.execute exec
conn.close
set conn=nothing

%>