将汉字转换为拼音字母(注意编码保存的格式)

<%
'将汉字转换为拼音字母
'页面保存编码必须为 ANSI 格式，我找半天才找到原因，这个很重要
'-----------------汉字转拼音------------------- 
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 
'isBlank  中间是否加空格(1=是; 0=否;) 
Function toPinYin(Str, isBlank) 
    toPinYin = "" 
    For i = 1 To Len(Str)
        If isBlank = 1 Then 
            toPinYin = toPinYin&" "& g(Asc(Mid(Str, i, 1))) 
        Else 
            toPinYin = toPinYin&g(Asc(Mid(Str, i, 1))) 
        End If
    Next 
End Function 
'Response.Write toPinYin("这算不算是乱码",1)
%>