在KS_Cls/Kesion.Label.CommonCls.asp中加入下面一句（红色部分）

  '*********************************************************************************************************
  '函数名：ReplaceDownLoadContent
  '作  用：替换下载内容页标签为内容
  '参  数：RS Recordset数据集,FileContent待替换的内容,DownContent图片内容
  '*********************************************************************************************************
  Function ReplaceDownLoadContent(ChannelID,RS, F_C)
    Dim TempStr,Domain, DownLoadDir, s,YSDZ, ZCDZ,N
    On Error Resume Next  '容错代码
   
    Domain = KS.GetDomain
    DownLoadDir=DomainStr & KS.C_S(ChannelID,10)&"/"
    Domain = Left(Domain, Len(Domain) - 1)
   If InStr(F_C, "{$GetDownAction}") <> 0 Then
           TempStr = "【<A href=""" & DomainStr & "plus/Comment.asp?ChannelID=" & ChannelID & "&InfoID=" & RS("ID") & """ target=""_blank"">我来评论</A>】【<A href=""" & DomainStr & "User/index.asp?User_Favorite.asp?Action=Add&ChannelID=" & ChannelID & "&InfoID=" & RS("ID") & """ target=""_blank"">我要收藏</A>】【<A href=""javascript:window.close();"">关闭窗口</A>】"
           F_C = Replace(F_C, "{$GetDownAction}", TempStr)
      End If 

    F_C=LFCls.ReplaceUserDefine(ChannelID,F_C,RS)
     F_C = Replace(F_C, "{$ChannelID}", ChannelID)
    F_C = Replace(F_C, "{$InfoID}", RS("ID"))
    F_C = Replace(F_C, "{$ItemName}", KS.C_S(ChannelID,3))
    F_C = Replace(F_C, "{$ItemUnit}", KS.C_S(ChannelID,4))
       F_C = Replace(F_C, "{$GetDownID}", RS("DownID"))
       F_C = Replace(F_C, "{$GetDownKeyWord}", Replace(RS("KeyWords"), "|", ","))
    F_C = Replace(F_C, "{$GetKeyTags}",ReplaceKeyTags(ChannelID,RS("Keywords")))
    F_C = Replace(F_C, "{$GetDownTitle}", RS("Title") & " " & RS("DownVersion"))
       F_C = Replace(F_C, "{$GetDownUrl}", KS.GetInfoUrl(ChannelID,RS("Tid"),RS("ID"),RS("Fname"),RS("ReadPoint"),RS("InfoPurview"),0))
    F_C = Replace(F_C, "{$GetDownSystem}", RS("DownPT"))
    F_C = Replace(F_C, "{$GetDownAuthor}", LFCls.ReplaceDBNull(RS("Author"),"未知"))
    F_C = Replace(F_C, "{$GetDownSize}", RS("DownSize"))
    F_C = Replace(F_C, "{$GetDownType}", RS("DownLB"))
    F_C = Replace(F_C, "{$GetDownReadPoint}", RS("ReadPoint"))
    F_C = Replace(F_C, "{$GetDownLanguage}", RS("DownYY"))
    F_C = Replace(F_C, "{$GetDownPower}", RS("DownSQ"))
    F_C = Replace(F_C, "{$GetDownStar}", Replace(RS("Rank"),"★","<img src=""" & DomainStr & "Images/Star.gif"" border=""0"">"))
    F_C = Replace(F_C, "{$GetDownDecPass}", RS("JYMM"))
    F_C = Replace(F_C, "{$GetDownIntro}",  KS.ReplaceInnerLink(RS("DownContent")))
    F_C = Replace(F_C, "{$GetDownOrigin}", KS.GetOrigin(LFCls.ReplaceDBNull(RS("Origin"),"本站原创")))

然后就可以在下载页模板调用

消耗点数：<SPAN style="COLOR: #ff0000">{$GetDownReadPoint}</span> 点