汉字判断函数

<script language=javascript>
cntext=window.prompt("请输入中文:");
</script>

<script language=vbs>
function isChinese(para)
on error resume next
if isNUll(para) then
isChinese=false
exit function
end if
if trim(para)="" then
isChinese=false
exit function
end if
dim c
for i=1 to len(para)
c=asc(mid(para,i,1))
if c>=0 then
isChinese=false
exit function
end if
next
isChinese=true
if err.number<>0 then err.clear
end function

if not isChinese(cntext) then
alert("请输入汉字！")
else
alert("您输入的汉字是：" & cntext)
end if
</script>