中文转拼音ASP程序

<%
    Set goaler = CreateObject("Scripting.Dictionary")
    goaler.add "a",-20319
    goaler.add "ai",-20317
    goaler.add "an",-20304
    goaler.add "ang",-20295
    goaler.add "ao",-20292
    goaler.add "ba",-20283
    goaler.add "bai",-20265
    goaler.add "ban",-20257
    goaler.add "bang",-20242
    goaler.add "bao",-20230
    goaler.add "bei",-20051
    goaler.add "ben",-20036
    goaler.add "beng",-20032
    goaler.add "bi",-20026
    goaler.add "bian",-20002
    goaler.add "biao",-19990
    goaler.add "bie",-19986
    goaler.add "bin",-19982
    goaler.add "bing",-19976
    goaler.add "bo",-19805
    goaler.add "bu",-19784
    goaler.add "ca",-19775
    goaler.add "cai",-19774
    goaler.add "can",-19763
    goaler.add "cang",-19756
    goaler.add "cao",-19751
    goaler.add "ce",-19746
    goaler.add "ceng",-19741
    goaler.add "cha",-19739
    goaler.add "chai",-19728
    goaler.add "chan",-19725
    goaler.add "chang",-19715
    goaler.add "chao",-19540
    goaler.add "che",-19531
    goaler.add "chen",-19525
    goaler.add "cheng",-19515
    goaler.add "chi",-19500
    goaler.add "chong",-19484
    goaler.add "chou",-19479
    goaler.add "chu",-19467
    goaler.add "chuai",-19289
    goaler.add "chuan",-19288
    goaler.add "chuang",-19281
    goaler.add "chui",-19275
    goaler.add "chun",-19270
    goaler.add "chuo",-19263
    goaler.add "ci",-19261
    goaler.add "cong",-19249
    goaler.add "cou",-19243
    goaler.add "cu",-19242
    goaler.add "cuan",-19238
    goaler.add "cui",-19235
    goaler.add "cun",-19227
    goaler.add "cuo",-19224
    goaler.add "da",-19218
    goaler.add "dai",-19212
    goaler.add "dan",-19038
    goaler.add "dang",-19023
    goaler.add "dao",-19018
    goaler.add "de",-19006
    goaler.add "deng",-19003
    goaler.add "di",-18996
    goaler.add "dian",-18977
    goaler.add "diao",-18961
    goaler.add "die",-18952
    goaler.add "ding",-18783
    goaler.add "diu",-18774
    goaler.add "dong",-18773
    goaler.add "dou",-18763
    goaler.add "du",-18756
    goaler.add "duan",-18741
    goaler.add "dui",-18735
    goaler.add "dun",-18731
    goaler.add "duo",-18722
    goaler.add "e",-18710
    goaler.add "en",-18697
    goaler.add "er",-18696
    goaler.add "fa",-18526
    goaler.add "fan",-18518
    goaler.add "fang",-18501
    goaler.add "fei",-18490
    goaler.add "fen",-18478
    goaler.add "feng",-18463
    goaler.add "fo",-18448
    goaler.add "fou",-18447
    goaler.add "fu",-18446
    goaler.add "ga",-18239
    goaler.add "gai",-18237
    goaler.add "gan",-18231
    goaler.add "gang",-18220
    goaler.add "gao",-18211
    goaler.add "ge",-18201
    goaler.add "gei",-18184
    goaler.add "gen",-18183
    goaler.add "geng",-18181
    goaler.add "gong",-18012
    goaler.add "gou",-17997
    goaler.add "gu",-17988
    goaler.add "gua",-17970
    goaler.add "guai",-17964
    goaler.add "guan",-17961
    goaler.add "guang",-17950
    goaler.add "gui",-17947
    goaler.add "gun",-17931
    goaler.add "guo",-17928
    goaler.add "ha",-17922
    goaler.add "hai",-17759
    goaler.add "han",-17752
    goaler.add "hang",-17733
    goaler.add "hao",-17730
    goaler.add "he",-17721
    goaler.add "hei",-17703
    goaler.add "hen",-17701
    goaler.add "heng",-17697
    goaler.add "hong",-17692
    goaler.add "hou",-17683
    goaler.add "hu",-17676
    goaler.add "hua",-17496
    goaler.add "huai",-17487
    goaler.add "huan",-17482
    goaler.add "huang",-17468
    goaler.add "hui",-17454
    goaler.add "hun",-17433
    goaler.add "huo",-17427
    goaler.add "ji",-17417
    goaler.add "jia",-17202
    goaler.add "jian",-17185
    goaler.add "jiang",-16983
    goaler.add "jiao",-16970
    goaler.add "jie",-16942
    goaler.add "jin",-16915
    goaler.add "jing",-16733
    goaler.add "jiong",-16708
    goaler.add "jiu",-16706
    goaler.add "ju",-16689
    goaler.add "juan",-16664
    goaler.add "jue",-16657
    goaler.add "jun",-16647
    goaler.add "ka",-16474
    goaler.add "kai",-16470
    goaler.add "kan",-16465
    goaler.add "kang",-16459
    goaler.add "kao",-16452
    goaler.add "ke",-16448
    goaler.add "ken",-16433
    goaler.add "keng",-16429
    goaler.add "kong",-16427
    goaler.add "kou",-16423
    goaler.add "ku",-16419
    goaler.add "kua",-16412
    goaler.add "kuai",-16407
    goaler.add "kuan",-16403
    goaler.add "kuang",-16401
    goaler.add "kui",-16393
    goaler.add "kun",-16220
    goaler.add "kuo",-16216
    goaler.add "la",-16212
    goaler.add "lai",-16205
    goaler.add "lan",-16202
    goaler.add "lang",-16187
    goaler.add "lao",-16180
    goaler.add "le",-16171
    goaler.add "lei",-16169
    goaler.add "leng",-16158
    goaler.add "li",-16155
    goaler.add "lia",-15959
    goaler.add "lian",-15958
    goaler.add "liang",-15944
    goaler.add "liao",-15933
    goaler.add "lie",-15920
    goaler.add "lin",-15915
    goaler.add "ling",-15903
    goaler.add "liu",-15889
    goaler.add "long",-15878
    goaler.add "lou",-15707
    goaler.add "lu",-15701
    goaler.add "lv",-15681
    goaler.add "luan",-15667
    goaler.add "lue",-15661
    goaler.add "lun",-15659
    goaler.add "luo",-15652
    goaler.add "ma",-15640
    goaler.add "mai",-15631
    goaler.add "man",-15625
    goaler.add "mang",-15454
    goaler.add "mao",-15448
    goaler.add "me",-15436
    goaler.add "mei",-15435
    goaler.add "men",-15419
    goaler.add "meng",-15416
    goaler.add "mi",-15408
    goaler.add "mian",-15394
    goaler.add "miao",-15385
    goaler.add "mie",-15377
    goaler.add "min",-15375
    goaler.add "ming",-15369
    goaler.add "miu",-15363
    goaler.add "mo",-15362
    goaler.add "mou",-15183
    goaler.add "mu",-15180
    goaler.add "na",-15165
    goaler.add "nai",-15158
    goaler.add "nan",-15153
    goaler.add "nang",-15150
    goaler.add "nao",-15149
    goaler.add "ne",-15144
    goaler.add "nei",-15143
    goaler.add "nen",-15141
    goaler.add "neng",-15140
    goaler.add "ni",-15139
    goaler.add "nian",-15128
    goaler.add "niang",-15121
    goaler.add "niao",-15119
    goaler.add "nie",-15117
    goaler.add "nin",-15110
    goaler.add "ning",-15109
    goaler.add "niu",-14941
    goaler.add "nong",-14937
    goaler.add "nu",-14933
    goaler.add "nv",-14930
    goaler.add "nuan",-14929
    goaler.add "nue",-14928
    goaler.add "nuo",-14926
    goaler.add "o",-14922
    goaler.add "ou",-14921
    goaler.add "pa",-14914
    goaler.add "pai",-14908
    goaler.add "pan",-14902
    goaler.add "pang",-14894
    goaler.add "pao",-14889
    goaler.add "pei",-14882
    goaler.add "pen",-14873
    goaler.add "peng",-14871
    goaler.add "pi",-14857
    goaler.add "pian",-14678
    goaler.add "piao",-14674
    goaler.add "pie",-14670
    goaler.add "pin",-14668
    goaler.add "ping",-14663
    goaler.add "po",-14654
    goaler.add "pu",-14645
    goaler.add "qi",-14630
    goaler.add "qia",-14594
    goaler.add "qian",-14429
    goaler.add "qiang",-14407
    goaler.add "qiao",-14399
    goaler.add "qie",-14384
    goaler.add "qin",-14379
    goaler.add "qing",-14368
    goaler.add "qiong",-14355
    goaler.add "qiu",-14353
    goaler.add "qu",-14345
    goaler.add "quan",-14170
    goaler.add "que",-14159
    goaler.add "qun",-14151
    goaler.add "ran",-14149
    goaler.add "rang",-14145
    goaler.add "rao",-14140
    goaler.add "re",-14137
    goaler.add "ren",-14135
    goaler.add "reng",-14125
    goaler.add "ri",-14123
    goaler.add "rong",-14122
    goaler.add "rou",-14112
    goaler.add "ru",-14109
    goaler.add "ruan",-14099
    goaler.add "rui",-14097
    goaler.add "run",-14094
    goaler.add "ruo",-14092
    goaler.add "sa",-14090
    goaler.add "sai",-14087
    goaler.add "san",-14083
    goaler.add "sang",-13917
    goaler.add "sao",-13914
    goaler.add "se",-13910
    goaler.add "sen",-13907
    goaler.add "seng",-13906
    goaler.add "sha",-13905
    goaler.add "shai",-13896
    goaler.add "shan",-13894
    goaler.add "shang",-13878
    goaler.add "shao",-13870
    goaler.add "she",-13859
    goaler.add "shen",-13847
    goaler.add "sheng",-13831
    goaler.add "shi",-13658
    goaler.add "shou",-13611
    goaler.add "shu",-13601
    goaler.add "shua",-13406
    goaler.add "shuai",-13404
    goaler.add "shuan",-13400
    goaler.add "shuang",-13398
    goaler.add "shui",-13395
    goaler.add "shun",-13391
    goaler.add "shuo",-13387
    goaler.add "si",-13383
    goaler.add "song",-13367
    goaler.add "sou",-13359
    goaler.add "su",-13356
    goaler.add "suan",-13343
    goaler.add "sui",-13340
    goaler.add "sun",-13329
    goaler.add "suo",-13326
    goaler.add "ta",-13318
    goaler.add "tai",-13147
    goaler.add "tan",-13138
    goaler.add "tang",-13120
    goaler.add "tao",-13107
    goaler.add "te",-13096
    goaler.add "teng",-13095
    goaler.add "ti",-13091
    goaler.add "tian",-13076
    goaler.add "tiao",-13068
    goaler.add "tie",-13063
    goaler.add "ting",-13060
    goaler.add "tong",-12888
    goaler.add "tou",-12875
    goaler.add "tu",-12871
    goaler.add "tuan",-12860
    goaler.add "tui",-12858
    goaler.add "tun",-12852
    goaler.add "tuo",-12849
    goaler.add "wa",-12838
    goaler.add "wai",-12831
    goaler.add "wan",-12829
    goaler.add "wang",-12812
    goaler.add "wei",-12802
    goaler.add "wen",-12607
    goaler.add "weng",-12597
    goaler.add "wo",-12594
    goaler.add "wu",-12585
    goaler.add "xi",-12556
    goaler.add "xia",-12359
    goaler.add "xian",-12346
    goaler.add "xiang",-12320
    goaler.add "xiao",-12300
    goaler.add "xie",-12120
    goaler.add "xin",-12099
    goaler.add "xing",-12089
    goaler.add "xiong",-12074
    goaler.add "xiu",-12067
    goaler.add "xu",-12058
    goaler.add "xuan",-12039
    goaler.add "xue",-11867
    goaler.add "xun",-11861
    goaler.add "ya",-11847
    goaler.add "yan",-11831
    goaler.add "yang",-11798
    goaler.add "yao",-11781
    goaler.add "ye",-11604
    goaler.add "yi",-11589
    goaler.add "yin",-11536
    goaler.add "ying",-11358
    goaler.add "yo",-11340
    goaler.add "yong",-11339
    goaler.add "you",-11324
    goaler.add "yu",-11303
    goaler.add "yuan",-11097
    goaler.add "yue",-11077
    goaler.add "yun",-11067
    goaler.add "za",-11055
    goaler.add "zai",-11052
    goaler.add "zan",-11045
    goaler.add "zang",-11041
    goaler.add "zao",-11038
    goaler.add "ze",-11024
    goaler.add "zei",-11020
    goaler.add "zen",-11019
    goaler.add "zeng",-11018
    goaler.add "zha",-11014
    goaler.add "zhai",-10838
    goaler.add "zhan",-10832
    goaler.add "zhang",-10815
    goaler.add "zhao",-10800
    goaler.add "zhe",-10790
    goaler.add "zhen",-10780
    goaler.add "zheng",-10764
    goaler.add "zhi",-10587
    goaler.add "zhong",-10544
    goaler.add "zhou",-10533
    goaler.add "zhu",-10519
    goaler.add "zhua",-10331
    goaler.add "zhuai",-10329
    goaler.add "zhuan",-10328
    goaler.add "zhuang",-10322
    goaler.add "zhui",-10315
    goaler.add "zhun",-10309
    goaler.add "zhuo",-10307
    goaler.add "zi",-10296
    goaler.add "zong",-10281
    goaler.add "zou",-10274
    goaler.add "zu",-10270
    goaler.add "zuan",-10262
    goaler.add "zui",-10260
    goaler.add "zun",-10256
    goaler.add "zuo",-10254
    
    function g(num)
    if num>0 and num<160 then
    g=chr(num)
    else 
    if num<-20319 or num>-10247 then
    g=""
    else
    a=goaler.Items
    b=goaler.keys
    for i=goaler.count-1 to 0 step -1
    if a(i)<=num then exit for
    next
    g=b(i)
    end if
    end if
    end function
    function c(str)
    c=""
    for i=1 to len(str)
    c=c&g(asc(mid(str,i,1)))
    next
    end function 
    response.write c(request("hz"))
    %>
<form method=post action=page.asp>
请在此处输入中文：<input name=hz> <INPUT TYPE="submit" value=提交>
</form>