asp汉字转换成汉语拼音

asp汉字转换成汉语拼音代码，将以下代码保存为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
d.add  " gen " , - 18183
d.add  " geng " , - 18181
d.add  " gong " , - 18012
d.add  " gou " , - 17997
d.add  " gu " , - 17988
d.add  " gua " , - 17970
d.add  " guai " , - 17964
d.add  " guan " , - 17961
d.add  " guang " , - 17950
d.add  " gui " , - 17947
d.add  " gun " , - 17931
d.add  " guo " , - 17928
d.add  " ha " , - 17922
d.add  " hai " , - 17759
d.add  " han " , - 17752
d.add  " hang " , - 17733
d.add  " hao " , - 17730
d.add  " he " , - 17721
d.add  " hei " , - 17703
d.add  " hen " , - 17701
d.add  " heng " , - 17697
d.add  " hong " , - 17692
d.add  " hou " , - 17683
d.add  " hu " , - 17676
d.add  " hua " , - 17496
d.add  " huai " , - 17487
d.add  " huan " , - 17482
d.add  " huang " , - 17468
d.add  " hui " , - 17454
d.add  " hun " , - 17433
d.add  " huo " , - 17427
d.add  " ji " , - 17417
d.add  " jia " , - 17202
d.add  " jian " , - 17185
d.add  " jiang " , - 16983
d.add  " jiao " , - 16970
d.add  " jie " , - 16942
d.add  " jin " , - 16915
d.add  " jing " , - 16733
d.add  " jiong " , - 16708
d.add  " jiu " , - 16706
d.add  " ju " , - 16689
d.add  " juan " , - 16664
d.add  " jue " , - 16657
d.add  " jun " , - 16647
d.add  " ka " , - 16474
d.add  " kai " , - 16470
d.add  " kan " , - 16465
d.add  " kang " , - 16459
d.add  " kao " , - 16452
d.add  " ke " , - 16448
d.add  " ken " , - 16433
d.add  " keng " , - 16429
d.add  " kong " , - 16427
d.add  " kou " , - 16423
d.add  " ku " , - 16419
d.add  " kua " , - 16412
d.add  " kuai " , - 16407
d.add  " kuan " , - 16403
d.add  " kuang " , - 16401
d.add  " kui " , - 16393
d.add  " kun " , - 16220
d.add  " kuo " , - 16216
d.add  " la " , - 16212
d.add  " lai " , - 16205
d.add  " lan " , - 16202
d.add  " lang " , - 16187
d.add  " lao " , - 16180
d.add  " le " , - 16171
d.add  " lei " , - 16169
d.add  " leng " , - 16158
d.add  " li " , - 16155
d.add  " lia " , - 15959
d.add  " lian " , - 15958
d.add  " liang " , - 15944
d.add  " liao " , - 15933
d.add  " lie " , - 15920
d.add  " lin " , - 15915
d.add  " ling " , - 15903
d.add  " liu " , - 15889
d.add  " long " , - 15878
d.add  " lou " , - 15707
d.add  " lu " , - 15701
d.add  " lv " , - 15681
d.add  " luan " , - 15667
d.add  " lue " , - 15661
d.add  " lun " , - 15659
d.add  " luo " , - 15652
d.add  " ma " , - 15640
d.add  " mai " , - 15631
d.add  " man " , - 15625
d.add  " mang " , - 15454
d.add  " mao " , - 15448
d.add  " me " , - 15436
d.add  " mei " , - 15435
d.add  " men " , - 15419
d.add  " meng " , - 15416
d.add  " mi " , - 15408
d.add  " mian " , - 15394
d.add  " miao " , - 15385
d.add  " mie " , - 15377
d.add  " min " , - 15375
d.add  " ming " , - 15369
d.add  " miu " , - 15363
d.add  " mo " , - 15362
d.add  " mou " , - 15183
d.add  " mu " , - 15180
d.add  " na " , - 15165
d.add  " nai " , - 15158
d.add  " nan " , - 15153
d.add  " nang " , - 15150
d.add  " nao " , - 15149
d.add  " ne " , - 15144
d.add  " nei " , - 15143
d.add  " nen " , - 15141
d.add  " neng " , - 15140
d.add  " ni " , - 15139
d.add  " nian " , - 15128
d.add  " niang " , - 15121
d.add  " niao " , - 15119
d.add  " nie " , - 15117
d.add  " nin " , - 15110
d.add  " ning " , - 15109
d.add  " niu " , - 14941
d.add  " nong " , - 14937
d.add  " nu " , - 14933
d.add  " nv " , - 14930
d.add  " nuan " , - 14929
d.add  " nue " , - 14928
d.add  " nuo " , - 14926
d.add  " o " , - 14922
d.add  " ou " , - 14921
d.add  " pa " , - 14914
d.add  " pai " , - 14908
d.add  " pan " , - 14902
d.add  " pang " , - 14894
d.add  " pao " , - 14889
d.add  " pei " , - 14882
d.add  " pen " , - 14873
d.add  " peng " , - 14871
d.add  " pi " , - 14857
d.add  " pian " , - 14678
d.add  " piao " , - 14674
d.add  " pie " , - 14670
d.add  " pin " , - 14668
d.add  " ping " , - 14663
d.add  " po " , - 146
d.add  " pu " , - 14645
d.add  " qi " , - 14630
d.add  " qia " , - 14594
d.add  " qian " , - 14429
d.add  " qiang " , - 14407
d.add  " qiao " , - 14399
d.add  " qie " , - 14384
d.add  " qin " , - 14379
d.add  " qing " , - 14368
d.add  " qiong " , - 14355
d.add  " qiu " , - 14353
d.add  " qu " , - 14345
d.add  " quan " , - 14170
d.add  " que " , - 14159
d.add  " qun " , - 14151
d.add  " ran " , - 14149
d.add  " rang " , - 14145
d.add  " rao " , - 14140
d.add  " re " , - 14137
d.add  " ren " , - 14135
d.add  " reng " , - 14125
d.add  " ri " , - 14123
d.add  " rong " , - 14122
d.add  " rou " , - 14112
d.add  " ru " , - 14109
d.add  " ruan " , - 14099
d.add  " rui " , - 14097
d.add  " run " , - 14094
d.add  " ruo " , - 14092
d.add  " sa " , - 14090
d.add  " sai " , - 14087
d.add  " san " , - 14083
d.add  " sang " , - 13917
d.add  " sao " , - 13914
d.add  " se " , - 13910
d.add  " sen " , - 13907
d.add  " seng " , - 13906
d.add  " sha " , - 13905
d.add  " shai " , - 13896
d.add  " shan " , - 13894
d.add  " shang " , - 13878
d.add  " shao " , - 13870
d.add  " she " , - 13859
d.add  " shen " , - 13847
d.add  " sheng " , - 13831
d.add  " shi " , - 13658
d.add  " shou " , - 13611
d.add  " shu " , - 13601
d.add  " shua " , - 13406
d.add  " shuai " , - 13404
d.add  " shuan " , - 13400
d.add  " shuang " , - 13398
d.add  " shui " , - 13395
d.add  " shun " , - 13391
d.add  " shuo " , - 13387
d.add  " si " , - 13383
d.add  " song " , - 13367
d.add  " sou " , - 13359
d.add  " su " , - 13356
d.add  " suan " , - 13343
d.add  " sui " , - 13340
d.add  " sun " , - 13329
d.add  " suo " , - 13326
d.add  " ta " , - 13318
d.add  " tai " , - 13147
d.add  " tan " , - 13138
d.add  " tang " , - 13120
d.add  " tao " , - 13107
d.add  " te " , - 13096
d.add  " teng " , - 13095
d.add  " ti " , - 13091
d.add  " tian " , - 13076
d.add  " tiao " , - 13068
d.add  " tie " , - 13063
d.add  " ting " , - 13060
d.add  " tong " , - 12888
d.add  " tou " , - 12875
d.add  " tu " , - 12871
d.add  " tuan " , - 12860
d.add  " tui " , - 12858
d.add  " tun " , - 12852
d.add  " tuo " , - 12849
d.add  " wa " , - 12838
d.add  " wai " , - 12831
d.add  " wan " , - 12829
d.add  " wang " , - 12812
d.add  " wei " , - 12802
d.add  " wen " , - 12607
d.add  " weng " , - 12597
d.add  " wo " , - 12594
d.add  " wu " , - 12585
d.add  " xi " , - 12556
d.add  " xia " , - 12359
d.add  " xian " , - 12346
d.add  " xiang " , - 12320
d.add  " xiao " , - 12300
d.add  " xie " , - 12120
d.add  " xin " , - 12099
d.add  " xing " , - 12089
d.add  " xiong " , - 12074
d.add  " xiu " , - 12067
d.add  " xu " , - 12058
d.add  " xuan " , - 12039
d.add  " xue " , - 11867
d.add  " xun " , - 11861
d.add  " ya " , - 11847
d.add  " yan " , - 11831
d.add  " yang " , - 11798
d.add  " yao " , - 11781
d.add  " ye " , - 11604
d.add  " yi " , - 11589
d.add  " yin " , - 11536
d.add  " ying " , - 11358
d.add  " yo " , - 11340
d.add  " yong " , - 11339
d.add  " you " , - 11324
d.add  " yu " , - 11303
d.add  " yuan " , - 11097
d.add  " yue " , - 11077
d.add  " yun " , - 11067
d.add  " za " , - 11055
d.add  " zai " , - 11052
d.add  " zan " , - 11045
d.add  " zang " , - 11041
d.add  " zao " , - 11038
d.add  " ze " , - 11024
d.add  " zei " , - 11020
d.add  " zen " , - 11019
d.add  " zeng " , - 11018
d.add  " zha " , - 11014
d.add  " zhai " , - 10838
d.add  " zhan " , - 10832
d.add  " zhang " , - 10815
d.add  " zhao " , - 10800
d.add  " zhe " , - 10790
d.add  " zhen " , - 10780
d.add  " zheng " , - 10764
d.add  " zhi " , - 10587
d.add  " zhong " , - 10544
d.add  " zhou " , - 10533
d.add  " zhu " , - 10519
d.add  " zhua " , - 10331
d.add  " zhuai " , - 10329
d.add  " zhuan " , - 10328
d.add  " zhuang " , - 10322
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


function  g(num)
if  num > 0   and  num < 160   then
g = chr (num)
else
if  num <- 20319   or  num >- 10247   then
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
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 >
请在此处输入中文： < input name = hz >   < input type = " submit "  value = " http://www.aspprogram.cn/转换 "   >
</ form >