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

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