表单提交代码
我现在有一个表单需要提交的数据库,我有一段代码不知道怎样修改,请大家给我指点一下,十分感谢
<%
'加载数据库
Dim Db,Conn,Connstr,rs,sql
Set conn = Server.CreateObject("ADODB.Connection")
db="../date/#527e37c6bb6bssbbb4.mdb"
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Conn.Open Connstr
'接收name=user的数据
user=request.form("user")
'绑定记录集
set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from 表名"
rs.open sql,conn,1,3
'开始上传数据
rs.addnew
rs.("user")=user 'rs.("user")中的user是你数据库中的字段名, 看情况修改
rs.update
rs.close
%>
请大家帮我修改一下,谢谢