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