CSDN博客

img ggcall

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

发表于2004/10/20 11:35:00  1822人阅读

原始代码:
<%
    
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>


阅读全文
0 0

相关文章推荐

img
取 消
img