cms使用最新版，windows7 iis 环境下论坛发贴出现错误？？？？？

Microsoft VBScript 运行时错误 错误 '800a01b6'

对象不支持此属性或方法: 'KSUser.ShowSynchronizedOption'

/club/post.asp，行 91

帮忙分析一下，如何修改？

                   If KS.S("Action")<>"edit" and LoginTF Then
                    Dim CheckJS
                    Dim SynchStr:SynchStr=KSUser.ShowSynchronizedOption(CheckJS)
                    If SynchStr<>"" Then SynchStr="<b>将本主题同步到：</b>" & SynchStr
                    WriteForm=Replace(WriteForm,"{$SynchronizedOption}",SynchStr)
                   End If