"=======================获得汉字拼音
Set d = Server.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)
Dim a, i
Dim b
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)
Dim i
c = ""
For i = 1 To Len(str)
c = c & g(Asc(Mid(str, i, 1)))
Next
End Function
"=======================获得汉字首字母
Public Function getPYChar(char)
Dim lCha
lChar = 65536 + Asc(char)
If (lChar >= 45217 And lChar <= 45252) Then getPYChar = "A"
If (lChar >= 45253 And lChar <= 45760) Then getPYChar = "B"
If (lChar >= 47761 And lChar <= 46317) Then getPYChar = "C"
If (lChar >= 46318 And lChar <= 46825) Then getPYChar = "D"
If (lChar >= 46826 And lChar <= 47009) Then getPYChar = "E"
If (lChar >= 47010 And lChar <= 47296) Then getPYChar = "F"
If (lChar >= 47297 And lChar <= 47613) Then getPYChar = "G"
If (lChar >= 47614 And lChar <= 48118) Then getPYChar = "H"
If (lChar >= 48119 And lChar <= 49061) Then getPYChar = "J"
If (lChar >= 49062 And lChar <= 49323) Then getPYChar = "K"
If (lChar >= 49324 And lChar <= 49895) Then getPYChar = "L"
If (lChar >= 49896 And lChar <= 50370) Then getPYChar = "M"
If (lChar >= 50371 And lChar <= 50613) Then getPYChar = "N"
If (lChar >= 50614 And lChar <= 50621) Then getPYChar = "O"
If (lChar >= 50622 And lChar <= 50905) Then getPYChar = "P"
If (lChar >= 50906 And lChar <= 51386) Then getPYChar = "Q"
If (lChar >= 51387 And lChar <= 51445) Then getPYChar = "R"
If (lChar >= 51446 And lChar <= 52217) Then getPYChar = "S"
If (lChar >= 52218 And lChar <= 52697) Then getPYChar = "T"
If (lChar >= 52698 And lChar <= 52979) Then getPYChar = "W"
If (lChar >= 52980 And lChar <= 53640) Then getPYChar = "X"
If (lChar >= 53689 And lChar <= 54480) Then getPYChar = "Y"
If (lChar >= 54481 And lChar <= 52289) Then getPYChar = "Z"
End Function
Public Function getPY(str)
For i = 0 To Len(str) - 1
getPY = getPY & getPYChar(Mid(str, i + 1, 1))
Next
End Function
"=======================获得汉字首字母
Response.Write(getPY("汗"))
"=======================获得汉字拼音
Response.Write(c("汗"))