<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("staffinfo.mdb")
if request.Form("update")="保存" then
strname= request.form("name")
strsex= request.form("sex")
strbirthday= request.form("birthday")
strdegree= request.form("degree")
stridcard1= request.form("idcard1")
straddress= request.form("address")
strhuji= request.form("huji")
strdept= request.form("dept")
strtime1= request.form("time1")
strtime2 = request.form("time2")
strtime3= request.form("time3")
strtime4= request.form("time4")
strremark= request.form("remark")
upsql="update staffinfo set name='"&strname&"',dept='"&strdept&"',time2='"&strtime2&"',time3='"&strtime3&"',time4='"&strtime4&"',remark='"&strremark&"'"&_
"where idcard= '"&stridcard1&"'"
conn.execute upsql
else
stridcard=request.querystring("idcard")
sqlup = "select * from staffinfo"
sqlup = sqlup &" where idcard="& trim(stridcard)
set rsu=server.createobject("adodb.recordset")
rsu.open sqlup,conn
%>
这里是一个表单<form></form>,表单中的数据是查询出来的记录,也就是记录集rsu的值,表单提交跳转到原来的页面.
<%end if%>
数据修改后表单提交,现在就是修改的处理程序upsql="update staffinfo set name='"&strname&"',dept='"&strdept&"',time2='"&strtime2&"',time3='"&strtime3&"',time4='"&strtime4&"',remark='"&strremark&"'"&_
"where idcard= '"&stridcard1&"'"
conn.execute upsql好像有问题,执行不了.
不知道这么样去修改,进行跟踪执行的时候发现stridcard的值已经有了的
參考答案:conn.execute(upsql)