asp 简单安全过滤sql防注入程序

 Function ReplaceCode(Str,tagStr)
  Str = Replace(Str,Chr(32),tagStr)
  Str = Replace(Str,Chr(9),tagStr)
  Str = Replace(Str," ",tagStr)
  Str = Replace(Str," ",tagStr)
  Str = Replace(Str,"(",tagStr)
  Str = Replace(Str,")",tagStr)
  Str = Replace(Str,"<",tagStr)
  Str = Replace(Str,">",tagStr)
  Str = Replace(Str,"""",tagStr)
  Str = Replace(Str,"?",tagStr)
  Str = Replace(Str,"*",tagStr)
  Str = Replace(Str,"|",tagStr)
  Str = Replace(Str,",",tagStr)
  Str = Replace(Str,".",tagStr)
  Str = Replace(Str,"/",tagStr)
  Str = Replace(Str,"",tagStr)
  Str = Replace(Str,"-",tagStr)
  Str = Replace(Str,"@",tagStr)
  Str = Replace(Str,"#",tagStr)
  Str = Replace(Str,"$",tagStr)
  Str = Replace(Str,"%",tagStr)
  Str = Replace(Str,"&",tagStr)
  Str = Replace(Str,"+",tagStr)
  Str = Replace(Str,":",tagStr)
  Str = Replace(Str,"",tagStr)
  Str = Replace(Str,"",tagStr)
  Str = Replace(Str,"",tagStr)
  Str = Replace(Str,"",tagStr)
  Str = Replace(Str,"",tagStr)
  Str = Replace(Str,"",tagStr)
  ReplaceCode = Str
 End Function