ASP汉字转拼音函数的方法

<%

'ASP汉字转拼音函数

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("word"))

%>

<form method="post">

请在此处输入中文：<input name="word" type="text">

<input type="submit" name="submit" value="提交">

</form>