高考问答南优贤solo销量:asp更新数据库的问题，请指教！
来源：百度文库 编辑：高考问答 时间：2024/04/28 00:58:41
运行提示错误为：Microsoft JET Database Engine 错误 '80004005' 操作必须使用一个可更新的查询。
实现功能为：从表fadd中查询ip,有的话让num字段加1，没有显示无权访问！
代码为：
<%ip=request.servervariables("remote_addr")
Set Con=Server.CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\media.mdb"
set rs=server.createobject("ADODB.Recordset")
mysql="select * from fadd where ip_add='"&ip&"'"
rs.open mysql,con
if not rs.eof then
session("logon")=1
set rs=server.createobject("ADODB.Recordset")
mysql="update fadd set num=num+1 where ip_add='"&ip&"'"
rs.open mysql,con
else%>
<script language="javascript">
<!--
alert("对不起，你无权访问该页面！")
this.window.close()
-->
</script>
<%end if%>
实现功能为：从表fadd中查询ip,有的话让num字段加1，没有显示无权访问！
代码为：
<%ip=request.servervariables("remote_addr")
Set Con=Server.CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\media.mdb"
set rs=server.createobject("ADODB.Recordset")
mysql="select * from fadd where ip_add='"&ip&"'"
rs.open mysql,con
if not rs.eof then
session("logon")=1
set rs=server.createobject("ADODB.Recordset")
mysql="update fadd set num=num+1 where ip_add='"&ip&"'"
rs.open mysql,con
else%>
<script language="javascript">
<!--
alert("对不起，你无权访问该页面！")
this.window.close()
-->
</script>
<%end if%>
这个问题是因为你的ACCESS数据库所在文件的目录权限问题，一般在NTFS磁盘下才会出现这个问题，只要将数据库所在目录的权限加一个everyone可写的权限就可以了。