经典ASP错误'80020009'发生异常

Question

在我正在修复的网站的代码的第5行，我从经典ASP获得异常错误。下面的**行是第5行。看起来这个函数在网站的其他页面上使用，虽然我不太清楚为什么。我试过删除代码，但由于它在其他地方使用，它必须很重要，所以也许我不应该尝试删除它....

Private Function AE(myString)
**If myString <> "" then** 
AE = Replace(myString,"`","'")
End If
End Function

以下是使用AE的地方的示例：response.write AE(rs("ArticleTitle"))

提前感谢你们给我的任何帮助！

Answer 1

这可能意味着数据库中的字段为Null。您可以在有问题的行之前添加此行：

If isNull( myString ) Then Exit Function

如果不起作用，您还可以尝试将有问题的行更改为：

If "" & myString <> "" Then

Answer 2

如果您尝试访问没有记录的记录集中的记录（例如，如果您在访问字段之前忘记检查eof），也会出现此错误。

Answer 3

在替换之前检查，确实`这是否存在于字符串中

setTitleTextAttributes

Answer 4

使用ASCII字符代码而不是单引号：

AE = Replace(myString,"`",chr(39))