ตรวจสอบว่าเป็นตัวอักษรจีน <%
-
'ฟังก์ชัน: Check Chinese (strng)
'พารามิเตอร์: strng อักขระที่จะตรวจสอบ'
'คำอธิบาย: ตรวจสอบว่าเป็นตัวอักษรจีนหรือไม่ ค่าส่งคืน: จริงสำหรับภาษาจีน มิฉะนั้นจะเป็นเท็จ
'ตัวอย่าง: <%=ตรวจสอบภาษาจีน(strng)%>
-
ฟังก์ชั่นตรวจสอบจีน(strng)
Check Chinese = จริง
Dim regEx, จับคู่
ตั้งค่า regEx = RegExp ใหม่
regEx.Pattern = /||/#|/&|/?|/@|/%|/*|//|/.|/,|/;|/'|/:|/-|/_|/ +|/^|/|/=|/<|/>|/
regEx.IgnoreCase = จริง
ตั้งค่าการจับคู่ = regEx.Execute(strng)
ถ้า match.count แล้ว Check Chinese= false
ฟังก์ชันสิ้นสุด
-