代码 复制 - 运行
Function HTMLEncode(Str)
If Isnull(Str) Then
HTMLEncode = ""
Exit Function
End If
Str = Replace(Str,Chr(0),"",1,-1,1)
Str = Replace(Str,"<","",1,-1,1)
Str = Replace(Str,">","",1,-1,1)
Str = Replace(Str, "Script", "",1,-1,1)
Str = Replace(Str, "Object", "",1,-1,1)
Str = Replace(Str, "Applet", "",1,-1,1)
Str = Replace(Str, "[", "",1,-1,1)
Str = Replace(Str, "]", "",1,-1,1)
Str = Replace(Str, """", "",1,-1,1)
Str = Replace(Str, "=", "",1,-1,1)
Str = Replace(Str, "'", "''",1,-1,1)
Str = Replace(Str, "select", "",1,-1,1)
Str = Replace(Str, "execute", "",1,-1,1)
Str = Replace(Str, "exec", "",1,-1,1)
Str = Replace(Str, "join", "",1,-1,1)
Str = Replace(Str, "union", "",1,-1,1)
Str = Replace(Str, "where", "",1,-1,1)
Str = Replace(Str, "insert", "",1,-1,1)
Str = Replace(Str, "delete", "",1,-1,1)
Str = Replace(Str, "update", "",1,-1,1)
Str = Replace(Str, "like", "",1,-1,1)
Str = Replace(Str, "drop", "",1,-1,1)
Str = Replace(Str, "create", "",1,-1,1)
Str = Replace(Str, "rename", "",1,-1,1)
Str = Replace(Str, "count", "",1,-1,1)
Str = Replace(Str, "chr", "",1,-1,1)
Str = Replace(Str, "mid", "",1,-1,1)
Str = Replace(Str, "truncate", "",1,-1,1)
Str = Replace(Str, "nchar", "",1,-1,1)
Str = Replace(Str, "char", "",1,-1,1)
Str = Replace(Str, "alter", "",1,-1,1)
Str = Replace(Str, "cast", "",1,-1,1)
Str = Replace(Str, "exists", "",1,-1,1)
Str = Replace(Str,Chr(13),"",1,-1,1)
HTMLEncode = Replace(Str,"'","",1,-1,1)
End Function