我们在注册的时候经常需要判断客户输入的内容是否合法，或者在页面传递参数的时候要判断，是否有客户恶意添加参数进行SQL注入等，这就需要1个函数去判断检测。
' ============================================
' 判断是否安全字符串,在注册登录等特殊字段中使用
' ============================================
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青岛星网温馨提醒：大家可以自行添加BadStr字符串里面的字符，增加你想要过滤的字符即可。
在线QQ：
