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

  1<%
  2Set D = Createobject("Scripting.Dictionary")
  3D.Add "A",-20319
  4D.Add "Ai",-20317
  5D.Add "An",-20304
  6D.Add "Ang",-20295
  7D.Add "Ao",-20292
  8D.Add "Ba",-20283
  9D.Add "Bai",-20265
 10D.Add "Ban",-20257
 11D.Add "Bang",-20242
 12D.Add "Bao",-20230
 13D.Add "Bei",-20051
 14D.Add "Ben",-20036
 15D.Add "Beng",-20032
 16D.Add "Bi",-20026
 17D.Add "Bian",-20002
 18D.Add "Biao",-19990
 19D.Add "Bie",-19986
 20D.Add "Bin",-19982
 21D.Add "Bing",-19976
 22D.Add "Bo",-19805
 23D.Add "Bu",-19784
 24D.Add "Ca",-19775
 25D.Add "Cai",-19774
 26D.Add "Can",-19763
 27D.Add "Cang",-19756
 28D.Add "Cao",-19751
 29D.Add "Ce",-19746
 30D.Add "Ceng",-19741
 31D.Add "Cha",-19739
 32D.Add "Chai",-19728
 33D.Add "Chan",-19725
 34D.Add "Chang",-19715
 35D.Add "Chao",-19540
 36D.Add "Che",-19531
 37D.Add "Chen",-19525
 38D.Add "Cheng",-19515
 39D.Add "Chi",-19500
 40D.Add "Chong",-19484
 41D.Add "Chou",-19479
 42D.Add "Chu",-19467
 43D.Add "Chuai",-19289
 44D.Add "Chuan",-19288
 45D.Add "Chuang",-19281
 46D.Add "Chui",-19275
 47D.Add "Chun",-19270
 48D.Add "Chuo",-19263
 49D.Add "Ci",-19261
 50D.Add "Cong",-19249
 51D.Add "Cou",-19243
 52D.Add "Cu",-19242
 53D.Add "Cuan",-19238
 54D.Add "Cui",-19235
 55D.Add "Cun",-19227
 56D.Add "Cuo",-19224
 57D.Add "Da",-19218
 58D.Add "Dai",-19212
 59D.Add "Dan",-19038
 60D.Add "Dang",-19023
 61D.Add "Dao",-19018
 62D.Add "De",-19006
 63D.Add "Deng",-19003
 64D.Add "Di",-18996
 65D.Add "Dian",-18977
 66D.Add "Diao",-18961
 67D.Add "Die",-18952
 68D.Add "Ding",-18783
 69D.Add "Diu",-18774
 70D.Add "Dong",-18773
 71D.Add "Dou",-18763
 72D.Add "Du",-18756
 73D.Add "Duan",-18741
 74D.Add "Dui",-18735
 75D.Add "Dun",-18731
 76D.Add "Duo",-18722
 77D.Add "E",-18710
 78D.Add "En",-18697
 79D.Add "Er",-18696
 80D.Add "Fa",-18526
 81D.Add "Fan",-18518
 82D.Add "Fang",-18501
 83D.Add "Fei",-18490
 84D.Add "Fen",-18478
 85D.Add "Feng",-18463
 86D.Add "Fo",-18448
 87D.Add "Fou",-18447
 88D.Add "Fu",-18446
 89D.Add "Ga",-18239
 90D.Add "Gai",-18237
 91D.Add "Gan",-18231
 92D.Add "Gang",-18220
 93D.Add "Gao",-18211
 94D.Add "Ge",-18201
 95D.Add "Gei",-18184
 96D.Add "Gen",-18183
 97D.Add "Geng",-18181
 98D.Add "Gong",-18012
 99D.Add "Gou",-17997
100D.Add "Gu",-17988
101D.Add "Gua",-17970
102D.Add "Guai",-17964
103D.Add "Guan",-17961
104D.Add "Guang",-17950
105D.Add "Gui",-17947
106D.Add "Gun",-17931
107D.Add "Guo",-17928
108D.Add "Ha",-17922
109D.Add "Hai",-17759
110D.Add "Han",-17752
111D.Add "Hang",-17733
112D.Add "Hao",-17730
113D.Add "He",-17721
114D.Add "Hei",-17703
115D.Add "Hen",-17701
116D.Add "Heng",-17697
117D.Add "Hong",-17692
118D.Add "Hou",-17683
119D.Add "Hu",-17676
120D.Add "Hua",-17496
121D.Add "Huai",-17487
122D.Add "Huan",-17482
123D.Add "Huang",-17468
124D.Add "Hui",-17454
125D.Add "Hun",-17433
126D.Add "Huo",-17427
127D.Add "Ji",-17417
128D.Add "Jia",-17202
129D.Add "Jian",-17185
130D.Add "Jiang",-16983
131D.Add "Jiao",-16970
132D.Add "Jie",-16942
133D.Add "Jin",-16915
134D.Add "Jing",-16733
135D.Add "Jiong",-16708
136D.Add "Jiu",-16706
137D.Add "Ju",-16689
138D.Add "Juan",-16664
139D.Add "Jue",-16657
140D.Add "Jun",-16647
141D.Add "Ka",-16474
142D.Add "Kai",-16470
143D.Add "Kan",-16465
144D.Add "Kang",-16459
145D.Add "Kao",-16452
146D.Add "Ke",-16448
147D.Add "Ken",-16433
148D.Add "Keng",-16429
149D.Add "Kong",-16427
150D.Add "Kou",-16423
151D.Add "Ku",-16419
152D.Add "Kua",-16412
153D.Add "Kuai",-16407
154D.Add "Kuan",-16403
155D.Add "Kuang",-16401
156D.Add "Kui",-16393
157D.Add "Kun",-16220
158D.Add "Kuo",-16216
159D.Add "La",-16212
160D.Add "Lai",-16205
161D.Add "Lan",-16202
162D.Add "Lang",-16187
163D.Add "Lao",-16180
164D.Add "Le",-16171
165D.Add "Lei",-16169
166D.Add "Leng",-16158
167D.Add "Li",-16155
168D.Add "Lia",-15959
169D.Add "Lian",-15958
170D.Add "Liang",-15944
171D.Add "Liao",-15933
172D.Add "Lie",-15920
173D.Add "Lin",-15915
174D.Add "Ling",-15903
175D.Add "Liu",-15889
176D.Add "Long",-15878
177D.Add "Lou",-15707
178D.Add "Lu",-15701
179D.Add "Lv",-15681
180D.Add "Luan",-15667
181D.Add "Lue",-15661
182D.Add "Lun",-15659
183D.Add "Luo",-15652
184D.Add "Ma",-15640
185D.Add "Mai",-15631
186D.Add "Man",-15625
187D.Add "Mang",-15454
188D.Add "Mao",-15448
189D.Add "Me",-15436
190D.Add "Mei",-15435
191D.Add "Men",-15419
192D.Add "Meng",-15416
193D.Add "Mi",-15408
194D.Add "Mian",-15394
195D.Add "Miao",-15385
196D.Add "Mie",-15377
197D.Add "Min",-15375
198D.Add "Ming",-15369
199D.Add "Miu",-15363
200D.Add "Mo",-15362
201D.Add "Mou",-15183
202D.Add "Mu",-15180
203D.Add "Na",-15165
204D.Add "Nai",-15158
205D.Add "Nan",-15153
206D.Add "Nang",-15150
207D.Add "Nao",-15149
208D.Add "Ne",-15144
209D.Add "Nei",-15143
210D.Add "Nen",-15141
211D.Add "Neng",-15140
212D.Add "Ni",-15139
213D.Add "Nian",-15128
214D.Add "Niang",-15121
215D.Add "Niao",-15119
216D.Add "Nie",-15117
217D.Add "Nin",-15110
218D.Add "Ning",-15109
219D.Add "Niu",-14941
220D.Add "Nong",-14937
221D.Add "Nu",-14933
222D.Add "Nv",-14930
223D.Add "Nuan",-14929
224D.Add "Nue",-14928
225D.Add "Nuo",-14926
226D.Add "O",-14922
227D.Add "Ou",-14921
228D.Add "Pa",-14914
229D.Add "Pai",-14908
230D.Add "Pan",-14902
231D.Add "Pang",-14894
232D.Add "Pao",-14889
233D.Add "Pei",-14882
234D.Add "Pen",-14873
235D.Add "Peng",-14871
236D.Add "Pi",-14857
237D.Add "Pian",-14678
238D.Add "Piao",-14674
239D.Add "Pie",-14670
240D.Add "Pin",-14668
241D.Add "Ping",-14663
242D.Add "Po",-14654
243D.Add "Pu",-14645
244D.Add "Qi",-14630
245D.Add "Qia",-14594
246D.Add "Qian",-14429
247D.Add "Qiang",-14407
248D.Add "Qiao",-14399
249D.Add "Qie",-14384
250D.Add "Qin",-14379
251D.Add "Qing",-14368
252D.Add "Qiong",-14355
253D.Add "Qiu",-14353
254D.Add "Qu",-14345
255D.Add "Quan",-14170
256D.Add "Que",-14159
257D.Add "Qun",-14151
258D.Add "Ran",-14149
259D.Add "Rang",-14145
260D.Add "Rao",-14140
261D.Add "Re",-14137
262D.Add "Ren",-14135
263D.Add "Reng",-14125
264D.Add "Ri",-14123
265D.Add "Rong",-14122
266D.Add "Rou",-14112
267D.Add "Ru",-14109
268D.Add "Ruan",-14099
269D.Add "Rui",-14097
270D.Add "Run",-14094
271D.Add "Ruo",-14092
272D.Add "Sa",-14090
273D.Add "Sai",-14087
274D.Add "San",-14083
275D.Add "Sang",-13917
276D.Add "Sao",-13914
277D.Add "Se",-13910
278D.Add "Sen",-13907
279D.Add "Seng",-13906
280D.Add "Sha",-13905
281D.Add "Shai",-13896
282D.Add "Shan",-13894
283D.Add "Shang",-13878
284D.Add "Shao",-13870
285D.Add "She",-13859
286D.Add "Shen",-13847
287D.Add "Sheng",-13831
288D.Add "Shi",-13658
289D.Add "Shou",-13611
290D.Add "Shu",-13601
291D.Add "Shua",-13406
292D.Add "Shuai",-13404
293D.Add "Shuan",-13400
294D.Add "Shuang",-13398
295D.Add "Shui",-13395
296D.Add "Shun",-13391
297D.Add "Shuo",-13387
298D.Add "Si",-13383
299D.Add "Song",-13367
300D.Add "Sou",-13359
301D.Add "Su",-13356
302D.Add "Suan",-13343
303D.Add "Sui",-13340
304D.Add "Sun",-13329
305D.Add "Suo",-13326
306D.Add "Ta",-13318
307D.Add "Tai",-13147
308D.Add "Tan",-13138
309D.Add "Tang",-13120
310D.Add "Tao",-13107
311D.Add "Te",-13096
312D.Add "Teng",-13095
313D.Add "Ti",-13091
314D.Add "Tian",-13076
315D.Add "Tiao",-13068
316D.Add "Tie",-13063
317D.Add "Ting",-13060
318D.Add "Tong",-12888
319D.Add "Tou",-12875
320D.Add "Tu",-12871
321D.Add "Tuan",-12860
322D.Add "Tui",-12858
323D.Add "Tun",-12852
324D.Add "Tuo",-12849
325D.Add "Wa",-12838
326D.Add "Wai",-12831
327D.Add "Wan",-12829
328D.Add "Wang",-12812
329D.Add "Wei",-12802
330D.Add "Wen",-12607
331D.Add "Weng",-12597
332D.Add "Wo",-12594
333D.Add "Wu",-12585
334D.Add "Xi",-12556
335D.Add "Xia",-12359
336D.Add "Xian",-12346
337D.Add "Xiang",-12320
338D.Add "Xiao",-12300
339D.Add "Xie",-12120
340D.Add "Xin",-12099
341D.Add "Xing",-12089
342D.Add "Xiong",-12074
343D.Add "Xiu",-12067
344D.Add "Xu",-12058
345D.Add "Xuan",-12039
346D.Add "Xue",-11867
347D.Add "Xun",-11861
348D.Add "Ya",-11847
349D.Add "Yan",-11831
350D.Add "Yang",-11798
351D.Add "Yao",-11781
352D.Add "Ye",-11604
353D.Add "Yi",-11589
354D.Add "Yin",-11536
355D.Add "Ying",-11358
356D.Add "Yo",-11340
357D.Add "Yong",-11339
358D.Add "You",-11324
359D.Add "Yu",-11303
360D.Add "Yuan",-11097
361D.Add "Yue",-11077
362D.Add "Yun",-11067
363D.Add "Za",-11055
364D.Add "Zai",-11052
365D.Add "Zan",-11045
366D.Add "Zang",-11041
367D.Add "Zao",-11038
368D.Add "Ze",-11024
369D.Add "Zei",-11020
370D.Add "Zen",-11019
371D.Add "Zeng",-11018
372D.Add "Zha",-11014
373D.Add "Zhai",-10838
374D.Add "Zhan",-10832
375D.Add "Zhang",-10815
376D.Add "Zhao",-10800
377D.Add "Zhe",-10790
378D.Add "Zhen",-10780
379D.Add "Zheng",-10764
380D.Add "Zhi",-10587
381D.Add "Zhong",-10544
382D.Add "Zhou",-10533
383D.Add "Zhu",-10519
384D.Add "Zhua",-10331
385D.Add "Zhuai",-10329
386D.Add "Zhuan",-10328
387D.Add "Zhuang",-10322
388D.Add "Zhui",-10315
389D.Add "Zhun",-10309
390D.Add "Zhuo",-10307
391D.Add "Zi",-10296
392D.Add "Zong",-10281
393D.Add "Zou",-10274
394D.Add "Zu",-10270
395D.Add "Zuan",-10262
396D.Add "Zui",-10260
397D.Add "Zun",-10256
398D.Add "Zuo",-10254
399
400Function G(Num)
401If Num>0 And Num<160 Then
402  G=Chr(Num)
403Else 
404  If Num<-20319 Or Num>-10247  Then
405   G=""
406  Else
407   A=D.Items
408   B=D.Keys
409   For I=D.Count-1 To 0 Step -1
410    If A(I)<=Num Then Exit For
411   Next
412   G=B(I)
413  End If
414End If
415End Function
416Function C(Str)
417C=""
418For I=1 To Len(Str)
419  C=C&" "&G(Asc(Mid(Str,I,1)))
420Next
421End Function 
422Response.Write C(Request("Hz"))
423%>
424<Form Method=Post>
425请在此处输入中文：<Input Type="Text" Name="Hz"> <Input Type="Submit" Value=" 提 交 ">
426</Form>

转载于:https://www.cnblogs.com/Dicky/archive/2005/05/25/162185.html