原始代码:
改进代码,支持首字母大写和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 >
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 >
" 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 >