1. 得到安全字符串,在查询中使用,过滤单引号。

Function Get_SafeStr(str) 
 Get_SafeStr = Replace(Replace(Replace(Trim(str), "'", ""), Chr(34), ""), ";", "") 
End Function 


2.判断是否安全字符串,在注册登录等特殊字段中使用

Function IsSafeStr(str) 
 Dim s_BadStr, n, i 
 s_BadStr = "’ 　&<>?%,;:()`~!@#$^*{}[]|\/+-=" & Chr(34) & Chr(9) & Chr(32) 
 n = Len(s_BadStr) 
 IsSafeStr = True 
 For i = 1 To n 
  If Instr(str, Mid(s_BadStr, i, 1)) > 0 Then 
   IsSafeStr = False 
   Exit Function 
  End If 
 Next 
End Function