ASP/mssql 订阅所有【ASP/mssql】的日志

过滤所有非中文字符函数

作者:admin 日期:2010-01-20

字体大小: 小 中 大
ASP/Visual Basic代码
  1. '此文件可以对整站提交文字进行过滤   
  2. '函数说明:对非法字符进行过滤   
  3. '这个函数将过滤所有非中文字符   
  4. function ClearString(str)    
  5.    dim re,str1,str2,i    
  6.    set re = new regexp    
  7.    re.Pattern = "^[\u4e00-\u9fa5\s\n\r\t]+$"  
  8.    for i=1 to len(str)    
  9.      str1 = mid(str,i,1)    
  10.      clearString = re.Test(str1)    
  11.      if clearString=true then    
  12.      str2 = str2&str1    
  13.      end if    
  14.    next   
  15.    str=str2   
  16.    ClearString = str    
  17. end function   
  18.   

 



文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志:
评论: 0 | 引用: 0 | 查看次数: -
发表评论
昵　称:
密　码: 游客发言不需要密码.
内　容:
验证码: 验证码
选　项:
虽然发表评论不用注册，但是为了保护您的发言权，建议您注册帐号.