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>
posted @ 2009-06-19 11:55  TONYBINLJ  阅读(510)  评论(0编辑  收藏  举报