电影Down.asp文件 193-195行少传了一个值,怎么样改进?如下:

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