Periksa apakah itu karakter Cina <%
'******************************
'Fungsi: Periksa Cina (stng)
'Parameter: strng, karakter yang akan diverifikasi
'Deskripsi: Periksa apakah itu karakter Cina, nilai kembalian: benar untuk bahasa Cina, jika tidak salah
'Contoh: <%=CheckChinese(strng)%>
'******************************
Fungsi PeriksaCina(streng)
Periksa Cina = benar
Redupkan regEx, Cocok
Setel regEx = RegExp Baru
regEx.Pattern = /||/#|/&|/?|/@|/%|/*|//|/.|/,|/;|/'|/:|/-|/_|/ +|/^|/|/=|/<|/>|/
regEx.IgnoreCase = Benar
Setel Kecocokan = regEx.Execute(strng)
jika cocok.hitung maka CheckChinese= salah
Fungsi Akhir
%>