打开ks_cls/userfunction.asp

找到并增加红色的代码即可

  case "sizeunit"

     Dim SizeUnit      

     If Action="Edit" Then SizeUnit = Right(rs("DownSize"), 2) Else SizeUnit="KB"

   Response.Write "<input name=""SizeUnit"" type=""radio"" value=""KB"" id=""kb"""

   If SizeUnit = "KB" Then response.write "checked"

   Response.Write "><label for=""kb"">KB</label> " & vbCrLf

   Response.Write "<input type=""radio"" name=""SizeUnit"" value=""MB"" id=""mb"""

   If SizeUnit = "MB" Then response.write "checked"

   Response.Write "><label for=""mb"">MB</label> " & vbCrLf

case "downurls" echo Split(RS("DownUrls")&"|||","|")(2)

  case "content"

    If Action="Edit" Then

     select case KS.ChkClng(KS.C_S(ChannelID,6))

      case 1 if not KS.IsNul(rs("ArticleContent")) then echo Server.HtmlEncode(rs("ArticleContent"))