汉字转拼音(首字母)

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