一个关于ASP汉字转拼音的问题！

<%
function getpychar(char)
dim tmpp:tmpp=65536+asc(char)
if(tmpp>=45217 and tmpp <=45252) then
getpychar= "A"
elseif(tmpp>=45253 and tmpp <=45760) then
getpychar= "B"
elseif(tmpp>=45761 and tmpp <=46317) then
getpychar= "C"
elseif(tmpp>=46318 and tmpp <=46825) then
getpychar= "D"
elseif(tmpp>=46826 and tmpp <=47009) then
getpychar= "E"
elseif(tmpp>=47010 and tmpp <=47296) then
getpychar= "F"
elseif(tmpp>=47297 and tmpp <=47613) then
getpychar= "G"
elseif(tmpp>=47614 and tmpp <=48118) then
getpychar= "H"
elseif(tmpp>=48119 and tmpp <=49061) then
getpychar= "J"
elseif(tmpp>=49062 and tmpp <=49323) then
getpychar= "K"
elseif(tmpp>=49324 and tmpp <=49895) then
getpychar= "L"
elseif(tmpp>=49896 and tmpp <=50370) then
getpychar= "M"
elseif(tmpp>=50371 and tmpp <=50613) then
getpychar= "N"
elseif(tmpp>=50614 and tmpp <=50621) then
getpychar= "O"
elseif(tmpp>=50622 and tmpp <=50905) then
getpychar= "P"
elseif(tmpp>=50906 and tmpp <=51386) then
getpychar= "Q"
elseif(tmpp>=5