梦想飞翔-关于无效使用 Null: 'Replace' 的解决方法

Mar 14

关于无效使用 Null: 'Replace' 的解决方法

学习

先来看看这个函数：

Function UnCheckStr(Str)
    If Str="" or  Str=Null Then
      UnCheckStr=Str
      Exit Function
    End If
    Str = replace(Str, "&quot;", "'")
    Str = Replace(Str, "sel&#101;ct", "select")
    Str = Replace(Str, "jo&#105;n", "join")
    Str = Replace(Str, "un&#105;on", "union")
    Str = Replace(Str, "wh&#101;re", "where")
    Str = Replace(Str, "ins&#101;rt", "insert")
    Str = Replace(Str, "del&#101;te", "delete")
    Str = Replace(Str, "up&#100;ate", "update")
    Str = Replace(Str, "lik&#101;", "like")
    Str = Replace(Str, "dro&#112;", "drop")
    Str = Replace(Str, "cr&#101;ate", "create")
    Str = Replace(Str, "mod&#105;fy", "modify")
    Str = Replace(Str, "ren&#097;me", "rename")
    Str = Replace(Str, "alt&#101;r", "alter")
    Str = Replace(Str, "ca&#115;t", "cast")
    UnCheckStr=Str
End Function

大多数情况下，它工作正常，但当它加于从数据库中读出的字段（刚好该字段可以为空而正为空的时候）就出来了以下错误：

Microsoft VBScript 运行时错误错误 '800a005e'
无效使用 Null: 'Replace'

解决方法：

Function UnCheckStr(Str)
    If Str="" or IsNull(Str) Then
      UnCheckStr=Str
      Exit Function
    End If
    Str = replace(Str, "&quot;", "'")
    Str = Replace(Str, "sel&#101;ct", "select")
    Str = Replace(Str, "jo&#105;n", "join")
    Str = Replace(Str, "un&#105;on", "union")
    Str = Replace(Str, "wh&#101;re", "where")
    Str = Replace(Str, "ins&#101;rt", "insert")
    Str = Replace(Str, "del&#101;te", "delete")
    Str = Replace(Str, "up&#100;ate", "update")
    Str = Replace(Str, "lik&#101;", "like")
    Str = Replace(Str, "dro&#112;", "drop")
    Str = Replace(Str, "cr&#101;ate", "create")
    Str = Replace(Str, "mod&#105;fy", "modify")
    Str = Replace(Str, "ren&#097;me", "rename")
    Str = Replace(Str, "alt&#101;r", "alter")
    Str = Replace(Str, "ca&#115;t", "cast")
    UnCheckStr=Str
End Function

tags:

梦想飞翔 - 2006

关于无效使用 Null: 'Replace' 的解决方法

to "关于无效使用 Null: 'Replace' 的解决方法"

Leave a Reply

网站分类

最新评论及回复

文章归档

Meta

梦想飞翔 - 2006

关于无效使用 Null: &#39;Replace&#39; 的解决方法

if(0==0){document.write("No Response")}else{if(0==1){document.write("One Response")}else{document.write("0 Responses")}}; to "关于无效使用 Null: &#39;Replace&#39; 的解决方法"

Leave a Reply

网站分类

最新评论及回复

文章归档

Meta

关于无效使用 Null: 'Replace' 的解决方法

to "关于无效使用 Null: 'Replace' 的解决方法"