<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>