تحقق مما إذا كان حرفًا صينيًا <%
'*********************************
'الوظيفة: CheckChinese(strng)
'المعلمة: strng، الحرف المراد التحقق منه
'الوصف: تحقق مما إذا كان حرفًا صينيًا، قيمة الإرجاع: صحيحة للصينية، وإلا فهي خاطئة
'مثال: <%=CheckChinese(strng)%>
'*********************************
فحص الوظيفة الصينية (سلسلة)
CheckChinese = true
خافت regEx، مباراة
قم بتعيين regEx = New RegExp
regEx.Pattern = /||/#|/&|/?|/@|/%|/*|//|/.|/,|/;|/'|/:|/-|/_|/ +|/^|/|/=|/<|/>|/
regEx.IgnoreCase = صحيح
تعيين المطابقة = regEx.Execute(strng)
إذا كان match.count، فإن CheckChinese= false
وظيفة النهاية
%>