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

打开ks_cls/kesion.publiccls.asp

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

htmlcode=server.htmlencode(str)即可

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

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

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

也不是什么大问题，你如果要用字节，就打开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