添加文章时，让关键词跟简介的字数自动变化

添加文章时，让关键词跟简介的字数自动变化

<!-- Begin
function getStrLong(str){//计算字符串str的长度，汉字1英文0.5
  var valueLen = 0;
  var charNum = 0;
  if (str != ""){
    for (i = 0; i < str.length; i++){
      var code = escape(str.charAt(i));
      if ((code.length >= 4) && (code < '%uFF60' || code > '%uFF9F')){
        valueLen += 1;
      } else {
        valueLen +=0.5;
      }
      if(valueLen <= 100){
       charNum++;
      }
    }
  }
  return Array(valueLen, charNum);
}
function textCounter(field, countfield, maxlimit) {
countfield.value = maxlimit - getStrLong(field.value)[0];
if (getStrLong(field.value)[0] > maxlimit) {
  countfield.style.color='#FF0000';
}
}
// End -->

**************************************************
打开admin/article/index.asp，找到king.form_input，改为

Il "<script src=""checkinput.js"" type=""text/javascript""></script>"
king.form_input2 "artkeywords",art.lang("label/keyword"),data(9,0),"artkeywords|6|"&encode(art.lang("check/keyword"))&"|0-100"

king.form_area2 "artdescription",art.lang("label/description"),data(10,0),"artdescription|6|"&encode(art.lang("check/description"))&"|0-255"

**************************************************
打开page/system/fun.asp，找到form_input，添加form_input2

public sub form_input2(l1,l2,l3,l4)'formname,label,value,check
dim I1,I2,I3
I1=sect(l4&";","("&l1&"|6|.+?|)","(;)","")
if len(I1)>0 then
  I2=split(I1,"-")
  if ubound(I2)=1 then I3=" maxlength="""&I2(1)&""""
end if
Il "<p><label>"&l2&"</label><input type=""text"" name="""&l1&""" id="""&l1&""" value="""&formencode(l3)&""" class=""in4"""&I3&" onChange=textCounter(this.form."&l1&",this.form.count_0,68); onKeyUp=textCounter(this.form."&l1&",this.form.count_0,68); onKeyDown=textCounter(this.form."&l1&",this.form.count_0,68); />"
Il king.check(l4)
Il "</p>"
end Sub

找到form_area，添加
Public Sub form_area2(l1,l2,l3,l4)
If CStr(l4)="0" Then l4=""
Il "<p><label>"&l2&"</label><textarea name="""&l1&""" id="""&l1&""" rows=""4"" cols=""80"" class=""in4"" onChange=textCounter(this.form."&l1&",this.form.count_1,146); onKeyUp=textCounter(this.form."&l1&",this.form.count_1,146); onKeyDown=textCounter(this.form."&l1&",this.form.count_1,146);>"&formencode(l3)&"</textarea>"
Il king.check(l4)
Il "</p>"
End Sub

文章阅读页面的导读显示

对简介说明的字数即时显示的另一种方法

   在此基础上进行改进，支持所有的input,textarea的长度自动提醒。
  针对 kingcms5.1
  第一步：
  在/admin/system/images/jquery.kc.js 最后面加以下代码:

function getStrLong(str){//计算字符串str的长度，汉字1英文0.5
  var valueLen = 0;
  var charNum = 0;
  if (str != ""){
    for (i = 0; i < str.length; i++){
      var code = escape(str.charAt(i));
      if ((code.length >= 4) && (code < '%uFF60' || code > '%uFF9F')){
        valueLen += 2;
      } else {
        valueLen += 1;
      }
    }
  }

  return valueLen;

}

function textCounter(fieldId,fieldName,maxlimit) {
        //alert(getStrLong($('#'+fieldId).val()));
        if (getStrLong($('#'+fieldId).val()) > maxlimit) {
                $('#'+fieldId).css("color","#f00").css("border","1px solid #f00");
                if($('#'+fieldId).next(".k_error").length>0){
                        $('#'+fieldId).next(".k_error").val(fieldName + "长度不能超过"+maxlimit+"个字符");
                }else{
                        $("<span class='k_error'>"+fieldName+"长度不能超过"+maxlimit+"个字符</span>").insertAfter('#'+fieldId);
                }
        }else{
                $('#'+fieldId).css("color","#000").css("border","1px solid #ccc");
                if($('#'+fieldId).next(".k_error").length>0){
                        $('#'+fieldId).next(".k_error").remove();
                }
        }
}

第二步：在/page/system/fun.asp 找到 public sub form_input(l1,l2,l3,l4)
将此段过程代码替换为如下：

public sub form_input(l1,l2,l3,l4)'formname,label,value,check
        dim I1,I2,I3
        Dim autochecker,l5,l6
        autochecker = " "
       
        I1=sect(l4&";","("&l1&"|6|.+?|)","(;)","")
        if len(I1)>0 then
                I2=split(I1,"-")
                if ubound(I2)=1 then I3=" maxlength="""&I2(1)&""""
        end if
       
        if I2(1) > 0  then
                autochecker = " onchange=""textCounter('"&l1&"','"&l2&"',"&I2(1)&");"" "
        end if
        Il "<p><label>"&l2&"</label><input type=""text"" name="""&l1&""""&autochecker&"id="""&l1&""" value="""&formencode(l3)&""" class=""in4"""&I3&" />"
        Il king.check(l4)
        Il "</p>"
end sub
找到：public sub form_area(l1,l2,l3,l4) ，将此段替换为：

public sub form_area(l1,l2,l3,l4)
        Dim autochecker,l5,l6
        if cstr(l4)="0" then l4=""
        autochecker = " "
        if l4 <> "" then
                l5 = split(l4,"|")
                if instr(l5(ubound(l5)),"-")>0 then
                        l6 = split(l5(ubound(l5)),"-")(1)
                else
                        l6 = 0
                end if
                if l6 > 0 then
                        autochecker = " onchange=""textCounter('"&l1&"','"&l2&"',"&l6&");"" "
                end if
        end if
        Il "<p><label>"&l2&"</label><textarea name="""&l1&""" id="""&l1&""" rows=""4"" cols=""80"""&autochecker&"class=""in4"">"&formencode(l3)&"</textarea>"
        Il king.check(l4)
        Il "</p>"
end sub


注意：修改时请备份源文件，防止出现错误！！！