将输入的中文按要求翻译成拼音[转]

Code
  1<script>
  2set8="";
  3set4=2;
  4function set5(m,n,c,d,e3)
  5{
  6    set4=1;
  7    Lxyer1.style.top=document.body.scrollTop+event.clientY+20;
  8    Lxyer1.style.left=event.clientX-150;
  9    var t,a,b,f='<td align=center onmouseover=this.bgColor="#9CA4B6" onmouseout=this.bgColor="" ';
 10    if(e3==1)var g=","+eval(m+".value")+",";
 11    t='<table width=100% cellpadding=3 bgcolor=#CCD1D9 onclick="Lxyer1.style.top=-400"><tr><td><font color=#9900CC>※</font></td>'+f+'width=53 onclick=\''+m+'.value=""\'>清除 C</td>'+f+'width=53>关闭 ×</td></tr></table><table width=100% cellpadding=0 cellspacing=0 onmousedown=set4=2;setTimeout("set4=1",300)>';
 12    if(d!=null)set8=m+"^"+d;
 13    else set8=m+"^"+n;
 14    a=n.split("`");
 15    for(b=0;b<a.length;b++)
 16    {
 17        if(b%c==0)t+="<tr>";
 18        t+='<td onmouseover=this.bgColor="#cccccc" onmouseout=this.bgColor="" width="'+Math.floor(100/c)+'%" height=20 onclick=';
 19        if(e3!=1)t+='set7('+b+') align=center>'+a[b];
 20        else
 21        {
 22            if(a[b]=="")
 23            {
 24                t+='void(1)><input type=hidden name=set9'
 25            }
 26            else
 27            {
 28                t+='set7('+b+',1)><input type=checkbox name=set9';
 29                if(g.indexOf(","+a[b]+",")!=-1)t+=" checked"
 30            }
 31            t+='>'+a[b]
 32        }
 33        t+="</td>";
 34        if(b%c==c-1)t+="</tr>"
 35    }
 36    Lxyer1.innerHTML=t+"</table>"
 37}
 38function set7(m,n)
 39{
 40    ;
 41    var a=set8.split("^");
 42    var b=a[1].split("`");
 43    var obj=eval(a[0]);
 44    if(n!=1)
 45    {
 46        obj.value=b[m];
 47        Lxyer1.style.top=-400;
 48        return
 49    };
 50    var d=","+obj.value+",";
 51    if(d.indexOf(","+b[m]+",")==-1)
 52    {
 53        set9[m].checked=true;
 54        d+=b[m]
 55    }
 56    else
 57    {
 58        set9[m].checked=false;
 59        d=d.split(","+b[m]+",").join(",")
 60    }
 61    d=d.replace(/(^\,+)|\,+$/g,"")
 62    obj.value=d
 63}
 64function set6(a,b,c)
 65{
 66    ;
 67    var t=a;
 68    for(var x=a+c;x<=b;x+=c)t+="`"+x;
 69    return t
 70}
 71document.write('<textarea name=Paste23t style="position:absolute;z-index:1;top:-200px;"></textarea>');
 72function Paste3()
 73{
 74    Paste23t.select();
 75    document.execCommand("Paste");
 76    return Paste23t.value
 77}
 78function Gt3save(f,n,a)
 79{
 80    ;
 81    var b=a.indexOf("`"+f);
 82    if(b==-1)return a+"`"+f+n;
 83    var a1=a.substr(0,b);
 84    var a2=a.substring(b+3)
 85    b=a2.indexOf("`");
 86    if(b==-1)a2="";
 87    else a2=a2.substring(b);
 88    return a1+"`"+f+n+a2
 89}
 90document.body.onmouseup=new Function("if(set4==1)Lxyer1.style.top=-400")
 91dd="a,20319,ai,20317,an,20304,ang,20295,ao,20292,ba,20283,bai,20265,ban,20257,bang,20242,bao,20230,bei,20051,ben,20036,beng,20032,bi,20026,bian,20002,biao,19990,bie,19986,bin,19982,bing,19976,bo,19805,bu,19784,ca,19775,cai,19774,can,19763,cang,19756,cao,19751,ce,19746,ceng,19741,cha,19739,chai,19728,chan,19725,chang,19715,chao,19540,che,19531,chen,19525,cheng,19515,chi,19500,chong,19484,chou,19479,chu,19467,chuai,19289,chuan,19288,chuang,19281,chui,19275,chun,19270,chuo,19263,ci,19261,cong,19249,cou,19243,cu,19242,cuan,19238,cui,19235,cun,19227,cuo,19224,da,19218,dai,19212,dan,19038,dang,19023,dao,19018,de,19006,deng,19003,di,18996,dian,18977,diao,18961,die,18952,ding,18783,diu,18774,dong,18773,dou,18763,du,18756,duan,18741,dui,18735,dun,18731,duo,18722,e,18710,en,18697,er,18696,fa,18526,fan,18518,fang,18501,fei,18490,fen,18478,feng,18463,fo,18448,fou,18447,fu,18446,ga,18239,gai,18237,gan,18231,gang,18220,gao,18211,ge,18201,gei,18184,gen,18183,geng,18181,gong,18012,gou,17997,gu,17988,gua,17970,guai,17964,guan,17961,guang,17950,gui,17947,gun,17931,guo,17928,ha,17922,hai,17759,han,17752,hang,17733,hao,17730,he,17721,hei,17703,hen,17701,heng,17697,hong,17692,hou,17683,hu,17676,hua,17496,huai,17487,huan,17482,huang,17468,hui,17454,hun,17433,huo,17427,ji,17417,jia,17202,jian,17185,jiang,16983,jiao,16970,jie,16942,jin,16915,jing,16733,jiong,16708,jiu,16706,ju,16689,juan,16664,jue,16657,jun,16647,ka,16474,kai,16470,kan,16465,kang,16459,kao,16452,ke,16448,ken,16433,keng,16429,kong,16427,kou,16423,ku,16419,kua,16412,kuai,16407,kuan,16403,kuang,16401,kui,16393,kun,16220,kuo,16216,la,16212,lai,16205,lan,16202,lang,16187,lao,16180,le,16171,lei,16169,leng,16158,li,16155,lia,15959,lian,15958,liang,15944,liao,15933,lie,15920,lin,15915,ling,15903,liu,15889,long,15878,lou,15707,lu,15701,lv,15681,luan,15667,lue,15661,lun,15659,luo,15652,ma,15640,mai,15631,man,15625,mang,15454,mao,15448,me,15436,mei,15435,men,15419,meng,15416,mi,15408,mian,15394,miao,15385,mie,15377,min,15375,ming,15369,miu,15363,mo,15362,mou,15183,mu,15180,na,15165,nai,15158,nan,15153,nang,15150,nao,15149,ne,15144,nei,15143,nen,15141,neng,15140,ni,15139,nian,15128,niang,15121,niao,15119,nie,15117,nin,15110,ning,15109,niu,14941,nong,14937,nu,14933,nv,14930,nuan,14929,nue,14928,nuo,14926,o,14922,ou,14921,pa,14914,pai,14908,pan,14902,pang,14894,pao,14889,pei,14882,pen,14873,peng,14871,pi,14857,pian,14678,piao,14674,pie,14670,pin,14668,ping,14663,po,14654,pu,14645,qi,14630,qia,14594,qian,14429,qiang,14407,qiao,14399,qie,14384,qin,14379,qing,14368,qiong,14355,qiu,14353,qu,14345,quan,14170,que,14159,qun,14151,ran,14149,rang,14145,rao,14140,re,14137,ren,14135,reng,14125,ri,14123,rong,14122,rou,14112,ru,14109,ruan,14099,rui,14097,run,14094,ruo,14092,sa,14090,sai,14087,san,14083,sang,13917,sao,13914,se,13910,sen,13907,seng,13906,sha,13905,shai,13896,shan,13894,shang,13878,shao,13870,she,13859,shen,13847,sheng,13831,shi,13658,shou,13611,shu,13601,shua,13406,shuai,13404,shuan,13400,shuang,13398,shui,13395,shun,13391,shuo,13387,si,13383,song,13367,sou,13359,su,13356,suan,13343,sui,13340,sun,13329,suo,13326,ta,13318,tai,13147,tan,13138,tang,13120,tao,13107,te,13096,teng,13095,ti,13091,tian,13076,tiao,13068,tie,13063,ting,13060,tong,12888,tou,12875,tu,12871,tuan,12860,tui,12858,tun,12852,tuo,12849,wa,12838,wai,12831,wan,12829,wang,12812,wei,12802,wen,12607,weng,12597,wo,12594,wu,12585,xi,12556,xia,12359,xian,12346,xiang,12320,xiao,12300,xie,12120,xin,12099,xing,12089,xiong,12074,xiu,12067,xu,12058,xuan,12039,xue,11867,xun,11861,ya,11847,yan,11831,yang,11798,yao,11781,ye,11604,yi,11589,yin,11536,ying,11358,yo,11340,yong,11339,you,11324,yu,11303,yuan,11097,yue,11077,yun,11067,za,11055,zai,11052,zan,11045,zang,11041,zao,11038,ze,11024,zei,11020,zen,11019,zeng,11018,zha,11014,zhai,10838,zhan,10832,zhang,10815,zhao,10800,zhe,10790,zhen,10780,zheng,10764,zhi,10587,zhong,10544,zhou,10533,zhu,10519,zhua,10331,zhuai,10329,zhuan,10328,zhuang,10322,zhui,10315,zhun,10309,zhuo,10307,zi,10296,zong,10281,zou,10274,zu,10270,zuan,10262,zui,10260,zun,10256,zuo,10254".split(",")
 92function jjfy(n)
 93{
 94    t=""
 95    for(x=0;x<n.length;x++)
 96    {
 97        var r3=""
 98        if(rcb3.checked)r3=" "
 99        b=n.charAt(x)
100        a=g5(b)
101        if(a>0 && a<160)
102        {
103            if(rcb2.checked)t+=b
104        }
105        else if(a<-20319 || a>-10247)
106        {
107            if(rcb1.checked)t+=b
108        }
109        else
110        {
111            if(pjandchina[0].checked)t+=getP(a)+r3
112            else if(pjandchina[1].checked)t+=b+getP(a)+r3
113            else t+=getP(a)+b+r3
114        }
115    }
116    return t
117}
118function getP(n)
119{
120    for(var i=dd.length-1;i>0;i-=2)
121    {
122        if(dd[i]*(-1)<=n)return dd[i-1]
123    }
124    return "?"
125}
126</script>
127<script language=vbs>
128function g5(n)
129g5=asc(n)
130end function 
131</script>
132
133<div id="encode_index_colum_one">
134<div id="encode_index_colum_one_top">
135<div class="intro_title">>>将输入的中文按要求翻译成拼音<<</div>
136<div id="tool_show_intro">
137<p>
138原中文：<br />
139<textarea name="af1" rows="10" cols="100" id="af1">欢迎使用《汉字转换拼音》工具 [由于兼容性问题，此转换功能只能在IE中使用，FIREFOX无效]</textarea><br />
140 <input type=button value="复制" onclick=af1.select();document.execCommand("Copy") class="submit">
141 <input type=button value="粘贴" onclick=af1.value+=Paste3() class="submit">
142 <input type=button value="清除" onclick='af1.value=""' class="submit">
143 <input id="Ianse_Com_Button" type=button onClick="if (af1.value==''){M('请输入需要转换成拼音的中文！');return false;}af2.value=jjfy(af1.value);" value="翻译" class="submit"><p />
144<p>拼音字符：<br />
145<textarea name="af2" rows="10" cols="100" id="af2"></textarea><br />
146 <input type=button value="复制" onclick=af2.select();document.execCommand("Copy") class="submit">
147 <input type=button value="粘贴" onclick=af2.value+=Paste3() class="submit">
148 <input type=button value="清除" onclick='af2.value=""' class="submit"></p>
149对照方式：
150 <input id="aa1" style="16px;height:16px;" name="pjandchina" type="radio" value="radiobutton" checked> 普通翻译
151 <input id="aa2" style="16px;height:16px;" type="radio" name="pjandchina" value="radiobutton"> 对照（中文在拼音前）
152 <input id="aa3" style="16px;height:16px;" type="radio" name="pjandchina" value="radiobutton"> 对照（中文在拼音后）
153<br />
154符号设置：
155 <input style="16px;height:16px;" name="rcb1" type="checkbox" id="rcb1" value="checkbox" checked align="absmiddle" /> 保留中文标点符号
156 <input style="16px;height:16px;" name="rcb2" type="checkbox" id="rcb2" value="checkbox" checked align="absmiddle" /> 保留字母和回车符号
157 <input style="16px;height:16px;" name="rcb3" type="checkbox" id="rcb3" value="checkbox" checked align="absmiddle" /> 中文字之间加空格 
158</div>
159</div>
160</div>
161