asp 转换汉字为拼音

代码

Function CharToQWM(str)
dim sHex,sHigh,sLow,iLow,iHigh,sResult

sHex=Hex(Asc(str))
sHigh=Left(sHex,2)
sLow=Right(sHex,2)

if NOT (sHigh>="A1" AND sHigh<="FE") then
CharToQWM=""
Exit Function
end if
if NOT (sLow>="A1" AND sLow<="FE") then
CharToQWM=""
Exit Function
end if
iLow=Clng("&H" & sLow)-128
iHigh=Clng("&H" & sHigh)-128
iLow=iLow-32
iHigh=iHigh-32

sResult=""
if iHigh<10 then
sResult = sResult & "0" & Cstr(iHigh)
else
sResult = sResult & Cstr(iHigh)
end if
if iLow<10 then
sResult = sResult & "0" & Cstr(iLow)
else
sResult = sResult & Cstr(iLow)
end if
CharToQWM=sResult
End Function
function getpychar(GBCode)
if GBCode="" then
getpychar=""
elseif (GBCode >= 1601 and GBCode < 1637) then
getpychar="a"
elseif (GBCode >= 1637 and GBCode < 1833) then
getpychar= "b"
elseif (GBCode >= 1833 and GBCode < 2078) then
getpychar= "c"
elseif (GBCode >= 2078 and GBCode < 2274) then
getpychar= "d"
elseif (GBCode >= 2274 and GBCode < 2302) then
getpychar= "e"
elseif (GBCode >= 2302 and GBCode < 2433) then
getpychar= "f"
elseif (GBCode >= 2433 and GBCode < 2594) then
getpychar= "g"
elseif (GBCode >= 2594 and GBCode < 2787) then
getpychar= "h"
elseif (GBCode >= 2787 and GBCode < 3106) then
getpychar= "j"
elseif (GBCode >= 3106 and GBCode < 3212) then
getpychar= "k"
elseif (GBCode >= 3212 and GBCode < 3472) then
getpychar= "l"
elseif (GBCode >= 3472 and GBCode < 3635) then
getpychar= "m"
elseif (GBCode >= 3635 and GBCode < 3722) then
getpychar= "n"
elseif (GBCode >= 3722 and GBCode < 3730) then
getpychar= "o"
elseif (GBCode >= 3730 and GBCode < 3858) then
getpychar= "p"
elseif (GBCode >= 3858 and GBCode < 4027) then
getpychar= "q"
elseif (GBCode >= 4027 and GBCode < 4086) then
getpychar= "r"
elseif (GBCode >= 4086 and GBCode < 4390) then
getpychar= "s"
'elseif (GBCode >= 4117 and GBCode < 4390) then
'getpychar= "sh"
elseif (GBCode >= 4390 and GBCode < 4558) then
getpychar= "t"
elseif (GBCode >= 4558 and GBCode < 4684) then
getpychar= "w"
elseif (GBCode >= 4684 and GBCode < 4925) then
getpychar= "x"
elseif (GBCode >= 4925 and GBCode < 5249) then
getpychar= "y"
elseif (GBCode >= 5249 and GBCode < 5589) then
getpychar= "z"
'if (GBCode >= 5290 && GBCode <= 5589) then
'getpychar= "zh";
elseif (GBCode >= 5601 and GBCode <= 8794) then
CodeData = "cjwgnspgcenegypbtwxzdxykygtpjnmjqmbsgzscyjsyyfpggbzgydywjkgaljswkbjqhyjwpdzlsgmrybywwccgznkydgttngjeyekzydcjnmcylqlypyqbqrpzslwbdgkjfyxjwcltbncxjjjjcxdtqsqzycdxxhgckbphffsspybgmxjbbyglbhlssmzmpjhsojnghdzcdklgjhsgqzhxqgkezzwymcscjnyetxadzpmdssmzjjqjyzcjjfwqjbdzbjgdnzcbwhgxhqkmwfbpbqdtjjzkqhylcgxfptyjyyzpsjlfchmqshgmmxsxjpkdcmbbqbefsjwhwwgckpylqbgldlcctnmaeddksjngkcsgxlhzaybdbtsdkdylhgymylcxpycjndqjwxqxfyyfjlejbzrwccqhqcsbzkymgplbmcrqcflnymyqmsqtrbcjthztqfrxchxmcjcjlxqgjmshzkbswxemdlckfsydsglycjjssjnqbjctyhbftdcyjdgwyghqfrxwckqkxebpdjpxjqsrmebwgjlbjslyysmdxlclqkxlhtjrjjmbjhxhwywcbhtrxxglhjhfbmgykldyxzpplggpmtcbbajjzyljtyanjgbjflqgdzyqcaxbkclecjsznslyzhlxlzcghbxzhznytdsbcjkdlzayffydlabbgqszkggldndnyskjshdlxxbcghxyggdjmmzngmmccgwzszxsjbznmlzdthcqydbdllscddnlkjyhjsycjlkohqasdhnhcsgaehdaashtcplcpqybsdmpjlpcjaqlcdhjjasprchngjnlhlyyqyhwzpnccgwwmzffjqqqqxxaclbhkdjxdgmmydjxzllsygxgkjrywzwyclzmcsjzldbndcfcxyhlschycjqppqagmnyxpfrkssbjlyxyjjglnscmhcwwmnzjjlhmhchsyppttxrycsxbyhcsmxjsxnbwgpxxtaybgajcxlypdccwqocwkccsbnhcpdyznbcyytyckskybsqkkytqqxfcwchcwkelcqbsqyjqcclmthsywhmktlkjlychwheqjhtjhppqpqscfymmcmgbmhglgsllysdllljpchmjhwljcyhzjxhdxjlhxrswlwzjcbxmhzqxsdzpmgfcsglsdymjshxpjxomyqknmyblrthbcftpmgyxlchlhlzylxgsssscclsldclepbhshxyyfhbmgdfycnjqwlqhjjcywjztejjdhfblqxtqkwhdchqxagtlxljxmsljhdzkzjecxjcjnmbbjcsfywkbjzghysdcpqyrsljpclpwxsdwejbjcbcnaytmgmbapclyqbclzxcbnmsggfnzjjbzsfqyndxhpcqkzczwalsbccjxpozgwkybsgxfcfcdkhjbstlqfsgdslqwzkxtmhsbgzhjcrglyjbpmljsxlcjqqhzmjczydjwbmjklddpmjegxyhylxhlqyqhkycwcjmyhxnatjhyccxzpcqlbzwwwtwbqcmlbmynjcccxbbsnzzljpljxyztzlgcldcklyrzzgqtgjhhgjljaxfgfjzslcfdqzlclgjdjcsnclljpjqdcclcjxmyzftsxgcgsbrzxjqqcczhgyjdjqqlzxjyldlbcyamcstylbdjbyregklzdzhldszchznwczcllwjqjjjkdgjcolbbzppglghtgzcygezmycnqcycyhbhgxkamtxyxnbskyzzgjzlqjdfcjxdygjqjjpmgwgjjjpkjsbgbmmcjssclpqpdxcdyykypcjddyygywchjrtgcnyqldkljczzgzccjgdyksgpzmdlcphnjafyzdjcnmwescsglbtzcgmsdllyxqsxsbljsbbsgghfjlwpmzjnlyywdqshzxtyywhmcyhywdbxbtlmswyyfsbjcbdxxlhjhfpsxzqhfzmqcztqcxzxrdkdjhnnyzqqfnqdmmgnydxmjgdhcdycbffallztdltfkmxqzdngeqdbdczjdxbzgsqqddjcmbkxffxmkdmcsychzcmljdjynhprsjmkmpcklgdbqtfzswtfgglyplljzhgjjgypzltcsmcnbtjbhfkdhbyzgkpbbymtdlsxsbnpdkleycjnycdykzddhqgsdzsctarlltkzlgecllkjljjaqnbdggghfjtzqjsecshalqfmmgjnlyjbbtmlycxdcjpldlpcqdhsycbzsckbzmsljflhrbjsnbrgjhxpdgdjybzgdlgcsezgxlblgyxtwmabchecmwyjyzlljjshlgndjlslygkdzpzxjyyzlpcxszfgwyydlyhcljscmbjhblyjlycblydpdqysxktbytdkdxjypcnrjmfdjgklccjbctbjddbblblcdqrppxjcglzcshltoljnmdddlngkaqakgjgyhheznmshrphqqjchgmfprxcjgdychghlyrzqlcngjnzsqdkqjymszswlcfqjqxgbggxmdjwlmcrnfkkfsyyljbmqammmycctbshcptxxzzsmphfshmclmldjfyqxsdyjdjjzzhqpdszglssjbckbxyqzjsgpsxjzqznqtbdkwxjkhhgflbcsmdldgdzdblzkycqnncsybzbfglzzxswmsccmqnjqsbdqsjtxxmbldxcclzshzcxrqjgjylxzfjphymzqqydfqjjlcznzjcdgzygcdxmzysctlkphtxhtlbjxjlxscdqccbbqjfqzfsltjbtkqbsxjjljchczdbzjdczjccprnlqcgpfczlclcxzdmxmphgsgzgszzqjxlwtjpfsyaslcjbtckwcwmytcsjjljcqlwzmalbxyfbpnlschtgjwejjxxglljstgshjqlzfkcgnndszfdeqfhbsaqdgylbxmmygszldydjmjjrgbjgkgdhgkblgkbdmbylxwcxyttybkmrjjzxqjbhlmhmjjzmqasldcyxyqdlqcafywyxqhz"
gbcodetmp = GBCode
pos = (cint(left(gbcodetmp ,2)) - 56) * 94 + cint(mid(gbcodetmp ,len(gbcodetmp) - 1, 2))
getpychar=mid(CodeData,pos, 1)
end if
end function