asp 判断字符串是否为中文
2019-11-01 14:45:28
注意：要放在<script language=vbscript></script>中
Function FullChinese(str)
’定义一个临时变量
Dim i
’取出整个字符串的长度，赋给这个变量
i = Len(str)
’判断一下字符串是不是空，如果是空，则直接返回失败
’这个判断可以按照你的需求来自己修改
If i = 0 Then
FullChinese = False
Exit Function
End If
’一个一个的取出字符串的每一个字符（从后往前取），
’循环判断取出的字符是不是中文
Do While i > 0
’如果当前取出的字符的ASC码小于10000且大于-10000，
’那么我们就认为这个字符不是中文，
’具体为什么需要你去查ASC表，
’这个判断并不是完全准确的，但是对于你的需求应该足够了
’如果字符串中有一个字符不是中文就返回假
If Asc(Mid(str, i, 1)) < 10000 And Asc(Mid(str, i, 1)) > -10000 Then
FullChinese = False
Exit Function
End If
’如果当前取出的字符是中文，那么就把i减一，
’循环后去判断下一个字符
i = i - 1
Loop
’如果全是中文，那么返回真
FullChinese = True
End Function
使用的例子：
msgbox FullChinese(\\\\\\\"黑夜138845152博客\\\\\\\")
如果是true，则说明里面全是中文的，如果是FALSE说明里面含有不是中文的字符。如果不愿意看注释，自己去删。
