以前一直没有认真的做过网站，只是做为业余爱好，下载一些界面好看，功能强大的CMS来玩玩，基本上一些知名的，或不知名的CMS我都用过，如：动易，科汛，乔客，风讯，创力，领智，新云，无忧，KINGCMS，等等，一直在对比，看哪个CMS的功能强大，看哪个CMS的模版制做容易，也就是因为这样徘徊不定，所以一直没有认真去了解过其中任何一款CMS。

最近一直合作做网站的一个朋友说要再一起搞网站，于是经过考虑，决定使用科汛，本来想打算用动易.net版的，后来想想在本地测试比较麻烦，我还是喜欢ASP的，而且也喜欢科汛那种像风讯一样的模版管理机制，至于功能，科汛对于一般的网站都足够应付了。我认为科汛还是非常不错的，功能强大，易用，调试简单，支持科汛，给科汛加油，希望新版本5.5能早点出来，每个等待新版本的人大多是想通过升级程序解决现在一些无法解决的问题，也希望出现一些新的功能让自己的站做得更好，更方便管理

我就是希望能通过升级程序解决现在一些无法解决的问题，如果新版本出的新功能，可以让我做站更容易，管理更方便，那就更完美了，我现在用的是科汛5.02最新的ESHOP UTF-8版，在使用过程中，发现了几个小BUG，可是我是个程序盲，不会编程序，所以有些问题自己解决不了，在论坛发过帖子问过了，还没解决。所以，在这里再整理下，全部发出来，请各位高手大大帮帮忙。

1，模板管理出错，有些模板打开是空白。

从模板管理首页进入留言本模板文件夹的时候报错，因为无法复制文本，只能截图了。

下图就是打开留言本的模板文件夹之后出的错误提示。

此主题相关图片如下：bug.jpg

有些模板打开之后是空白的，无法在线编辑，不管是文本的还是可视的，都不行，路径也是错的。估计可能就是因为路径找错了，才导致打开之后是空白。

下图是打开其中一个无法编辑的模板，显示的空白和错误路径。

此主题相关图片如下：bug2.jpg

这个问题超级版主大大说过要将目录改为英文的，以前的版本也是用中文的，好像没这样的情况，为什么升级之会反而出现这样的情况了呢？不是太懂啊，是不是以后的版本也会改用英文的目录呢？呵呵，暂时的办法可能只有这样了。

但是，进入后台修改目录的话是改不了的，必需用FTP修改，这个还没试过，呆会去试试。

2，这两个小BUG不影响使用，只是看起来不那么舒服而已。

如下图，这个是修改自定义SQL标签的时候，进入了官司方自带的那个文件夹，前面的显示一堆英文，好像是ASP文件里面的一段代码。

此主题相关图片如下：sql.jpg

这个也是修改自定义SQL标签的时候，双击打开任何一个SQL标签，这里就会显示这样，像是HTML语法错误一样，估计是ASP输出显示HTML的时候没有解释正确

此主题相关图片如下：sql2.jpg

3，文章调用的字数能不能区分中文和英文呢？

现在文章调用标题或内容的字数是不区分英文的，也就是你设置10，那么就是10个汉字或者10个英文字符。如果有5个汉字加上5个英文字符也会认为是十个字符。

如果两个标题，一个标题是全英文的，一个标题是全中文的，这样一来，列表里面标题的长短就不太好控制了。如果是栏目首页调用文章一部分内容，而调用的那部分内容全是英文的话，表格便会被撑破，很难看了。

希望这几个问题能有好点的解决办法，特别是最后一个问题，谢谢了。

最后一个问题，试试打开ks_cls/kesion.publcicls.asp

找到

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

试试改成

Public Function GotTopic(ByVal Str, ByVal lennum)
  Dim oRegExp, p_num, i, x
  Set oRegExp = new RegExp
  oRegExp.IgnoreCase = True
  oRegExp.Global = True
  oRegExp.Pattern = "[\uff00-\uffff\u4e00-\u9fa5\ufe10-\ufe1f\ufe30-\ufe4f\u1100-\u11ff\u2600-\u26ff\u2700-\u27bf\u2800-\u28ff\u3300-\u33ff\u3200-\u32ff\ua490-\ua4cf\ua000-\ua48f\u3130-\u318f\uac00-\ud7af\u31f0-\u31ff\u30a0-\u30ff\u3040-\u309f\u31a0-\u31bf\u3100-\u312F\u2FF0-\u2FFF\u2F00-\u2FDF\u31c0-\u31ef\u3000-\u303f\u2e80-\u2eff\uff00-\uffef]"
  p_num = 0
  x = 0
  Do While Not p_num > lennum - 2
  x = x + 1
  p_num = int(p_num) + 1
  
  If oRegExp.Test(str) Then
  p_num = p_num + 1
  End If
  GotTopic = left(trim(str),x)
  Loop
  Set oRegExp=Nothing
 End Function