学院首页>网络编程>ASP>ASP汉字转拼音函数

ASP汉字转拼音函数

作者: 来源: 添加时间:2006-5-21 18:31:49
<%
 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",-14654
 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>
 </form>
站内搜索