function checkStr(str)
str=replace(str,"","")
Str=Replace(Str,chr(39),"") 过滤SQL注入
Str=Replace(Str,chr(91),"") 过滤SQL注入[
Str=Replace(Str,chr(93),"") 过滤SQL注入]
Str=Replace(Str,chr(37),"") 过滤SQL注入%
Str=Replace(Str,chr(59),"") 过滤SQL注入
Str=Replace(Str,chr(43),"") 过滤SQL注入;
Str=Replace(Str,chr(45),"") 过滤SQL注入+
Str=Replace(Str,chr(123),"") 过滤SQL注入{
Str=Replace(Str,chr(125),"") 过滤SQL注入}
checkStr=Str 返回经过上面字符替换后的Str
if isnull(str) then
checkStr = ""
exit function
end if
end function