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