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

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