ASP验证中文，求帮助

<%
dim a
a="我"
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
if HasChinese(a)=true then
response.write ("是中文")
else
response.write ("非中文")
end if
%>
为什么提示是“非中文”？我哪里写错了？求大神帮帮忙