有关拼音码获得的问题,求各位侠客帮忙

[redhousecj]

请看下面:
<%
function pym_c(str)
dim c
response.write asc(mid(str,1,1))
response.end
c=""
for i=1 to len(str)
c=c&pym_g(asc(mid(str,i,1)))
next
pym_c=c
end function
function pym_g(num)
Set d = CreateObject("Scripting.Dictionary")
d.add "a",-20319
d.add "ai",-20317
d.add "an",-20304
d.add "ang",-20295
d.add "ao",-20292
d.add "ba",-20283
d.add "bai",-20265
d.add "ban",-20257
d.add "bang",-20242
d.add "bao",-20230
d.add "bei",-20051
d.add "ben",-20036
d.add "beng",-20032
d.add "bi",-20026
d.add "bian",-20002
d.add "biao",-19990
d.add "bie",-19986
d.add "bin",-19982
d.add "bing",-19976
d.add "bo",-19805
d.add "bu",-19784
d.add "ca",-19775
d.add "cai",-19774
d.add "can",-19763
d.add "cang",-19756
d.add "cao",-19751
d.add "ce",-19746
d.add "ceng",-19741
d.add "cha",-19739
d.add "chai",-19728
d.add "chan",-19725
d.add "chang",-19715
.
.
中间太长了，省略。（没办法，贴字限制长度）
.
.
d.add "zhui",-10315
d.add "zhun",-10309
d.add "zhuo",-10307
d.add "zi",-10296
d.add "zong",-10281
d.add "zou",-10274
d.add "zu",-10270
d.add "zuan",-10262
d.add "zui",-10260
d.add "zun",-10256
d.add "zuo",-10254
if num>0 and num<160 then
pym_g=chr(num)
else
if num<-20319 or num>-10247 then
pym_g=""
else
a=d.Items
b=d.keys
for i=d.count-1 to 0 step -1
if a(i)<=num then exit for
next
pym_g=left(b(i),1)
end if
end if
end function
response.write pym_c("帮忙")
%>
这都是正常可以打印出"pm"两个拼音首字母,可是换了个不常用的字,如"焱"字就不行了.求各位给与帮助

[redhousecj]

是啊是啊就是范围不够,可是各位谁可以给个全点的字典呢

[KimSoft]

if num<-20319 or num>-10247 then
pym_g=""

应该是你上面的字典支持范围不够。