'判断字符串中是否有中文字符
'有－返回 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