lnan3 - 2008-3-5 11:36:00
斑竹，Foosuncms好像所有版本都有相同的一个问题，不知是不是BUG，关于会员中心那个“站内消息”，如果在发送消息时，把消息保存到发件箱或草稿箱，那么发件箱和草稿箱中的短信息无法正常删除。望哪位大侠出来解决解决！谢谢。
newstar - 2008-3-5 12:35:00
收录！ 我核实下
newstar - 2008-3-5 18:03:00
无法删除的 Bug
已解决！^&^
newstar - 2008-3-5 18:17:00
\User\Message_box.asp 34-55行
if Trim(Request.Form("strAction")) = "drabox" then
User_Conn.execute("Delete From FS_ME_Message where MessageId in ("&DelID&") and M_FromUserNumber ='"& Fs_User.UserNumber&"'")
Elseif Trim(Request.Form("strAction")) = "sendbox" then
Dim RsTFSQL,RsTFObj
Set RsTFObj = Server.CreateObject(G_FS_RS)
RsTFSQL = "Select isDelR From FS_ME_Message where MessageId in ("&DelID&") "
RsTFObj.Open RsTFSQL,User_Conn,1,3
if RsTFObj("isDelR") = 1 then
User_Conn.execute("Delete From FS_ME_Message where MessageId in ("&DelID&")")
Else
User_Conn.execute("Update FS_ME_Message set isDelF = 1 where MessageId in ("&DelID&") and M_FromUserNumber ='"& Fs_User.UserNumber&"'")
End if
Elseif Trim(Request.Form("strAction")) = "rebox" then
Dim RsTFSQL1,RsTFObj1
Set RsTFObj1 = Server.CreateObject(G_FS_RS)
RsTFSQL1 = "Select isDelF,isSend,isDraft From FS_ME_Message where MessageId in ("&DelID&") "
RsTFObj1.Open RsTFSQL1,User_Conn,1,3
if int(RsTFObj1("isDelF")) = 1 or (RsTFObj1("isSend") = 0 and RsTFObj1("isDraft")=0) then
User_Conn.execute("Delete From FS_ME_Message where MessageId in ("&DelID&") and M_ReadUserNumber ='"& Fs_User.UserNumber&"'")
Else
User_Conn.execute("Update FS_ME_Message set isDelR = 1 where MessageId in ("&DelID&") and M_ReadUserNumber ='"& Fs_User.UserNumber&"'")
End if
lnan3 - 2008-4-4 00:50:00
感谢斑竹的顶力支持,谢谢
lnan3 - 2008-4-7 12:53:00
兄弟你好,我按照你修改后的代码今日更新了一下,保存在发件箱里的邮件能正常删除了,但经过测试发现如下问题：
假设：A用户发消息给B用户,在发送时A选择把消息保存到发件箱。在删除时会出现如下情况，
1,用户A先删除掉发件箱里的消息，则用户B在收件箱中进行删除操作时会报如下错误
2,用户B先删除掉收件箱里的消息，用户A再到发件箱里删除相同消息时，也会报如下浏览器错误！
提示51行错误
if int(RsTFObj1("isDelF")) = 1 or (RsTFObj1("isSend") = 0 and RsTFObj1("isDraft")=0) then
浏览器报告如下:
技术信息（用于支持人员）
错误类型：
(0x80020009)
发生意外。
/User/Message_box.asp, 第 51 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)
网页：
POST 105 ??? /User/Message_box.asp
POST Data:
MessageID=15&chkall=checkbox&Action=Del&strAction=rebox&Submit=%C9%BE%B3%FD%D1%A1%D6%D0%B5%C4%B6%CC%D0%C5
时间：
2008年4月7日, 下午 12:51:22
详细信息：
Microsoft 支持
newstar - 2008-4-7 16:09:00
^&^ 小地方 有大问题
我再仔细查下
newstar - 2008-4-8 08:43:00