复用函数之资料验证——减小您的工作量(一)

   资料验证是每个编程人员都会遇到过的问题，每次都写类似或者雷同的代码是否有点枯燥无味呢？用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@$","!@#$%^&*")
   代码很简单，短短几行，希望读者能够抛砖引玉，写出更好的代码：）

本文地址：http://com.8s8s.com/it/it8937.htm