账号通
    

账号  

密码  

5026

查看

8

回复
主题:[分享]下载系统取消下载扣点提示 [收藏主题] 本贴被认定为精华 转到:  
一生有你 当前离线

10439

主题

0

广播

18

粉丝
添加关注
级别:版主

用户积分:72521 分
登录次数:1969 次
注册时间:2006/7/1
最后登录:2021/8/25
一生有你 发表于:2009/1/7 11:08:00   | 只看该作者 查看该作者主题 楼主 
科汛在线网校系统

如果软件要点数才可以下载.都会让用户确认的教程,有时候会让用户觉得反感.那么就动手吧.

打开download/download.asp,将如下代码

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

这样就能解决了!!!!

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
mt56 当前离线

4985

主题

53

广播

17

粉丝
添加关注
级别:版主

用户积分:23430 分
登录次数:1621 次
注册时间:2007/2/10
最后登录:2022/9/28
mt56 发表于:2009/3/23 9:44:00   | 只看该作者 查看该作者主题 沙发 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
cvq 当前离线

704

主题

0

广播

0

粉丝
添加关注
级别:六年级

用户积分:4700 分
登录次数:151 次
注册时间:2008/8/26
最后登录:2016/8/22
cvq 发表于:2009/3/22 23:22:00   | 只看该作者 查看该作者主题 藤椅 
科汛在线考试系统(NET)
我倒觉得没有提示反而让人反感,别人被扣了点都不知道,换作你也心里不爽吧。就如现在的文章系统,没有任何提示和确认。如果是收人民币的话,不被人骂作黑网站才怪。
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
xiaoyaoadu 当前离线

28

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:362 分
登录次数:26 次
注册时间:2009/3/18
最后登录:2009/10/14
xiaoyaoadu 发表于:2009/3/22 2:25:00   | 只看该作者 查看该作者主题 板凳 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
idtf 当前离线

105

主题

0

广播

0

粉丝
添加关注
级别:一年级

用户积分:1598 分
登录次数:160 次
注册时间:2008/12/1
最后登录:2010/8/15
idtf 发表于:2009/1/7 20:27:00   | 只看该作者 查看该作者主题 报纸 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
一生有你 当前离线

10439

主题

0

广播

18

粉丝
添加关注
级别:版主

用户积分:72521 分
登录次数:1969 次
注册时间:2006/7/1
最后登录:2021/8/25
一生有你 发表于:2009/1/7 20:10:00   | 只看该作者 查看该作者主题 地板 
科汛智能建站系统

回楼上

 

在download.asp

 

找到

 Response.Write "<script>window.setInterval(""window.close()"",3600);</script>" & vbCrLf
把3600改成0吧

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
idtf 当前离线

105

主题

0

广播

0

粉丝
添加关注
级别:一年级

用户积分:1598 分
登录次数:160 次
注册时间:2008/12/1
最后登录:2010/8/15
idtf 发表于:2009/1/7 16:04:00   | 只看该作者 查看该作者主题 7楼 
做在线知识付费 选科汛云开店

LZ你好,按你的方法做了,确实不出现点数提示了,但还是先打开一个系统提示的网页,然后才出现下载对话框,如下图
此主题相关图片如下:未命名1.jpg
未命名1.jpg
能否把这个“系统提示”页面也去掉呢?谢谢帮助!

可以到http://www.skmath.cn看看下载效果。默认用户名和密码都是123456

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
cn2009 当前离线

1515

主题

3

广播

2

粉丝
添加关注
级别:高一年

用户积分:6151 分
登录次数:170 次
注册时间:2008/12/28
最后登录:2020/9/8
cn2009 发表于:2009/1/7 12:08:00   | 只看该作者 查看该作者主题 8楼 
科汛智能建站系统
纯支持,觉得要消费透明化,所以还是提示下比较稳妥。呵呵
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
人间极品 当前离线

357

主题

2

广播

0

粉丝
添加关注
级别:三年级

用户积分:3898 分
登录次数:348 次
注册时间:2006/11/9
最后登录:2012/11/16
人间极品 发表于:2009/1/7 11:58:00   | 只看该作者 查看该作者主题 9楼 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.15625秒 powered by KesionCMS 9.0