V9.0x查看收费文章当设置为需要重复扣费并且扣费方式为积分时，不扣费的解决。-领先建站CMS提供服务商我们专注于CMS建站产品的研发

2711 查看	3 回复

主题：V9.0x查看收费文章当设置为需要重复扣费并且扣费方式为积分时，不扣费的解决。 [收藏主题]

转到：

科汛官方当前离线

47268 主题	145 广播	405 粉丝

级别:管理员

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

科汛官方发表于：2013/7/22 15:08:20 | 只看该作者查看该作者主题楼主

做线上考试培训就选#科汛网校

问题如题：

解决方法：

打开ks_cls/Kesion.StaticCls.asp 找到856行

case 2
      If KS.ChkClng(PayPoint)>0 Then Call KS.ScoreInOrOut(KSR.Node.SelectSingleNode("@inputer").text,1,KS.ChkClng(PayPoint),"系统",TcMsg,0,0)
   Session("ScoreHasUse")="+" '设置只累计消费积分
      Call KS.ScoreInOrOut(KSUser.UserName,2,KS.ChkClng(ReadPoint),"系统",Descript,ChannelID,ID)
   Call GetContent()

修改为

case 2
      If KS.ChkClng(PayPoint)>0 Then Call KS.ScoreInOrOut(KSR.Node.SelectSingleNode("@inputer").text,1,KS.ChkClng(PayPoint),"系统",TcMsg,0,0)
   Session("ScoreHasUse")="+" '设置只累计消费积分
   session("scoremustin")="true"
      Call KS.ScoreInOrOut(KSUser.UserName,2,KS.ChkClng(ReadPoint),"系统",Descript,ChannelID,ID)
   Call GetContent()

即增加上面红色的代码。

KesionCMS,,

做新职业技能培训平台就选#科汛网校