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

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

改成

这样就能解决了!!!!

谢谢了

回楼上

在download.asp

找到

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

LZ你好，按你的方法做了，确实不出现点数提示了，但还是先打开一个系统提示的网页，然后才出现下载对话框，如下图
此主题相关图片如下：未命名1.jpg

能否把这个“系统提示”页面也去掉呢？谢谢帮助！

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