Question

做的ASP提示 无法从指定的数据表中删除 和 操作必须使用一个可更新的查询，怎么办？

三段代码如下：
delete.asp
<%
Response.Buffer=True
Dim conn
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Dbq="&Server.Mappath("wish.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"
Dim varlinker,strSql
varlinker=Request.QueryString("linker")
strSql="Delete From wishes Where linker=" & varlinker
conn.Execute(strSql)
Response.Redirect "index.asp"
%>

add.asp
<%
Dim varlinker
varlinker=Session("linker")
If Request.Form("name")<>"" And Request.Form("style")<>"" And Request.Form("wish")<>"" Then
Dim conn
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Dbq="&Server.Mappath("wish.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"
Dim varname,varstyle,varwish,strSql
varname=Request.Form("name")
varstyle=Request.Form("style")
varwish=Request.Form("wish")
StrSql="Update wishes Set name='" & varname & "',style='" & varstyle & "',wish='" & varwish & "' Where linker=" & varlinker
conn.Execute(strSql)
Response.Redirect "index.asp"
Else
Response.Write "请将所有信息填写完整"
Response.Write "<a href='index.asp'>重新修改</a>"
End If
%>

update.asp
<%
If Request.Form("name")<>"" And Request.Form("style")<>"" And Request.Form("wish")<>"" Then
Dim conn
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Dbq="&Server.Mappath("wish.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"
Dim strSql,varname,varstyle,varwish
varname=Request.Form("name")
varstyle=Request.Form("style")
varwish=Request.Form("wish")
StrSql="Insert Into wishes(name,style, wish,wish_date) Values('" & varname & "','" & varstyle & "','" & varwish & "',#" & Date() & "#)"
conn.Execute(strSql)
Response.Redirect "index.asp"
Else
Response.Write "请将所需信息填写完毕，"
Response.Write "<a href='wishing.asp'>继续许愿</a>"
End If
%>

Answer 1

进入文件夹选项 然后点查看
把那个 “使用简单文件共享” 的那项的钩钩去掉（默认是打钩的）

这时候你在右键你的数据库文件
属性（会多出一个叫“安全"的选项）

选择“安全”选项卡，选中“Users”，这是IIS使用的用户。
在“完全控制”一行的“允许”勾上。点击确定就OK了

Answer 2

你的数据库没有修改写入权限。

给数据库所在目录，和数据库文件加入everyone的修改写入权限。

右键--属性--安全选项

Answer 3

他们说得对，不说了