表单提交后不能写入数据库
Dim db,conn,connstr
db="cusdata.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="DBQ="+server.mappath("db")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.open connstr
set rs=server.createobject("adodb.recordset")
rs.open customer,conn,1,3
rs.addnew
rs("phonenumber")=request("phone")
rs("name")=request("personame")
rs("emailadd")=request("email")
rs("infor")=request("information")
rs.update
set rs=nothing
conn.close
set conn=nothing
phone,personame,email,information这些是表单的name值