一段汉字转换拼音的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 
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 

function c(str) 
c=\"\" 
for i=1 to len(str) 
c=c&g(asc(mid(str,i,1))) 
next 
end function 
%> 
<form method=post> 输入中文:<input name=hz> <input type=\"submit\" value=\"OK\"
</form>
 &nbsp;<%
response.write \"汉语拼音:<font color=red>\"&c(request(\"hz\"))&\"</font>\"
% >

发表回复

您的电子邮箱地址不会被公开。 必填项已用*标注

Time limit is exhausted. Please reload CAPTCHA.