用ASP实现汉字转拼音的功能

<%
　　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 "chao",-19540
　　d.add "che",-19531
　　d.add "chen",-19525
　　d.add "cheng",-19515
　　d.add "chi",-19500
　　d.add "chong",-19484
　　d.add "chou",-19479
　　d.add "chu",-19467
　　d.add "chuai",-19289
　　d.add "chuan",-19288
　　d.add "chuang",-19281
　　d.add "chui",-19275
　　d.add "chun",-19270
　　d.add "chuo",-19263
　　d.add "ci",-19261
　　d.add "cong",-19249
　　d.add "cou",-19243
　　d.add "cu",-19242
　　d.add "cuan",-19238
　　d.add "cui",-19235
　　d.add "cun",-19227
　　d.add "cuo",-19224
　　d.add "da",-19218
　　d.add "dai",-19212
　　d.add "dan",-19038
　　d.add "dang",-19023
　　d.add "dao",-19018
　　d.add "de",-19006
　　d.add "deng",-19003
　　d.add "di",-18996
　　d.add "dian",-18977
　　d.add "diao",-18961
　　d.add "die",-18952
　　d.add "ding",-18783
　　d.add "diu",-18774
　　d.add "dong",-18773
　　d.add "dou",-18763
　　d.add "du",-18756
　　d.add "duan",-18741
　　d.add "dui",-18735
　　d.add "dun",-18731
　　d.add "duo",-18722
　　d.add "e",-18710
　　d.add "en",-18697
　　d.add "er",-18696
　　d.add "fa",-18526
　　d.add "fan",-18518
　　d.add "fang",-18501
　　d.add "fei",-18490
　　d.add "fen",-18478
　　d.add "feng",-18463
　　d.add "fo",-18448
　　d.add "fou",-18447
　　d.add "fu",-18446
　　d.add "ga",-18239
　　d.add "gai",-18237
　　d.add "gan",-18231
　　d.add "gang",-18220
　　d.add "gao",-18211
　　d.add "ge",-18201
　　d.add "gei",-18184