删除数据出错啊!

[SKIN007]

出错信息:

Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e14'
[Microsoft][ODBC SQL Server Driver][SQL Server]第 1 行: '=' 附近有语法错误。
/dgkj/personal/messenger_del.asp，行6


代码如下:

<!--#include file=../data/conn.asp-->
<%
if request("del")="" then
set rs=server.createobject("adodb.recordset")
sql="delete from messenger where messenger_id = "&request("messenger_id")
conn.Execute(sql)
rs.Open sql,conn,1,3
rs.close
set rs=nothing
response.Write("信息删除成功")
else
response.Write("信息删除失败")
end if
%>

[lairui1232000]

刚改 的 ，估计不会出错了

[kmiaoer]

if request("del") <>"" then

response.Write("信息删除失败")
end if

set rs=server.createobject("adodb.recordset")
sql="delete from messenger where messenger_id = "&request("messenger_id")
rs.Open sql,conn,1,3
conn.Execute(sql)
rs.close
set rs=nothing
response.Write("信息删除成功")

[kmiaoer]

我给你该了一下看看行不~~
如果还不行的话。你最好先打印出来SQL语句看看是不是语句的错误。如果不是在一步一步从程序找

[jiewenxu]

需要对必要的值进行检查啊
这种问题基本上就是request("messenger_id")为空了

<!--#include file=../data/conn.asp-->
<%
if request("del")="" then
If IsNumeric(request("messenger_id")) Then
sql="delete from messenger where messenger_id = "& request("messenger_id")
conn.Execute(sql)
response.Write("信息删除成功")
Else
response.Write("信息删除失败,错误的参数")
End If
else
response.Write("信息删除失败")
end if
%>

[wansai00]

代码里没看出什么错误来， 不过

rs.Open sql,conn,1,3
rs.close

这几句是做什么用的， 代码浪费

[popsn]

sql="delete from messenger where messenger_id = "&Cint(request("messenger_id"))

[罗罗的洋洋]

[Microsoft][ODBC SQL Server Driver][SQL Server]第 1 行: '=' 附近有语法错误。
那就是sql语句执行时出错,应该是上面的几位朋友解答的原因:
sql="delete from messenger where messenger_id = "&request("messenger_id")
语句中request("messenger_id")并没有接收到值,
请在该条语句后加入以下语句:
response.write sql
response.end
看看是不是拼出了"delete from messenger where messenger_id ="
如果request("messenger_id")得不到值的话,这样的sql语句就是
...
'=' 附近有语法错误

[yuanhongguo]

好多热情的人,我在究竟动网有兴趣的加我.QQ:109908564

[wcwtitxu]

request("messenger_id") 没有传过来
Response.write request("messenger_id") 看看

[SKIN007]

只是显示messenger_id,没有它啊!想问一下,要好像删除电子邮件那样,有选择性的删除请问怎样才能实现啊!

[SKIN007]

请问一下啊!怎样才能获取messenger_id,啊!

[jiewenxu]

在每条信息后加个checkbox就可以了

[SKIN007]

我已经加了啊!DEL就是checkbox,但还是不行啊!

[wcwtitxu]

假设 messenger_id 为数字型

"delete from messenger where messenger_id in ("& request("messenger_id") & ")"

[SKIN007]

是request("messenger_id")里的messenger_id里的值没有传过来请问怎样才能传过来啊!能否提供一下代码参考一下啊!request("messenger_id")是空的啊!

[SKIN007]

<!--#include file=../data/conn.asp-->
<%
messenger_id=replace(request("messenger_id")," ","")
if messenger_id<>"" then
set rs=server.createobject("adodb.recordset")
sql="delete from messenger where messenger_id in("& messenger_id &")"
conn.execute(sql)
response.write"删除成功"
else
response.write"删除失败"
end if
%>



<input name="del" type="checkbox" id="del" value="<% =rs("messenger_id")%>" />

[SKIN007]

上面的代码也是会出错的啊!

[craft001wen]

缺少 'End' ,肯定你上面还有个IF没有用END IF结束,你下面的代码也有错
改为:
<%
if request("del")<>"" then
set rs=server.createobject("adodb.recordset")
sql="delete from messenger where messenger_id = "&request("messenger_id")
rs.Open sql,conn,1,3
rs.delete
rs.update
rs.close
set rs=nothing
end if
if Error Then
Error.Clear
response.Write("信息删除失败")
else
response.Write("信息删除成功")
end if
%>

[craft001wen]

对了,rs.Open sql,conn,1,3,你可能写错了,把o写成了0,改为:
rs.open sql,conn,1,3

[htpower]

<!--#include file=../data/conn.asp-->
<%
if request("messenger_id")="" then
response.Write "<script>window.alert('请选择要删除的信息');location.replace('网页地址');</script>"
response.end
end if
if request("del")="" then
sql="delete from messenger where messenger_id = "&cstr(request("messenger_id"))
conn.Execute(sql)
response.Write "<script>window.alert('删除成功');location.replace('网页地址');</script>"
response.end
else
response.Write "<script>window.alert('删除失败');location.replace('网页地址');</script>"
response.end
end if
%>