您所在位置：主题：请教：为什么以下代码调试成功，但数据库中没有对数据更新？
linyz810
[专家分：0] 发布于 2005-10-07 09:00:00
<%
dim conn,rs,dbpath,dbid,sql
set conn=Server.CreateObject("ADODB.Connection")
dbpath=Server.MapPath("data1.mdb")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&dbpath
set rs=Server.CreateObject("ADODB.Recordset")
dbid=request("id")
sql="select * from it where id="&dbid
rs.open sql,conn,1 ,4
rs("hotclick")=rs("hotclick")+1
rs.Update
demo=replace(rs("demo"),chr(10)+chr(13),"<br>")
rs.updatebatch
%>
[em10][em10]
dim conn,rs,dbpath,dbid,sql
set conn=Server.CreateObject("ADODB.Connection")
dbpath=Server.MapPath("data1.mdb")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&dbpath
set rs=Server.CreateObject("ADODB.Recordset")
dbid=request("id")
sql="select * from it where id="&dbid
rs.open sql,conn,1 ,4
rs("hotclick")=rs("hotclick")+1
rs.Update
demo=replace(rs("demo"),chr(10)+chr(13),"<br>")
rs.updatebatch
%>
[em10][em10]