ASP

本类阅读TOP10

·asp常用数据库连接方法和技巧
·无组件生成BMP验证码
·一些常用的辅助代码 (网络收藏)
·JavaScript实现的数据表格:冻结列、调整列宽和客户端排序
·VisualStudio.NET_2003及其 MSDN 下载地址
·ASP模拟MVC模式编程
·图片以二进制流输出到网页
·MD5加密算法 ASP版
·ASP.NET编程中的十大技巧
·改进 ASP 的字符串处理性能

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
复用函数之资料验证——减小您的工作量(一)

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

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


相关文章

相关软件