【ASP】GB汉字转拼音函数，改进版，支持首字母大写和email名字缩写模式

原始代码：

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

改进代码，支持首字母大写和email名字缩写模式

< !DOCTYPE HTML  PUBLIC   " -//W3C//DTD HTML 4.01 Transitional//EN "
" http://www.w3.org/TR/html4/loose.dtd " >
< html >
< head >
< meta http - equiv = " Content-Type "  content = " text/html; charset=gb2312 " >
< script src = " http://www.google-analytics.com/urchin.js "  type = " text/javascript " >
</ script >
< script type = " text/javascript " >
_uacct  =   " UA-1192893-1 " ;
urchinTracker();
</ script >
< title > 无标题文档 </ title >
</ head >

< body >
< % 
     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  

     Set  e  =   CreateObject ( " Scripting.Dictionary " ) 
    e.Add  " a " , - 20319  
     ' e.Add "a",-20292 
    e.add  " b " , - 20283  
     ' e.add "b",-19784 
    e.add  " c " , - 19775  
     ' e.add "c",-19224 
    e.aDD  " d " , - 19218  
     ' e.aDD "d",-18722 
    e.add  " e " , - 18710  
     ' e.add "e",-18696 
    e.add  " f " , - 18526  
     ' e.add "f",-18446 
    e.add  " g " , - 18239  
     ' e.add "g",-17928 
    e.add  " h " , - 17922  
     ' e.add "h",-17427 
    e.add  " j " , - 17417  
     ' e.add "j",-16647 
    e.add  " k " , - 16474  
     ' e.add "k",-16216 
    e.add  " l " , - 16212  
     ' e.add "l",-15652 
    e.add  " m " , - 15640  
     ' e.add "m",-15180 
    e.add  " n " , - 15165  
     ' e.add "n",-14926 
    e.add  " o " , - 14922  
     ' e.add "o",-14921 
    e.add  " p " , - 14914  
     ' e.add "p",-14645 
    e.add  " q " , - 14630  
     ' e.add "q",-14151 
    e.add  " r " , - 14149  
     ' e.add "r",-14092 
    e.add  " s " , - 14090  
     ' e.add "s",-13326 
    e.add  " t " , - 13318  
     ' e.add "t",-12849 
    e.add  " w " , - 12838  
     ' e.add "w",-12585 
    e.add  " x " , - 12556  
     ' e.add "x",-11861 
    e.add  " y " , - 11847  
     ' e.add "y",-11067 
    e.add  " z " , - 11055  
     ' e.add "z",-10254 


     function  g(num) 
         if  num > 0   and  num < 160   then  
            g = chr (num) 
         else   
             if  num <- 20319   or  num >- 10247   then  
                 ' g="" 
                g = chr (num)
             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 = ""  
        response.write  " 输入的字符数： " & len (str) & " <br> "  
         for  i = 1   to   len (str) 
            c = c & g( asc ( mid (str,i, 1 ))) 
'             response.write asc(mid(str,i,1))&"<br>"
         next  
     end function

     function  h(num) 
         if  num > 0   and  num < 160   then  
            h = chr (num) 
         else   
             if  num <- 20319   or  num >- 10247   then  
                 ' h="" 
                h = chr (num)
             else  
                a = e.Items 
                b = e.keys 
                 for  i = e.count - 1   to   0  step  - 1  
                     if  a(i) <= num  then   exit   for  
                 next  
                h = b(i) 
             end   if  
         end   if  
     end function  

'     function c(str) 
'         c="" 
'         response.write "输入的字符数："&len(str)&"<br>" 
'         for i=1 to len(str) 
'             c=c&g(asc(mid(str,i,1))) 
'             'response.write asc(mid(str,i,1))&"<br>"
'         next 
'     end function


     function  f(str) 
        f = ""  
        
         for  i = 1   to   len (str) 
             if  i = 1   then
                f = f & g( asc ( mid (str,i, 1 )))
             else
                 if   len (str) = 2   then
                    f = f & g( asc ( mid (str,i, 1 )))
                 else
                    f = f & h( asc ( mid (str,i, 1 ))) 
                 end   if
             end   if
         next  
     end function

    sz = request( " hz " )
    response.write  " 输入的字符为： " & sz & " <br> "
     if   instr (sz, " ( " ) <> 0   then
        sz = mid (sz, 1 , instr (sz, " ( " ) - 1 )
     end   if
     if   instr (sz, " （ " ) <> 0   then
        sz = mid (sz, 1 , instr (sz, " （ " ) - 1 )
     end   if
    pinyi = c(sz)
    email = f(sz)
    response.write  " 首字母大写为： " & pinyi  & " <br> "
    response.write  " 字符数: " & len (pinyi) & " <br> "
    response.write  " 小写字母模式： " & lcase (pinyi)  & " <br> "
    response.write  " 名字缩写模式： " & lcase (email)
% >  
< form method = post >  
请在此处输入中文： < input name = hz >  
< br > GB2312字符转换
</ form >
</ body >
</ html >

：