表单提交后不能写入数据库

chierhuo 2006-09-04 03:46:47
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值
...全文
57 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
chierhuo 2006-09-12
  • 打赏
  • 举报
回复
谢谢
eduxh 2006-09-04
  • 打赏
  • 举报
回复
楼上正解,楼主还没打开表呢
sy_binbin 2006-09-04
  • 打赏
  • 举报
回复
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")
sql = "select * from 表名"
rs.open sql,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

28,391

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧