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