js通过汉子转化汉语拼音首字母

<script type="text/vbscript">
function vbChr(c)
vbChr = chr(c)
end function

function vbAsc(n)
vbAsc = asc(n)
end function
</script>

<script language=javascript>
var py=new Array(20319,
20283,
19775,
19218,
18710,
18526,
18239,
17922,
17922,
17417,
16474,
16212,
15640,
15165,
14922,
14914,
14630,
14149,
14090,
13318,
13318,
13318,
12838,
12556,
11847,
11055,0);
function getPinYin(index){
 var i;
 if(index==0x1534) return 'y';
 if(index>0x4F5F||index<0x2807) return '';
 i=0;while(py[i]>=index)i++;
 if (i==9) i--;
 if(i==21 || i==22) i=20;
 return vbChr(96+i);
}

function pinyin(s){
var i,s2='';
for (i=0;i<s.length;i++)s2+=(getPinYin(0-vbAsc(s.charAt(i))));
return s2;
}

document.writeln(pinyin('中华人民共和国'));
</script>