ASP Chinese character turning pinyin function

xiaoxiao2021-03-06  89

<%

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 "Choo", - 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", - 19006d.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", - 17454d.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", - 15625d.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", - 14399d.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 "shuan", - 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", - 13120d.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", - 11018D.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"))

%>

Please enter Chinese here:

转载请注明原文地址:https://www.9cbs.com/read-108195.html

New Post(0)