E:\HOME\LOCALUSER\495159\WWW\ADMIN\INCLUDE\../../KS_Cls/Kesion.CommonCls.asp，行 1194

不懂耶

Microsoft VBScript 运行时错误 错误 '800a000d' 类型不匹配: 'objRegExp.Execute'

E:\HOME\LOCALUSER\495159\WWW\ADMIN\INCLUDE\../../KS_Cls/Kesion.CommonCls.asp，行 1194

这个错误我对比了一下v9的相关代码.

发现V9版本已经修正了这个问题.

具体是新加入了一行

If IsNul(ContentStr) Then LoseHtml="": Exit Function

函数完整代码为:

'取消HTML,UBB代码

  Public Function LoseHtml(ByVal ContentStr)

      If IsNul(ContentStr) Then LoseHtml="": Exit Function

   Dim objRegExp, Match, Matches

   Set objRegExp = New Regexp

   objRegExp.IgnoreCase = True

   objRegExp.Global = True

   

   objRegExp.Pattern = "<.+?>"

   Set Matches = objRegExp.Execute(ContentStr)

   For Each Match in Matches

   ContentStr=Replace(ContentStr,Match.Value,"")

   Next

   objRegExp.Pattern = "\[.+?\]"

   Set Matches = objRegExp.Execute(ContentStr)

   For Each Match in Matches

   ContentStr=Replace(ContentStr,Match.Value,"")

   Next

   LoseHtml=ContentStr

   Set objRegExp = Nothing

  End Function