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) 
    g = ""
     if  num > 0   and  num < 160   then  
        g = chr (num) 
     elseif  num  >=   - 20319   and  num  <=   - 10247   then  
        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 function  

function  c(str) 
    c = ""  
     for  i = 1   to   len (str) 
        c = c & g( asc ( mid (str,i, 1 ))) & "   "
     next  
end function  

c( " 中文 " )