用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>