区位码查询系统(vbscript)

区位码查询系统用于查询汉字编码以涂信息卡 <script LANGUAGE="VBScript"> function genqw() str=document.getElementById("txt1").value newstr="" for i=1 to len(str) newstr=newstr&getqw(mid(str,i,1)) next document.getElementById("txt2").value=newstr end function function getqw(ch) casc=asc(ch) if casc<0 then casc=casc+65535+1 if casc>255 then b2=right("0"&((casc and 255)-160),2) b1=right("0"&(int(casc/256)-160),2) getqw=ch & " "&b1&b2 &" " else getqw=ch end if end function </script>

区位码查询系统

要查询的汉字: 　点击查询-->
汉字编码　　: