Public Function IsAllGB(s)
Dim p : Set p= new RegExp
p.Global=True
p.IgnoreCase=True
p.MultiLine=True
p.Pattern="[\u4E00-\u9FA5\uFE30-\uFFA0]"
Dim q
q=p.Replace(s,"**")
Set p=Nothing
If Len(q)<>Len(s)*2 Then
IsAllGB=False
Else
IsAllGB=True
End If
End Function
Response.Write IsAllGB("你好")
实现函数:
function isCharsInBag (s, bag)
{
var i,c;
for (i = 0; i < s.length; i++)
{
c = s.charAt(i);//字符串s中的字符
if (bag.indexOf(c) > -1)
return c;
}
return "";
}
检查函数:
function ischinese(s)
{
var errorChar;
var badChar = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789><,[]{}?/+=|\'":;~!#$%()`";
errorChar = isCharsInBag( s, badChar)
if (errorChar != "" )
{
report=report+"请重新输入中文n";
return false;
}