汉字转拼音的ASP程序[这个也可以测试Dictionary类的效率]

下面这个要保存成gb2312的编码<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%Option Explicit%><%Response.CharSet="gb2312"Response.AddHeader "Pragma","no-cache"Response.AddHeader "cache-ctrol","no-cache"Response.Expires = -1Response.ExpiresAbsolute = Now() - 1Response.CacheControl = "no-cache"Session.CodePage=936%><!--#include file="Dictionary.asp"--><%Dim dSet d = New Dictionaryd.add "a",-20319 d.add "ai",-20317 d.add "an",-20304d.add "ang",-20295d.add "ao",-20292d.add "ba",-20283d.add "bai",-20265d.add "ban",-20257d.add "bang",-20242d.add "bao",-20230d.add "bei",-20051d.add "ben",-20036d.add "beng",-20032d.add "bi",-20026 d.add "bian",-20002d.add "biao",-19990d.add "bie",-19986d.add "bin",-19982d.add "bing",-19976d.add "bo",-19805d.add "bu",-19784d.add "ca",-19775d.add "cai",-19774d.add "can",-19763d.add "cang",-19756d.add "cao",-19751d.add "ce",-19746d.add "ceng",-19741d.add "cha",-19739d.add "chai",-19728 d.add "chan",-19725d.add "chang",-19715d.add "chao",-19540d.add "che",-19531d.add "chen",-19525d.add "cheng",-19515 d.add "chi",-19500d.add "chong",-19484d.add "chou",-19479d.add "chu",-19467d.add "chuai",-19289d.add "chuan",-19288d.add "chuang",-19281d.add "chui",-19275d.add "chun",-19270d.add "chuo",-19263d.add "ci",-19261d.add "cong",-19249 d.add "cou",-19243d.add "cu",-19242d.add "cuan",-19238d.add "cui",-19235d.add "cun",-19227d.add "cuo",-19224 d.add "da",-19218d.add "dai",-19212d.add "dan",-19038d.add "dang",-19023d.add "dao",-19018 d.add "de",-19006d.add "deng",-19003d.add "di",-18996d.add "dian",-18977d.add "diao",-18961d.add "die",-18952d.add "ding",-18783d.add "diu",-18774d.add "dong",-18773d.add "dou",-18763d.add "du",-18756d.add "duan",-18741d.add "dui",-18735d.add "dun",-18731d.add "duo",-18722d.add "e",-18710d.add "en",-18697d.add "er",-18696d.add "fa",-18526d.add "fan",-18518d.add "fang",-18501d.add "fei",-18490d.add "fen",-18478d.add "feng",-18463d.add "fo",-18448d.add "fou",-18447d.add "fu",-18446d.add "ga",-18239d.add "gai",-18237d.add "gan",-18231d.add "gang",-18220d.add "gao",-18211d.add "ge",-18201d.add "gei",-18184d.add "gen",-18183d.add "geng",-18181d.add "gong",-18012d.add "gou",-17997 d.add "gu",-17988d.add "gua",-17970d.add "guai",-17964d.add "guan",-17961d.add "guang",-17950 d.add "gui",-17947d.add "gun",-17931d.add "guo",-17928d.add "ha",-17922d.add "hai",-17759d.add "han",-17752d.add "hang",-17733 d.add "hao",-17730d.add "he",-17721d.add "hei",-17703d.add "hen",-17701d.add "heng",-17697d.add "hong",-17692d.add "hou",-17683d.add "hu",-17676d.add "hua",-17496d.add "huai",-17487d.add "huan",-17482d.add "huang",-17468d.add "hui",-17454d.add "hun",-17433d.add "huo",-17427d.add "ji",-17417d.add "jia",-17202d.add "jian",-17185 d.add "jiang",-16983d.add "jiao",-16970d.add "jie",-16942d.add "jin",-16915d.add "jing",-16733d.add "jiong",-16708d.add "jiu",-16706d.add "ju",-16689 d.add "juan",-16664d.add "jue",-16657d.add "jun",-16647d.add "ka",-16474d.add "kai",-16470d.add "kan",-16465 d.add "kang",-16459d.add "kao",-16452d.add "ke",-16448d.add "ken",-16433d.add "keng",-16429d.add "kong",-16427d.add "kou",-16423d.add "ku",-16419d.add "kua",-16412d.add "kuai",-16407d.add "kuan",-16403d.add "kuang",-16401d.add "kui",-16393d.add "kun",-16220d.add "kuo",-16216d.add "la",-16212d.add "lai",-16205d.add "lan",-16202d.add "lang",-16187d.add "lao",-16180d.add "le",-16171d.add "lei",-16169d.add "leng",-16158d.add "li",-16155d.add "lia",-15959d.add "lian",-15958d.add "liang",-15944 d.add "liao",-15933d.add "lie",-15920d.add "lin",-15915d.add "ling",-15903d.add "liu",-15889 d.add "long",-15878d.add "lou",-15707d.add "lu",-15701d.add "lv",-15681d.add "luan",-15667d.add "lue",-15661d.add "lun",-15659d.add "luo",-15652d.add "ma",-15640d.add "mai",-15631d.add "man",-15625d.add "mang",-15454d.add "mao",-15448d.add "me",-15436d.add "mei",-15435d.add "men",-15419d.add "meng",-15416d.add "mi",-15408d.add "mian",-15394d.add "miao",-15385d.add "mie",-15377d.add "min",-15375d.add "ming",-15369d.add "miu",-15363d.add "mo",-15362d.add "mou",-15183d.add "mu",-15180d.add "na",-15165d.add "nai",-15158d.add "nan",-15153d.add "nang",-15150d.add "nao",-15149d.add "ne",-15144d.add "nei",-15143d.add "nen",-15141d.add "neng",-15140d.add "ni",-15139d.add "nian",-15128d.add "niang",-15121d.add "niao",-15119d.add "nie",-15117d.add "nin",-15110d.add "ning",-15109d.add "niu",-14941d.add "nong",-14937d.add "nu",-14933d.add "nv",-14930d.add "nuan",-14929d.add "nue",-14928d.add "nuo",-14926d.add "o",-14922d.add "ou",-14921d.add "pa",-14914d.add "pai",-14908d.add "pan",-14902d.add "pang",-14894d.add "pao",-14889d.add "pei",-14882d.add "pen",-14873d.add "peng",-14871d.add "pi",-14857d.add "pian",-14678d.add "piao",-14674d.add "pie",-14670d.add "pin",-14668d.add "ping",-14663d.add "po",-14654d.add "pu",-14645d.add "qi",-14630d.add "qia",-14594d.add "qian",-14429d.add "qiang",-14407d.add "qiao",-14399d.add "qie",-14384 d.add "qin",-14379d.add "qing",-14368d.add "qiong",-14355d.add "qiu",-14353d.add "qu",-14345d.add "quan",-14170d.add "que",-14159d.add "qun",-14151d.add "ran",-14149d.add "rang",-14145d.add "rao",-14140d.add "re",-14137d.add "ren",-14135d.add "reng",-14125d.add "ri",-14123d.add "rong",-14122d.add "rou",-14112d.add "ru",-14109d.add "ruan",-14099d.add "rui",-14097d.add "run",-14094d.add "ruo",-14092d.add "sa",-14090d.add "sai",-14087d.add "san",-14083d.add "sang",-13917d.add "sao",-13914d.add "se",-13910d.add "sen",-13907d.add "seng",-13906d.add "sha",-13905d.add "shai",-13896d.add "shan",-13894 d.add "shang",-13878d.add "shao",-13870d.add "she",-13859d.add "shen",-13847d.add "sheng",-13831d.add "shi",-13658d.add "shou",-13611d.add "shu",-13601d.add "shua",-13406d.add "shuai",-13404d.add "shuan",-13400d.add "shuang",-13398d.add "shui",-13395d.add "shun",-13391d.add "shuo",-13387d.add "si",-13383d.add "song",-13367d.add "sou",-13359d.add "su",-13356d.add "suan",-13343d.add "sui",-13340d.add "sun",-13329d.add "suo",-13326d.add "ta",-13318d.add "tai",-13147d.add "tan",-13138d.add "tang",-13120d.add "tao",-13107d.add "te",-13096 d.add "teng",-13095d.add "ti",-13091d.add "tian",-13076 d.add "tiao",-13068d.add "tie",-13063d.add "ting",-13060d.add "tong",-12888d.add "tou",-12875d.add "tu",-12871d.add "tuan",-12860 d.add "tui",-12858d.add "tun",-12852d.add "tuo",-12849d.add "wa",-12838d.add "wai",-12831d.add "wan",-12829d.add "wang",-12812 d.add "wei",-12802d.add "wen",-12607d.add "weng",-12597d.add "wo",-12594d.add "wu",-12585d.add "xi",-12556d.add "xia",-12359d.add "xian",-12346d.add "xiang",-12320d.add "xiao",-12300d.add "xie",-12120d.add "xin",-12099d.add "xing",-12089d.add "xiong",-12074d.add "xiu",-12067d.add "xu",-12058d.add "xuan",-12039d.add "xue",-11867d.add "xun",-11861d.add "ya",-11847 d.add "yan",-11831d.add "yang",-11798d.add "yao",-11781d.add "ye",-11604d.add "yi",-11589d.add "yin",-11536d.add "ying",-11358d.add "yo",-11340d.add "yong",-11339d.add "you",-11324d.add "yu",-11303d.add "yuan",-11097d.add "yue",-11077d.add "yun",-11067d.add "za",-11055d.add "zai",-11052d.add "zan",-11045d.add "zang",-11041d.add "zao",-11038d.add "ze",-11024d.add "zei",-11020d.add "zen",-11019d.add "zeng",-11018d.add "zha",-11014d.add "zhai",-10838d.add "zhan",-10832d.add "zhang",-10815d.add "zhao",-10800d.add "zhe",-10790d.add "zhen",-10780d.add "zheng",-10764d.add "zhi",-10587d.add "zhong",-10544d.add "zhou",-10533d.add "zhu",-10519d.add "zhua",-10331d.add "zhuai",-10329 d.add "zhuan",-10328d.add "zhuang",-10322d.add "zhui",-10315d.add "zhun",-10309d.add "zhuo",-10307d.add "zi",-10296d.add "zong",-10281d.add "zou",-10274d.add "zu",-10270d.add "zuan",-10262d.add "zui",-10260d.add "zun",-10256d.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="" Dim ifor i=1 to len(str) c=c&g(asc(mid(str,i,1))) next end functionresponse.write c(request.Form("hz"))Set d = Nothing%> <form method=post action=""> 输入<input name="hz" value=""> <input type="submit" value="提交" ></form>