不过，我仔细看了下官方代码，应该是你的理解有误．官方的原理是中文取两个字节，英文取一个字段．你可以看他的代码

c = Abs(Asc(Mid(Str, I, 1)))
   If c > 255 Then
    T = T + 2
   Else
    T = T + 1
   End If

这里判断是不是汉字，是的话+2,否则加1

utf-8版的本身字符所占的数就不一样

UTF－8编码是用以解决国际上字符的一种多字节编码，它对英文使用8位（即一个字节），中文使用24位（三个字节）来编码

这就是为什么utf-8会比较占用空间的原因了．面向国内用户，还是推荐用gb

以上是我测试10个字符的结果．确定是中文算两个，英文算一个，测试标签系统函数标签->栏目文章列表标签

测试sql标签，同样正常

select top 10 ID,TITLE from KS_Article ORDER BY ID DESC

[loop=10]
<a href="{$Field(ID,GetInfoUrl,1,1)}">{$Field(TITLE,Text,10,,0,)}</a><br>
[/loop]

最终输出

ssssssssss
神七飞船火
是让人觉着
2222222222

第二个问题更是简单，同样在kesion.publiccls.asp这个文件

打开ks_cls/kesion.publiccls.asp

找到htmlcode函数．把里面的内容直接改成

htmlcode=server.htmlencode(str)即可

也不是什么大问题，你如果要用字节，就打开ks_cls/kesion.publiccls.asp

找到GotTopic函数

'*************************************************************************
 '函数名：gotTopic
 '作  用：截字符串，汉字一个算两个字符，英文算一个字符
 '参  数：str   ----原字符串
 '       strlen ----截取长度
 '返回值：截取后的字符串
 '*************************************************************************
 Public Function GotTopic(ByVal Str, ByVal strlen)
  If Str = "" OR IsNull(Str) Then GotTopic = "":Exit Function
  If strlen=0 Then GotTopic=Str:Exit Function
  Dim l, T, c, I, strTemp
  Str = Replace(Replace(Replace(Replace(Str, "&nbsp;", " "), "&quot;", Chr(34)), "&gt;", ">"), "&lt;", "<")
  l = Len(Str)
  T = 0
  strTemp = Str
  strlen = CLng(strlen)
  For I = 1 To l
   c = Abs(Asc(Mid(Str, I, 1)))
   If c > 255 Then
    T = T + 2
   Else
    T = T + 1
   End If
   If T >= strlen Then
    strTemp = Left(Str, I)
    Exit For
   End If
  Next
  If strTemp <> Str Then strTemp = strTemp
  GotTopic = Replace(Replace(Replace(Replace(strTemp, " ", "&nbsp;"), Chr(34), "&quot;"), ">", "&gt;"), "<", "&lt;")
 End Function

直接改成

'*************************************************************************
 '函数名：gotTopic
 '作  用：截字符串，汉字一个算两个字符，英文算一个字符
 '参  数：str   ----原字符串
 '       strlen ----截取长度
 '返回值：截取后的字符串
 '*************************************************************************
 Public Function GotTopic(ByVal Str, ByVal strlen)
  GotTopic = left(str,strlen)

 End Function