抱歉,疏忽了
<%
dim str,i,out
str="2008中国"
out="字符串中没有汉字"
for i=1 to len(str)
    if asc(mid(str,i,1))<0 then
        out="字符串中含有汉字"
    end if
next
response.write out
%>