账号通
    

账号  

密码  

2725

查看

3

回复
主题:6.x版本简化收费文章提示确认的修改方法 [收藏主题] 转到:  
科汛官方 当前离线

47268

主题

145

广播

405

粉丝
添加关注
级别:管理员

用户积分:101604 分
登录次数:7935 次
注册时间:2006/12/7
最后登录:2023/12/14
科汛官方 发表于:2010/3/22 11:18:00   | 显示全部帖子 查看该作者主题 楼主 
科汛在线商城系统(NET)

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

点击浏览下一页

 

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

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

打开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

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.56494秒 powered by KesionCMS 9.0