ASP判断字符串是否全部为中文

这个ASP函数在某些需要强制用户输入中文时会用到，具体的函数代码和示例如下：

<%'ASP判断字符串是否全部为中文
Function FullChinese(str) 
'定义一个临时变量 
Dim i 
'取出整个字符串的长度，赋给这个变量 
i=Len(str) 
'判断一下字符串是不是空，如果是空，则直接返回"False"
If i=0 Then 
FullChinese=False 
Exit Function 
End If 
'一个一个的取出字符串的每一个字符（从后往前取），循环判断取出的字符是不是中文 
Do While i>0 
'如果当前取出的字符的ASC码小于10000且大于-10000，那么我们就认为这个字符不是中文  
'这个判断并不是完全准确的，但是对于一般的需求应该足够了 
'如果字符串中有一个字符不是中文就返回"False" 
If Asc(Mid(str,i,1))<10000 And Asc(Mid(str,i,1))>-10000 Then 
FullChinese=False 
Exit Function 
End If 
'如果当前取出的字符是中文，那么就把i减1，循环后去判断下一个字符 
i=i-1 
Loop 
'如果全是中文，那么返回"True" 
FullChinese=True 
End Function  
'示例：
Response.write FullChinese("中国站长天空")%>

　　ASP判断字符串是否包含中文：。

　　JS判断字符串是否包含中文：。

　　JS判断字符串是否全为中文：。