关于FoosunCMS SP4版站内消息问题

风讯官方论坛FoosunCMS交流区 插件讨论关于FoosunCMS SP4版站内消息问题

FoounCMS专用虚拟主机

海纳，专业采集软件——不用写规则的采集器！

1 / 1 页

跳转页

查看:998

标题: 关于FoosunCMS SP4版站内消息问题

深蓝~走X

个人空间 相册
组别:新手上路
性别:
来自:上海
积分:9
帖子:9
注册: 2007-08-07

2008-03-05 11:36 | 只看楼主

树型| 收藏| 小中大 1

斑竹，Foosuncms好像所有版本都有相同的一个问题，不知是不是BUG，关于会员中心那个“站内消息”，如果在发送消息时，把消息保存到发件箱或草稿箱，那么发件箱和草稿箱中的短信息无法正常删除。望哪位大侠出来解决解决！谢谢。

newstar NewStar工作室个人空间相册组别:版主性别: 生日:1977-1-10 来自:中国冬枣之乡积分:631 帖子:460 注册: 2004-08-11	2008-03-05 12:35 \| 树型\| 收藏\| 小中大 2 回复：关于FoosunCMS SP4版站内消息问题收录！　我核实下欢迎走近　中国冬枣之乡——沾化　http://www.zhanhua.gov.cn NewStar工作室　http://www.newzh.cn QQ：228770305 　风讯CMS　asp版交流群：11980260

newstar NewStar工作室个人空间相册组别:版主性别: 生日:1977-1-10 来自:中国冬枣之乡积分:631 帖子:460 注册: 2004-08-11	2008-03-05 18:03 \| 树型\| 收藏\| 小中大 3 回复：关于FoosunCMS SP4版站内消息问题无法删除的 Bug 已解决！^&^ 欢迎走近　中国冬枣之乡——沾化　http://www.zhanhua.gov.cn NewStar工作室　http://www.newzh.cn QQ：228770305 　风讯CMS　asp版交流群：11980260

NewStar工作室

个人空间 相册
组别:版主
性别:
生日:1977-1-10
来自:中国冬枣之乡
积分:631
帖子:460
注册: 2004-08-11

2008-03-05 18:17 |

树型| 收藏| 小中大 4

回复: 关于FoosunCMS SP4版站内消息问题

\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

欢迎走近　中国冬枣之乡——沾化　http://www.zhanhua.gov.cn
NewStar工作室　http://www.newzh.cn
QQ：228770305 　风讯CMS　asp版交流群：11980260

lnan3 深蓝~走X 个人空间相册组别:新手上路性别: 来自:上海积分:9 帖子:9 注册: 2007-08-07	2008-04-04 00:50 \| 只看楼主树型\| 收藏\| 小中大 5 回复：关于FoosunCMS SP4版站内消息问题感谢斑竹的顶力支持,谢谢

深蓝~走X

个人空间 相册
组别:新手上路
性别:
来自:上海
积分:9
帖子:9
注册: 2007-08-07

2008-04-07 12:53 | 只看楼主

树型| 收藏| 小中大 6

回复：关于FoosunCMS SP4版站内消息问题

兄弟你好,我按照你修改后的代码今日更新了一下,保存在发件箱里的邮件能正常删除了,但经过测试发现如下问题：
假设：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 支持

lnan3 最后编辑于 2008-04-07 13:13:50

newstar NewStar工作室个人空间相册组别:版主性别: 生日:1977-1-10 来自:中国冬枣之乡积分:631 帖子:460 注册: 2004-08-11	2008-04-07 16:09 \| 树型\| 收藏\| 小中大 7 回复：关于FoosunCMS SP4版站内消息问题 ^&^ 小地方　有大问题　我再仔细查下 newstar 最后编辑于 2008-04-07 16:11:54 欢迎走近　中国冬枣之乡——沾化　http://www.zhanhua.gov.cn NewStar工作室　http://www.newzh.cn QQ：228770305 　风讯CMS　asp版交流群：11980260

newstar NewStar工作室个人空间相册组别:版主性别: 生日:1977-1-10 来自:中国冬枣之乡积分:631 帖子:460 注册: 2004-08-11	2008-04-08 08:43 \| 树型\| 收藏\| 小中大 8 回复：关于FoosunCMS SP4版站内消息问题 FS4.05站内消息模块最新修复 http://bbs.foosun.net/showtopic-71792.aspx 请测试后反馈！欢迎走近　中国冬枣之乡——沾化　http://www.zhanhua.gov.cn NewStar工作室　http://www.newzh.cn QQ：228770305 　风讯CMS　asp版交流群：11980260

<<上一主题|下一主题>>

1 / 1 页

跳转页