KesionCMS V9.0x会员中心删除文章，对应KS_ItemInfo 表里记录没有一并删除的修正。-领先建站CMS提供服务商我们专注于CMS建站产品的研发

2985 查看	4 回复

主题：[BUG修复]KesionCMS V9.0x会员中心删除文章，对应KS_ItemInfo 表里记录没有一并删除的修正。 [收藏主题]

转到：

科汛官方当前离线

47268 主题	145 广播	405 粉丝

级别:管理员

用户积分:101604 分
登录次数:7935 次
注册时间:2006/12/7
最后登录:2023/12/14
创始人

科汛官方发表于：2013/8/9 14:42:00 | 只看该作者查看该作者主题楼主

做官网就用科汛智能建站系统!

问题出现在在用户所在的用户组设置，允许删除已审核的文章时出现如题问题，解决方法；

以打开ks_cls/kesion.membercls.asp

找到

394行左右

If KS.ChkClng(KS.U_S(GroupID,1))=1 Then

Conn.Execute("Delete From " & KS.C_S(ChannelID,2) &" Where Inputer='" & UserName & "' And ID In(" & ID & ")")

Else

Conn.Execute("Delete From " & KS.C_S(ChannelID,2) &" Where Inputer='" & UserName & "' and Verific<>1 And ID In(" & ID & ")")

End If

Conn.Execute("Delete From KS_ItemInfo Where Inputer='" & UserName & "' and Verific<>1 and InfoID in(" & ID & ") and channelid=" & ChannelID)

改为

If KS.ChkClng(KS.U_S(GroupID,1))=1 Then

   Conn.Execute("Delete From " & KS.C_S(ChannelID,2) &" Where Inputer='" & UserName & "' And ID In(" & ID & ")")

   Conn.Execute("Delete From KS_ItemInfo Where Inputer='" & UserName & "' and InfoID in(" & ID & ") and channelid=" & ChannelID)

Else

   Conn.Execute("Delete From " & KS.C_S(ChannelID,2) &" Where Inputer='" & UserName & "' and Verific<>1 And ID In(" & ID & ")")

   Conn.Execute("Delete From KS_ItemInfo Where Inputer='" & UserName & "' and Verific<>1 and InfoID in(" & ID & ") and channelid=" & ChannelID)

End If

这样以后在会员中心删除文章就不会出现ks_iteminfo表没有删除的情况了。

KesionCMS,,

做考试题库就用#科汛在线考试系统!