UC知道asp提交写入数据库问题
来源：百度知道 编辑：UC知道 时间：2024/05/10 04:52:53
现在我有一个程序，程序结束后需要在A表里的A5提交数字1,请付详细代码，本人比较菜，谢谢，下面的代码自己瞎弄的，反正出错了，请教高手给个正确的详细点的。
<%
set rsadd=server.createobject("ADODB.recordset")
Application.UnLock()
rsadd.Open "A",conn,3,3
rsadd.AddNew
rsadd("A5")=1
rsadd.Update
Application.UnLock()
end if
%>
这个文件的地址为AAA.ASP?ID=123 现在是程序结束后在A表里的ID为123的那个对应的A5提交数字1
<%
set rsadd=server.createobject("ADODB.recordset")
Application.UnLock()
rsadd.Open "A",conn,3,3
rsadd.AddNew
rsadd("A5")=1
rsadd.Update
Application.UnLock()
end if
%>
这个文件的地址为AAA.ASP?ID=123 现在是程序结束后在A表里的ID为123的那个对应的A5提交数字1
如下：
<!--#include file="conn.asp"-->
<%
Application.Lock()
set MyRs=Server.CreateObject("ADODB.recordset")
sql="Insert Into A (A5) Values('1') where id=123"
MyRs.open sql,conn,3,2
Application.UnLock()
%>
conn.asp文件可以这样写：
<%
dim conn
dim connstr
connstr="DBQ="+server.mappath("数据库路径和数据库名称")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>
<%
我认为应该这样;
id=request("id")
set rsadd=server.createobject("ADODB.recordset")
Application.Lock()
aql="select * from A where id='"&id&"'"
rsadd.Open sql,conn,3,3
rsadd.AddNew
rsadd("A5")=1
rsadd.Update
Application.UnLock()
end if