关于标题、内容等字数控制的强化

本修改适合于乔客1.2的任何版本

乔客字数控制是以汉字字符为单位进行控制，在标题中英文字母占多数时，显示会很短，变得很不好看


修改后以英文字母为控制单位，长度就统一了，显得非常美观！



好了，书归正传
打开jk_class.asp
找到


Code:

  '------------------------------------字符分割--------------------------------------
  function cuted(types,num)
。。。。。。。。。。。。。。。。
  end function



替换为


Code:

  '------------------------------------字符分割--------------------------------------
  function strlen(str)
    dim p_len,xx
    p_len=0
    strlen=0
      if trim(str)<>"" then
        p_len=len(trim(str))
         for xx=1 to p_len
           if asc(mid(str,xx,1))<0 then
             strlen=int(strlen) + 2
           else
             strlen=int(strlen) + 1
           end if
         next
      end if
  end function

  function cuted(types,num)
    dim p_num
    dim i,x
      if strlen(types)<=num then
        cuted=types
      else
        p_num=0
        x=0
          do while not p_num > num-2
           x=x+1
            if asc(mid(types,x,1))<0 then
              p_num=int(p_num) + 2
            else
              p_num=int(p_num) + 1
            end if
           'cuted=left(trim(types),x)&"…"  '未完显示“...”
           cuted=left(trim(types),x)        '未完不显示“...”
         loop
      end if
  end function



然后在你控制字符的地方，把原数值全部加倍即可！


http://www.joekoe.com/forum/view_91696.vhtml

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: