如果将程序安装在二级目录或虚拟目录(相当于二级目录)下，你会发现很多地方都有问题，其主要原因是目录定位错误引起的，与目录定位有关的三个函数为：

    1、KS.Setting(2)  返回网站的根目录，格式为： http://www.kesion.com ，注意后面没有"/"号。

    2、KS.Setting(3)  返回程序的安装目录，格式为： "/"+你实际安装的二级目录名称+"/"

如 /TEST/ ，TEST为二级目录名称，注意前后都有"/"号。

    3、DomainStr  7.0版新增加的函数，返回网站的根目录和程序的安装目录，相当于KS.Setting(2) + KS.Setting(3) ，老版本则直接使用 KS.Setting(2) + KS.Setting(3) ，格式为：http://www.kesion.com/test/

    目录定位方法搞清楚了之后，再来分析为什么会出错？如何修改？

    如：文章发表评论后，如果插入了表情 ，在浏览时你会发现看不到图象而是图象占位标记，用鼠标右键单击->属性，你会发现图象的连接地址为：http://www.kesion.com/editoe/ubb/images/smilies/default/,

而不是：http://www.kesion.com/test/editoe/ubb/images/smilies/default/ 所以出错了，查看plus/comment.asp 相关代码：471-484  

Function ReplaceFace(c)

   Dim str:str=":)|:(|:D|:'(|:@|:o|:P|:$|;P|:L|:Q|:lol|:loveliness:|:funk:|:curse:|:dizzy:|:shutup:|:sleepy:|:hug:|:victory:|:time:|:kiss:|:handshake|:call:|55555|"

   Dim strArr:strArr=Split(str,"|")

   Dim K,NS

   For K=1 To 9

    c=replace(c,"[e" & k & "]","[e0" & k & "]")

   Next

   For K=1 To 24

    NS=Right("0" & K,2)

    c=replace(c,"[e"&ns &"]","<img title='" & strarr(k) & "' src='" & KS.Setting(2) & "/editor/ubb/images/smilies/default/" & NS & ".gif'>")

   Next

   C=KS.FilterIllegalChar(C)

   ReplaceFace=C

  End Function

    这段代码红色部分是KS.Setting(2) ，即网站的根目录，

执行后是http://www.kesion.com/editoe/ubb/images/smilies/default/ ,

而不是我们所需的http://www.kesion.com/test/editoe/ubb/images/smilies/default/ 。

    修改方法：

    将KS.Setting(2) 改为：DomainStr，即：

    c=replace(c,"[e"&ns &"]","<img title='" & strarr(k) & "' src='" & DomainStr & "/editor/ubb/images/smilies/default/" & NS & ".gif'>")

    或在后面加上 KS.Setting(3) & ，即：

    c=replace(c,"[e"&ns &"]","<img title='" & strarr(k) & "' src='" & KS.Setting(2) & KS.Setting(3) & "/editor/ubb/images/smilies/default/" & NS & ".gif'>")

    当然也可以直接将 KS.Setting(2) 改为 KS.Setting(3)

    其他出错的处理方法基本相同，但已经是 & KS.Setting(2) & KS.Setting(3) & 格式的地方就不要再改了，否则也会出错，同时也不是所有出现  KS.Setting(2) 的地方都可以改为 KS.Setting(3) 的，那要看程序调用 KS.Setting(2) 的意图而定。

    其他问题正在分析中......