% '****************************** '函數：CheckChinese(strng) '參數：strng,待驗證字符 '描述：檢測是否為中文字符，返回值：中文為true，否則false '示例：%=CheckChinese(strng)%> '****************************** Function CheckChinese(strng) CheckChinese = true Dim regEx, Match Set regEx = New RegExp regEx.Pattern = "\||\#|\|\?|\@|\%|\*|\/|\.|\,|\;|\'|:|-|_|+|^|""|\=|\|\&;|\ " regEx.IgnoreCase = True Set Match = regEx.Execute(strng) if match.count then CheckChinese= false End Function %>
