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