ASP把漢字轉化為拼音的函數

拼音不夠全面不推薦使用學習一下方法而已～<pre>

<% 
    Set d = CreateObject(ScriptingDictionary) 
    dadd a 
    dadd ai 
    dadd an 
    dadd ang 
    dadd ao 
    dadd ba 
    dadd bai 
    dadd ban 
    dadd bang 
    dadd bao 
    dadd bei 
    dadd ben 
    dadd beng 
    dadd bi 
    dadd bian 
    dadd biao 
    dadd bie 
    dadd bin 
    dadd bing 
    dadd bo 
    dadd bu 
    dadd ca 
    dadd cai 
    dadd can 
    dadd cang 
    dadd cao 
    dadd ce 
    dadd ceng 
    dadd cha 
    dadd chai 
    dadd chan 
    dadd chang 
    dadd chao 
    dadd che 
    dadd chen 
    dadd cheng 
    dadd chi 
    dadd chong 
    dadd chou 
    dadd chu 
    dadd chuai 
    dadd chuan 
    dadd chuang 
    dadd chui 
    dadd chun 
    dadd chuo 
    dadd ci 
    dadd cong 
    dadd cou 
    dadd cu 
    dadd cuan 
    dadd cui 
    dadd cun 
    dadd cuo 
    dadd da 
    dadd dai 
    dadd dan 
    dadd dang 
    dadd dao 
    dadd de 
    dadd deng 
    dadd di 
    dadd dian 
    dadd diao 
    dadd die 
    dadd ding 
    dadd diu 
    dadd dong 
    dadd dou 
    dadd du 
    dadd duan 
    dadd dui 
    dadd dun 
    dadd duo 
    dadd e 
    dadd en 
    dadd er 
    dadd fa 
    dadd fan 
    dadd fang 
    dadd fei 
    dadd fen 
    dadd feng 
    dadd fo 
    dadd fou 
    dadd fu 
    dadd ga 
    dadd gai 
    dadd gan 
    dadd gang 
    dadd gao 
    dadd ge 
    dadd gei 
    dadd gen 
    dadd geng 
    dadd gong 
    dadd gou 
    dadd gu 
    dadd gua 
    dadd guai 
    dadd guan 
    dadd guang 
    dadd gui 
    dadd gun 
    dadd guo 
    dadd ha 
    dadd hai 
    dadd han 
    dadd hang 
    dadd hao 
    dadd he 
    dadd hei 
    dadd hen 
    dadd heng 
    dadd hong 
    dadd hou 
    dadd hu 
    dadd hua 
    dadd huai 
    dadd huan 
    dadd huang 
    dadd hui 
    dadd hun 
    dadd huo 
    dadd ji 
    dadd jia 
    dadd jian 
    dadd jiang 
    dadd jiao 
    dadd jie 
    dadd jin 
    dadd jing 
    dadd jiong 
    dadd jiu 
    dadd ju 
    dadd juan 
    dadd jue 
    dadd jun 
    dadd ka 
    dadd kai 
    dadd kan 
    dadd kang 
    dadd kao 
    dadd ke 
    dadd ken 
    dadd keng 
    dadd kong 
    dadd kou 
    dadd ku 
    dadd kua 
    dadd kuai 
    dadd kuan 
    dadd kuang 
    dadd kui 
    dadd kun 
    dadd kuo 
    dadd la 
    dadd lai 
    dadd lan 
    dadd lang 
    dadd lao 
    dadd le 
    dadd lei 
    dadd leng 
    dadd li 
    dadd lia 
    dadd lian 
    dadd liang 
    dadd liao 
    dadd lie 
    dadd lin 
    dadd ling 
    dadd liu 
    dadd long 
    dadd lou 
    dadd lu 
    dadd lv 
    dadd luan 
    dadd lue 
    dadd lun 
    dadd luo 
    dadd ma 
    dadd mai 
    dadd man 
    dadd mang 
    dadd mao 
    dadd me 
    dadd mei 
    dadd men 
    dadd meng 
    dadd mi 
    dadd mian 
    dadd miao 
    dadd mie 
    dadd min 
    dadd ming 
    dadd miu 
    dadd mo 
    dadd mou 
    dadd mu 
    dadd na 
    dadd nai 
    dadd nan 
    dadd nang 
    dadd nao 
    dadd ne 
    dadd nei 
    dadd nen 
    dadd neng 
    dadd ni 
    dadd nian 
    dadd niang 
    dadd niao 
    dadd nie 
    dadd nin 
    dadd ning 
    dadd niu 
    dadd nong 
    dadd nu 
    dadd nv 
    dadd nuan 
    dadd nue 
    dadd nuo 
    dadd o 
    dadd ou 
    dadd pa 
    dadd pai 
    dadd pan 
    dadd pang 
    dadd pao 
    dadd pei 
    dadd pen 
    dadd peng 
    dadd pi 
    dadd pian 
    dadd piao 
    dadd pie 
    dadd pin 
    dadd ping 
    dadd po 
    dadd pu 
    dadd qi 
    dadd qia 
    dadd qian 
    dadd qiang 
    dadd qiao 
    dadd qie 
    dadd qin 
    dadd qing 
    dadd qiong 
    dadd qiu 
    dadd qu 
    dadd quan 
    dadd que 
    dadd qun 
    dadd ran 
    dadd rang 
    dadd rao 
    dadd re 
    dadd ren 
    dadd reng 
    dadd ri 
    dadd rong 
    dadd rou 
    dadd ru 
    dadd ruan 
    dadd rui 
    dadd run 
    dadd ruo 
    dadd sa 
    dadd sai 
    dadd san 
    dadd sang 
    dadd sao 
    dadd se 
    dadd sen 
    dadd seng 
    dadd sha 
    dadd shai 
    dadd shan 
    dadd shang 
    dadd shao 
    dadd she 
    dadd shen 
    dadd sheng 
    dadd shi 
    dadd shou 
    dadd shu 
    dadd shua 
    dadd shuai 
    dadd shuan 
    dadd shuang 
    dadd shui 
    dadd shun 
    dadd shuo 
    dadd si 
    dadd song 
    dadd sou 
    dadd su 
    dadd suan 
    dadd sui 
    dadd sun 
    dadd suo 
    dadd ta 
    dadd tai 
    dadd tan 
    dadd tang 
    dadd tao 
    dadd te 
    dadd teng 
    dadd ti 
    dadd tian 
    dadd tiao 
    dadd tie 
    dadd ting 
    dadd tong 
    dadd tou 
    dadd tu 
    dadd tuan 
    dadd tui 
    dadd tun 
    dadd tuo 
    dadd wa 
    dadd wai 
    dadd wan 
    dadd wang 
    dadd wei 
    dadd wen 
    dadd weng 
    dadd wo 
    dadd wu 
    dadd xi 
    dadd xia 
    dadd xian 
    dadd xiang 
    dadd xiao 
    dadd xie 
    dadd xin 
    dadd xing 
    dadd xiong 
    dadd xiu 
    dadd xu 
    dadd xuan 
    dadd xue 
    dadd xun 
    dadd ya 
    dadd yan 
    dadd yang 
    dadd yao 
    dadd ye 
    dadd yi 
    dadd yin 
    dadd ying 
    dadd yo 
    dadd yong 
    dadd you 
    dadd yu 
    dadd yuan 
    dadd yue 
    dadd yun 
    dadd za 
    dadd zai 
    dadd zan 
    dadd zang 
    dadd zao 
    dadd ze 
    dadd zei 
    dadd zen 
    dadd zeng 
    dadd zha 
    dadd zhai 
    dadd zhan 
    dadd zhang 
    dadd zhao 
    dadd zhe 
    dadd zhen 
    dadd zheng 
    dadd zhi 
    dadd zhong 
    dadd zhou 
    dadd zhu 
    dadd zhua 
    dadd zhuai 
    dadd zhuan 
    dadd zhuang 
    dadd zhui 
    dadd zhun 
    dadd zhuo 
    dadd zi 
    dadd zong 
    dadd zou 
    dadd zu 
    dadd zuan 
    dadd zui 
    dadd zun 
    dadd zuo 
     
    function g(num) 
    if num> and num< then 
    g=chr(num) 
    else  
    if num< or num> then 
    g= 
    else 
    a=dItems 
    b=dkeys 
    for i=unt to  step  
    if a(i)<=num then exit for 
    next 
    g=b(i) 
    end if 
    end if 
    end function 
    function c(str) 
    c= 
    for i= to len(str) 
    c=c&g(asc(mid(stri))) 
    next 
    end function  
    responsewrite c(request(hz)) 
    %> 
    <form method=post> 
    請在此處輸入中文<input name=hz> 
    </form>

</pre>
From:http://tw.wingwit.com/Article/program/net/201311/12055.html