汉字转拼音(首字母)

<script language=vbscript> <!-- function getpychar(char) tmp=65536+asc(char) if(tmp>=45217 and tmp<=45252) then  getpychar= "a" elseif(tmp>=45253 and tmp<=45760) then getpychar= "b" elseif(tmp>=45761 and tmp<=46317) then getpychar= "c" elseif(tmp>=46318 and tmp<=46825) then getpychar= "d" elseif(tmp>=46826 and tmp<=47009) then  getpychar= "e" elseif(tmp>=47010 and tmp<=47296) then  getpychar= "f" elseif(tmp>=47297 and tmp<=47613) then  getpychar= "g" elseif(tmp>=47614 and tmp<=48118) then getpychar= "h" elseif(tmp>=48119 and tmp<=49061) then getpychar= "j" elseif(tmp>=49062 and tmp<=49323) then  getpychar= "k" elseif(tmp>=49324 and tmp<=49895) then  getpychar= "l" elseif(tmp>=49896 and tmp<=50370) then  getpychar= "m" elseif(tmp>=50371 and tmp<=50613) then  getpychar= "n" elseif(tmp>=50614 and tmp<=50621) then  getpychar= "o" elseif(tmp>=50622 and tmp<=50905) then getpychar= "p" elseif(tmp>=50906 and tmp<=51386) then  getpychar= "q" elseif(tmp>=51387 and tmp<=51445) then  getpychar= "r" elseif(tmp>=51446 and tmp<=52217) then  getpychar= "s" elseif(tmp>=52218 and tmp<=52697) then  getpychar= "t" elseif(tmp>=52698 and tmp<=52979) then  getpychar= "w" elseif(tmp>=52980 and tmp<=53640) then  getpychar= "x" elseif(tmp>=53689 and tmp<=54480) then  getpychar= "y" elseif(tmp>=54481 and tmp<=62289) then getpychar= "z" else //如果不是中文，则不处理 getpychar=char end if end function function getpy(str) for i=1 to len(str) getpy=getpy&getpychar(mid(str,i,1)) next msgbox getpy end function //--> </SCRIPT> <form name="form1" action=""> <input type="text" name="no1" value="哈哈"> <input type="button" value="转拼音首字母" onclick="getpy(form1.no1.value)"> </form>

转载于:https://www.cnblogs.com/coolylh/archive/2005/12/07/292720.html