Microsoft JET Database Engine 错误 '80004005' 操作必须使用一个可更新的查询。 /bbs/egister.asp，行 5

Question

<%
promotion=request("promotion")
if request.Form<>"" then
UserName=Request.Form("UserName")
if strLength(UserName)>10 then response.Redirect "error.asp?info=用户名长度大于10个字符！"
password=request.Form("password")
Email=Request.Form("Email")
HomePage=Trim(Request.Form("HomePage"))
qq=request.Form("QQ")
sex=Request.Form("sex")
Face=Request.Form("Face")
tjr=Request.Form("tjr")
phone=Request.Form("phone")
rname=Request.Form("rname")
shopnote=Request.Form("shopnote")
address=Request.Form("address")
czm=request.form("czm")
if Request.Form("faceheight")="" then
faceheight=0
else
faceheight=Request.Form("faceheight")
end if
if Request.Form("facewidth")="" then
facewidth=0
else
facewidth=Request.Form("facewidth")
end if
if rs11("faceupload") then myface=Request.Form("myFace")
if homepage="http://" then homepage=""
Set rs=server.createobject("ADODB.RECORDSET")
rs.open "Select * From register where username='" & request("username")& "' and webid='"&session("webid")&"'" ,Conn,3,3
if rs.eof then
sql="Insert Into register (username,password1,mail,homepage,face,sex,webid,qq,myface,faceheight,facewidth,count1,level1,tjr,phone,rname,shopnote,address,czm) Values('"& UserName&"','"& md5(password)&"','"&email&"','"&homepage&"','"&face&"','"&sex&"','"&session("webid")&"','"&qq&"','"&myface&"',"&faceheight&","&facewidth&",0,'网友','"&tjr&"','"&phone&"','"&rname&"','"&shopnote&"','"&address&"','"&czm&"')"
conn.Execute sql
cookiePath=request.servervariables("path_info")
cookiePath=left(cookiePath,instrRev(cookiePath,"/"))
response.cookies("ly").Path=cookiePath
response.cookies("ly")("useridname")=username
response.cookies("ly")("useridpassword")=password
else
response.Redirect "error.asp?info=用户名已存在！"
end if
sqlr="update register set jifei=jifei+10 where username='"&promotion&"'"
conn.execute sqlr<!--这是第57行 -->

session("useridname")=request("username")
session("webid")=session("webid")
session("useridpassword")=md5(password)
response.Redirect("../user.asp")
rs.close
set rs=nothing

conn.close
set conn=nothing
response.end
end if
%>

Answer 1

数据库文件访问权限的问题，首先要确保你的数据库文件的属性是可写的，
根据操作系统不同，还要设置匿名用户（也有everyone）的权限为编辑就可以了。