Question

asp删除记录代码

"PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" &

Server.MapPath("news.mdb")
conn.Open
set rs=server.CreateObject("ADODB.Recordset")
rs.open "select * from news",conn,3,2
%>
<table width="500" height="60" border="1" align="center">
<tr>
<td><%=rs(1).Name%></td>
<td><%=rs(3).Name%></td>
<td align=center>操作</td>
</tr>
<%do while not rs.eof%>
<%
newstitle=("title")
newsdate=("date")
%>
<tr>
<%id=rs("id")%>
<td><%=rs(1).Value%></td>
<td align=center><%=date%></td>
<td align=center><a href="linkdel.asp?=<%=id%>">删除</a></td>
</tr>
<%
rs.movenext
loop
%>
</table>
<p align="center">共有新闻<%=rs.RecordCount%>条。</p>
</body>
</html>
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("news.mdb")
conn.Open
exec="delete * from news where newstitle="&request.querystring("id")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,3,2
response.redirect("删除成功")
%>
错误类型：
Microsoft JET Database Engine (0x80040E14)
语法错误 (操作符丢失) 在查询表达式 'newstitle=' 中。
/My News Released System/linkdel.asp, 第 7 行

怎么修改？？？？

Answer 1

不知道是否是你写错的。<a href="linkdel.asp?=<%=id%>">删除</a>应该要加上一个变量 <a href="linkdel.asp?id=<%=id%>">删除</a>
再有这句
exec="delete * from news where newstitle="&request.querystring("id")
如果你的id是自动编号或者数字类型的是你这种写法，如果是文本类型那么应该写成
exec="delete * from news where newstitle='"&request.querystring("id")&"'"

Answer 2

"PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" &

Server.MapPath("news.mdb")
conn.Open
set rs=server.CreateObject("ADODB.Recordset")
rs.open "select * from news",conn,3,2
%>
<table width="500" height="60" border="1" align="center">
<tr>
<td><%=rs(1).Name%></td>
<td><%=rs(3).Name%></td>
<td align=center>操作</td>
</tr>
<%do while not rs.eof%>
<%
newstitle=rs("title")
newsdate=rs("date")
%>
<tr>
<%id=rs("id")%>
<td><%=rs(1).Value%></td>
<td align=center><%=date%></td>
<td align=center><a href="linkdel.asp?=<%=id%>">删除</a></td>
</tr>
<%
rs.movenext
loop
%>
</table>
<p align="center">共有新闻<%=rs.RecordCount%>条。</p>
</body>
</html>
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("news.mdb")
conn.Open
exec="delete * from news where newstitle="&request.querystring("id")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,3,2
response.redirect("删除成功")
%>

Answer 3

exec="delete * from news where newstitle="&request.querystring("id") 错误。
改为
dim id1
id1=request.querystring("id")
exec="delete * from newd where newstitle='"&id1&"'"
错误原因：
语言错误。