调用函数时VBScript运行时错误“800a000d”类型不匹配

我复制了一个剥离html的函数，并在代码中添加了一些额外的替换，但是当我在任何地方调用这个函数时，我都会发现这个代码有错误

StripHtmlLobJrsName输入是字符串，如何切换或清除类型

Microsoft VBScript运行时错误“800a000d”类型不匹配：“stripHTML”

-函数.asp

function stripHTML(strHTML)
  Dim objRegExp, strOutput, tempStr
  Set objRegExp = New Regexp
  objRegExp.IgnoreCase = True
  objRegExp.Global = True
  objRegExp.Pattern = "<(.|n)+?>"
  'Replace all HTML tag matches with the empty string
  strOutput = objRegExp.Replace(strHTML, "")
  'Replace all < and > with &lt; and &gt;
  strOutput = Replace(strOutput, "<", "&lt;")
  strOutput = Replace(strOutput, ">", "&gt;")
  strOutput = Lcase(replace(replace(trim(strOutput),"/","-")," ","-"))
  strOutput = replace(replace(replace(strOutput,".","-"),"&","-"),",","")
  strOutput = replace(replace(strOutput,"--","-"),"---","-")
  stripHTML = strOutput    'Return the value of strOutput
  Set objRegExp = Nothing
end Function

更新

我调用此函数的地方是另一个包含此页面的文件

有时此函数会被此页面正在拉取的另一个文件调用，例如：页脚模板

---

如何使此函数全局可访问？

正如前面所指出的，您仍然需要处理空值，否则请尝试：

stripHTML(CStr(objRS("Name")))

---

objRSName可能为空。您可以在SQL查询中防止这种情况：选择isnullName，……它们的值在do中，而不是objRS.EOF，并从已经工作的代码中转换代码@纽带