ASP中检测匹配汉字

Function  RegChinese(str)
     Dim  regEx, retVal
     Set  regEx  =   New  RegExp
    regEx.Pattern  =   " ^[^\u0000-\u00FF]*$"
    regEx.IgnoreCase  =   False
    retVal  =  regEx.Test(str)
     If  retVal  Then
        RegChinese  =   True
     Else
        RegChinese  =   False
     End   If
End Function

转载于:https://www.cnblogs.com/modou/articles/146257.html