<%
dim enstr,cnstr
enstr = "dfasdfaasd"
cnstr = "这里含有中文字符asdfsdf"

function nothaveChinese(para)
dim str
nothaveChinese=true
str=cstr(para)
for i = 1 to Len(para)
c=asc(mid(str,i,1))
if c<0 then
nothaveChinese=false '说明含有中文字符
exit function
end if
next
end function

response.Write(nothaveChinese(enstr) &"<BR>")
response.Write(nothaveChinese(cnstr) &"<BR>")
%>