如何取消要用点券才能下载附件的功能

设置一下就行了！

找到Item/FileDonw.asp

将以下代码删除即可：

   
If Point>0 and KS.ChkClng(CurrPoint)<Point Then
    KS.Die "<script>alert('对不起,下载本附件需要消费" & Point & ChargeStr & ",您当前剩余" & CurrPoint & ChargeStr&",不足支付!');window.close();</script>"
Else   
  If Conn.Execute("Select top 1 * From " & TableName & " Where UserName='" & KSUser.UserName & "' and datediff(" & DataPart_H &"," & DateField & "," & SqlNowString & ")<24 and ChannelID=9994 and InfoID=" & ID).Eof And KSUser.UserName<>UserName Then
         If Confirm<>"true" Then
       KS.Die "<script>if(confirm('下载本附件需要消费" & Point & ChargeStr & ",确定下载吗?')){location.href='" & KS.GetDomain & "item/filedown.asp?confirm=true&id=" & id&"';}else{window.close();}</script>"
      Else
        Select Case ModelChargeType
      case 0
       IF Cbool(KS.PointInOrOut(9994,ID,KSUser.UserName,2,Point,"系统","下载附件[附件ID号:" & ID & "]!",0))=True Then
        DownLoad()
       Else
        KS.Die "<script>alert('扣费处理出错,请联系管理人员!');window.close();</script>"
       End If
      
      case 1
       IF Cbool(KS.MoneyInOrOut(KSUser.UserName,KSUser.UserName,Point,4,2,now,0,"系统","下载附件[附件ID号:" & ID & "]!",9994,ID,1))=True Then
        DownLoad()
       Else
        KS.Die "<script>alert('扣费处理出错,请联系管理人员!');window.close();</script>"
       End If
      case 2
     If Cbool(KS.ScoreInOrOut(KSUser.UserName,2,Point,"系统","下载附件[附件ID号:" & ID & "]!",9994,id)) Then
       DownLoad()
     Else
       KS.Die "<script>alert('扣费处理出错,请联系管理人员!');window.close();</script>"
     End If
     end select
      End If
  Else
        DownLoad()
  End If
End If

后台难道没有设置咩