资料验证是每个编程人员都会遇到过的问题，每次都写类似或者雷同的代码是否有点枯燥无味呢？用If Not InStr()之类的语句是否很麻烦呢？看看这个函数（过程）吧：
咱们还是外甥打灯笼——照舅（旧），先说说设计思想吧。
咱们要一个一个地验证字符口串中是否有危险字符，所以得用循环；因为不一个每次所定义的危险字符都一样，所以得用Ubound函数结合Split函数获取危险字符的维数，也就是个数；想知道要检查的字符串中是否含用某个字符（危险字符），就得用InStr函数，如果结果小于0，则表于所检查的字体串为空，如果大于0，则表示含有危险字符。（事实上，InStr函数是用来检查某个字符所在该字符串中的位置，这里不过活用了一下）
以下看看代码：
Sub ChkRiskStr(Str,Risk)
'参数说明，Str为要检查的字符串,Risk为危险字符
For i=0 to UBound(Split(Risk,","))
if Instr(Str,Split(Risk,",")(i))<>0 Then
Response.Write "含用非法字符！"
Response.End
End if
Next
End Sub
调用：
Call ChkRiskStr("abck@$","!@#$%^&*")
代码很简单，短短几行，希望读者能够抛砖引玉，写出更好的代码：）