过滤非法字符函数

 ' ============================================
' 过滤非法字符函数
' ============================================
function killstr(str)
 dim tempstr
 if str="" then exit function
 tempstr=replace(str,chr(34),"") ' "
 tempstr=replace(tempstr,chr(39),"") ' '
 tempstr=replace(tempstr,chr(60),"") ' <
 tempstr=replace(tempstr,chr(62),"") ' >
 tempstr=replace(tempstr,chr(37),"") ' %
 tempstr=replace(tempstr,chr(38),"") ' &
 tempstr=replace(tempstr,chr(40),"") ' (
 tempstr=replace(tempstr,chr(41),"") ' )
 tempstr=replace(tempstr,chr(59),"") ' ;
 tempstr=replace(tempstr,chr(43),"") ' +
 tempstr=replace(tempstr,chr(45),"") ' -
 tempstr=replace(tempstr,chr(91),"") ' [
 tempstr=replace(tempstr,chr(93),"") ' ]
 tempstr=replace(tempstr,chr(123),"") ' {
 tempstr=replace(tempstr,chr(125),"") ' }
 killstr=tempstr
end function