28,390
社区成员
发帖
与我相关
我的任务
分享
<%
delMsg=Request.Form("DeleteThisMessage")
chkMsg=Request.Form("CheckMessage")
if len(delMsg)>0 and len(chkMsg)>0 then
set rs=conn.Execute("select * from 消息板 where ID="&chkMsg)
response.write rs.eof&" //TRUE还是FALSE?<br>"'调试用
if rs.eof then response.write "记录集没内容": response.end
response.write Session("user")&" //空的吗?<br>"'调试用
if len(Session("user"))=0 then response.write "重新登录吧": response.end
if rs("发送者") =Session("user") then
conn.Execute"delete from 消息板 where ID in ("&chkMsg&")"
end if
end if
if err=0 then
response.write"<font color=blue>操作成功!</font>"
else
response.write"<font color=red>操作失败!</font>"
response.write err.description
end if
%>