
做的ASP提示 无法从指定的数据表中删除 和 操作必须使用一个可更新的查询,怎么办?
三段代码如下:delete.asp<%Response.Buffer=TrueDimconnSetconn=Server.CreateObject("ADODB.Conn...
三段代码如下:
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
%> 展开
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
%> 展开
3个回答
展开全部
进入文件夹选项 然后点查看
把那个 “使用简单文件共享” 的那项的钩钩去掉(默认是打钩的)
这时候你在右键你的数据库文件
属性(会多出一个叫“安全"的选项)
选择“安全”选项卡,选中“Users”,这是IIS使用的用户。
在“完全控制”一行的“允许”勾上。点击确定就OK了
把那个 “使用简单文件共享” 的那项的钩钩去掉(默认是打钩的)
这时候你在右键你的数据库文件
属性(会多出一个叫“安全"的选项)
选择“安全”选项卡,选中“Users”,这是IIS使用的用户。
在“完全控制”一行的“允许”勾上。点击确定就OK了
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询