ASP 判断是否有中文的代码

在 ASP（VBScript 为语言）中，Asc 函数的返回值小于 0 的，可以被判断为中文字符。Asc 函数返回与字符串的第一个字母对应的 ANSI 字符代码。
代码如下:
'判断字符串中是否有中文字符
'有－返回 true
'无－返回 false
'这里的中文字符可能还包括日文、韩文等东方文字
function HasChinese(str)
HasChinese = false

dim i
for i=1 to Len(str)
if Asc(Mid(str,i,1)) < 0 then
HasChinese = true
exit for
end if
next
end function

js判断是否有中文