6.x版本简化收费文章提示确认的修改方法

科汛系统默认情况在用户查看需要收费扣点的文章时,会让用户确认是否查看,如下图

但部分网站不想出现如上提示,而是如果用户的可用点数充足就直接扣掉用户点数,直接查看.

下面我就给大家说说如何修改

打开ks_cls/kesion.staticcls.asp,找到800行左右的如下代码

 If PayTF="1" Then
      IF Cbool(KS.PointInOrOut(ChannelID,ID,KSUser.UserName,2,ReadPoint,"系统","阅读收费" & KS.C_S(ChannelID,3) & "“" & KSR.Node.SelectSingleNode("@title").text & "”",0))=True Then
       '支付投稿者提成
       Dim PayPoint:PayPoint=(ReadPoint*KS.C_C(KSR.Tid,11))/100
       If PayPoint>0 Then
       Call KS.PointInOrOut(ChannelID,ID,KSR.Node.SelectSingleNode("@inputer").text,1,PayPoint,"系统",KS.C_S(ChannelID,3) & "“" & KSR.Node.SelectSingleNode("@title").text & "”的提成",0)
       End If
       Call GetContent()
      End If
     Else
      Content="<div align=center>阅读本文需要消耗 <font color=red>" & ReadPoint & "</font> " & KS.Setting(46) & KS.Setting(45) &",你目前尚有 <font color=green>" & KSUser.Point & "</font> " & KS.Setting(46) & KS.Setting(45) &"可用,阅读本文后，您将剩下 <font color=blue>" & KSUser.Point-ReadPoint & "</font> " & KS.Setting(46) & KS.Setting(45) &"</div><div align=center>你确实愿意花 <font color=red>" & ReadPoint & "</font> " & KS.Setting(46) & KS.Setting(45) & "来阅读此文吗?</div><div>&nbsp;</div><div align=center><a href=""?"& PreContentTag & "-"&ID & "-" & ChannelID & "-" & CurrPage &"-" &"1"& Extension & """>我愿意</a>    <a href=""" &DomainStr & """>我不愿意</a></div>"
     End If

我们将他改成以下代码即可
      IF Cbool(KS.PointInOrOut(ChannelID,ID,KSUser.UserName,2,ReadPoint,"系统","阅读收费" & KS.C_S(ChannelID,3) & "“" & KSR.Node.SelectSingleNode("@title").text & "”",0))=True Then
       '支付投稿者提成
       Dim PayPoint:PayPoint=(ReadPoint*KS.C_C(KSR.Tid,11))/100
       If PayPoint>0 Then
       Call KS.PointInOrOut(ChannelID,ID,KSR.Node.SelectSingleNode("@inputer").text,1,PayPoint,"系统",KS.C_S(ChannelID,3) & "“" & KSR.Node.SelectSingleNode("@title").text & "”的提成",0)
       End If
       Call GetContent()
      End If
 

即删除上面红色的代码就可以了.这样用户点击收费文章时,就会自动扣掉点数,并查看收费信息了

不过,下载系统改的是文件item/download.asp,原理同上,即找到     If PayTF="yes" Then
      IF Cbool(KS.PointInOrOut(ChannelID,RSObj("ID"),KSUser.UserName,2,ReadPoint,"系统","下载收费" & KS.C_S(ChannelID,3) & "“" & RSObj("Title") & "”",0))=True Then
      '支付投稿者提成
       Dim PayPoint:PayPoint=(ReadPoint*KS.C_C(RSObj("Tid"),11))/100
       If PayPoint>0 Then
       Call KS.PointInOrOut(ChannelID,RSObj("ID"),RSObj("Inputer"),1,PayPoint,"系统",KS.C_S(ChannelID,3) & "“" & RSObj("Title") & "”的提成",0)
       End If
      Call GetContent()
      End If
     Else
      ShowInfoStr="<div align=center>下载本软件需要消耗 <font color=red>" & ReadPoint & "</font> " & KS.Setting(46) & KS.Setting(45) &",你目前尚有 <font color=green>" & KSUser.Point & "</font> " & KS.Setting(46) & KS.Setting(45) &"可用,下载本" & KS.C_S(ChannelID,3) & "后，您将剩下 <font color=blue>" & KSUser.Point-ReadPoint & "</font> " & KS.Setting(46) & KS.Setting(45) &"</div><div align=center>你确实愿意花 <font color=red>" & ReadPoint & "</font> " & KS.Setting(46) & KS.Setting(45) & "来下载本" & KS.C_S(ChannelID,3) & "吗?</div><div>&nbsp;</div><div align=center><a href=""?m=" &ChannelID & "&ID=" & ID & "&PayTF=yes&DownID=" & DownID & """>我愿意</a>    <a href=""" &DomainStr & """>我不愿意</a></div>"
     End If

改成

      IF Cbool(KS.PointInOrOut(ChannelID,RSObj("ID"),KSUser.UserName,2,ReadPoint,"系统","下载收费" & KS.C_S(ChannelID,3) & "“" & RSObj("Title") & "”",0))=True Then
      '支付投稿者提成
       Dim PayPoint:PayPoint=(ReadPoint*KS.C_C(RSObj("Tid"),11))/100
       If PayPoint>0 Then
       Call KS.PointInOrOut(ChannelID,RSObj("ID"),RSObj("Inputer"),1,PayPoint,"系统",KS.C_S(ChannelID,3) & "“" & RSObj("Title") & "”的提成",0)
       End If
      Call GetContent()
      End If