|
|
 |
|
|
| |
|
|
|
|
|
|
|
用asp程序将汉字转换成首拼字符
|
<%
'用asp程序将汉字转换成首拼字符
‘引用：response.write getpychar(getpy(“汉字句子”))
'程序编制：高密市时代互联网服务中心
‘网址:http://www.9816.net
‘作者：薛振山 ‘电话：13165263708 qq:173807448
function getpychar(char)
dim tmpp
tmpp=65536+asc(char)
if clng(tmpp) >= 45217 and clng(tmpp) <= 45252 then
getpychar= "A"
elseif clng(tmpp) >= 45253 and clng(tmpp) <= 45760 then
getpychar= "B"
elseif clng(tmpp) >= 45761 and clng(tmpp) <= 46317 then
getpychar= "C"
elseif clng(tmpp) >= 46318 and clng(tmpp) <= 46825 then
getpychar= "D"
elseif clng(tmpp) >= 46826 and clng(tmpp) <= 47009 then
getpychar= "E"
elseif clng(tmpp) >= 47010 and clng(tmpp) <= 47296 then
getpychar= "F"
elseif clng(tmpp) >= 47297 and clng(tmpp) <= 47613 then
getpychar= "G"
elseif clng(tmpp) >= 47614 and clng(tmpp) <= 48118 then
getpychar= "H"
elseif clng(tmpp) >= 48119 and clng(tmpp) <= 49061 then
getpychar= "J"
elseif clng(tmpp) >= 49062 and clng(tmpp) <= 49323 then
getpychar= "K"
elseif clng(tmpp) >= 49324 and clng(tmpp) <= 49895 then
getpychar= "L"
elseif clng(tmpp) >= 49896 and clng(tmpp) <= 50370 then
getpychar= "M"
elseif clng(tmpp) >= 50371 and clng(tmpp) <= 50613 then
getpychar= "N"
elseif clng(tmpp) >= 50614 and clng(tmpp) <= 50621 then
getpychar= "O"
elseif clng(tmpp) >= 50622 and clng(tmpp) <= 50905 then
getpychar= "P"
elseif clng(tmpp) >= 50906 and clng(tmpp) <= 51386 then
getpychar= "Q"
elseif clng(tmpp) >= 51387 and clng(tmpp) <= 51445 then
getpychar= "R"
elseif clng(tmpp) >= 51446 and clng(tmpp) <= 52217 then
getpychar= "S"
elseif clng(tmpp) >= 52218 and clng(tmpp) <= 52697 then
getpychar= "T"
elseif clng(tmpp) >= 52698 and clng(tmpp) <= 52979 then
getpychar= "W"
elseif clng(tmpp) >= 52980 and clng(tmpp) <= 53688 then
getpychar= "X"
elseif clng(tmpp) >= 53689 and clng(tmpp) <= 54480 then
getpychar= "Y"
elseif clng(tmpp) >= 54481 and clng(tmpp) <= 62289 then
getpychar= "Z"
elseif clng(tmpp)= 62331 then '髙-3205
getpychar= "G"
elseif clng(tmpp)= 62369 then '蟆 -3167
getpychar= "M"
elseif clng(tmpp)= 62374 then '螃 -3162
getpychar= "P"
elseif clng(tmpp)= 62400 then '罄 -3136
getpychar= "Q"
elseif clng(tmpp)= 62402 then '舐 -3134
getpychar= "S"
elseif clng(tmpp)= 62404 then '竽 -3132
getpychar= "Y"
elseif clng(tmpp)= 62405 then '笈 -3131
getpychar= "J"
elseif clng(tmpp)= 62406 then '笃 -3130
getpychar= "D"
elseif clng(tmpp)= 62411 then '笏 -3125
getpychar= "H"
elseif clng(tmpp)= 62415 then '笙 -3121
getpychar= "S"
elseif clng(tmpp)= 62418 then '笠 -3118
getpychar= "S"
elseif clng(tmpp)= 62423 then '笞 -3113
getpychar= "C"
elseif clng(tmpp)= 62427 then '筵 -3109
getpychar= "Y"
elseif clng(tmpp)= 62658 then '袈 -2878
getpychar= "J"
elseif clng(tmpp)= 62659 then '裘 -2877
getpychar= "Q"
elseif clng(tmpp)= 62660 then '裟 -2876
getpychar= "S"
elseif clng(tmpp)= 62663 then '羟 -2873
getpychar= "Q"
elseif clng(tmpp)= 62668 then '籼 -2868
getpychar= "X"
elseif clng(tmpp)= 62686 then '艮 -2850
getpychar= "G"
elseif clng(tmpp)= 62688 then '羿 -2848
getpychar= "Y"
elseif clng(tmpp)= 62692 then '翡 -2844
getpychar= "F"
elseif clng(tmpp)= 62693 then '翦 -2843
getpychar= "J "
elseif clng(tmpp)= 62694 then '翩 -2842
getpychar= "P"
elseif clng(tmpp)= 62697 then '糸 -2839
getpychar= "M"
elseif clng(tmpp)= 62699 then '綦 -2837
getpychar= "Q"
elseif clng(tmpp)= 62705 then '赳 -2831
getpychar= "J"
elseif clng(tmpp)= 62714 then '酊 -2822
getpychar= "D"
elseif clng(tmpp)= 62716 then '酎 -2820
getpychar= "D"
elseif clng(tmpp)= 62884 then '酩 -2652
getpychar= "M"
elseif clng(tmpp)= 62885 then '酯 -2651
getpychar= "Z"
elseif clng(tmpp)= 62907 then '趸 -2629
getpychar= "D"
elseif clng(tmpp)= 62912 then '趵 -2624
getpychar= "B"
elseif clng(tmpp)= 62924 then '跆 -2612
getpychar= "T"
elseif clng(tmpp)= 62931 then '跤 -2605
getpychar= "J"
elseif clng(tmpp)= 62932 then '踉 -2604
getpychar= "L"
elseif clng(tmpp)= 62965 then '貂 -2571
getpychar= "D"
elseif clng(tmpp)= 62967 then '貅 -2569
getpychar= "X"
elseif clng(tmpp)= 62969 then '貔 -2567
getpychar= "P"
elseif clng(tmpp)= 63137 then '觥 -2399
getpychar= "G"
elseif clng(tmpp)= 63140 then '訾 -2396
getpychar= "Z"
elseif clng(tmpp)= 63142 then '靓 -2394
getpychar= "L"
elseif clng(tmpp)= 63144 then '雳 -2392
getpychar= "L"
elseif clng(tmpp)= 63145 then '雯 -2391
getpychar= "W"
elseif clng(tmpp)= 63146 then '霆 -2390
getpychar= "T"
elseif clng(tmpp)= 63147 then '霁 -2389
getpychar= "J"
elseif clng(tmpp)= 63150 then '霎-2386
getpychar= "S"
elseif clng(tmpp)= 63152 then '霭 -23849
getpychar= "A"
elseif clng(tmpp)= 63154 then '霾 -2382
getpychar= "M"
elseif clng(tmpp)= 63175 then '銮 -2361
getpychar= "L"
elseif clng(tmpp)= 63183 then '鱿 -2353
getpychar= "Y"
elseif clng(tmpp)= 63185 then '鲅 -2351
getpychar= "B"
elseif clng(tmpp)= 63189 then '稣 -2347
getpychar= "S"
elseif clng(tmpp)= 63208 then '鲨 -2328
getpychar= "S"
elseif clng(tmpp)= 63210 then '鲫 -2326
getpychar= "J"
elseif clng(tmpp)= 63219 then '鲶 -2317
getpychar= "N"
elseif clng(tmpp)= 63225 then '鳄 -2311
getpychar= "E"
elseif clng(tmpp)= 63226 then '鳅 -2310
getpychar= "Q"
elseif clng(tmpp)= 63308 then '鱈 -2228
getpychar= "X"
elseif clng(tmpp)= 63364 then '鲃 -2172
getpychar= "B"
elseif clng(tmpp)= 63393 then '鳌 -2143
getpychar= "A"
elseif clng(tmpp)= 63409 then '鞅 -2127
getpychar= "Y"
elseif clng(tmpp)= 63415 then '鞣 -2121
getpychar= "R"
elseif clng(tmpp)= 63432 then '魅 -2104
getpychar= "M"
elseif clng(tmpp)= 63435 then '魉 -2101
getpychar= "L"
elseif clng(tmpp)= 63437 then '魍 -2099
getpychar= "W"
elseif clng(tmpp)= 63438 then '魑 -2098
getpychar= "C"
elseif clng(tmpp)= 63439 then '飨 -2097
getpychar= "X"
elseif clng(tmpp)= 63441 then '餮 -2095
getpychar= "T"
elseif clng(tmpp)= 63442 then '饕 -2094
getpychar= "T"
elseif clng(tmpp)= 63463 then '麋 -2073
getpychar= "M"
elseif clng(tmpp)= 63464 then '麒 -2072
getpychar= "Q"
elseif clng(tmpp)= 63466 then '麝 -2070
getpychar= "S"
elseif clng(tmpp)= 63467 then '麟 -2069
getpychar= "L"
elseif clng(tmpp)= 63468 then '黛 -2068
getpychar= "D"
elseif clng(tmpp)= 63469 then '黜 -2067
getpychar= "C"
elseif clng(tmpp)= 65088 then '兀 -448
getpychar= "W"
else '如果不是中文，则不处理
getpychar=char
end if
end function
function getpy(str)
for i=1 to len(str)
getpy=getpy & getpychar(mid(str,i,1))
next
end function
%>
|
|
|
|
|
·上一篇：Windows 2003服务器安全设置梗概
|
|
·下一篇：解决windows2003默认只有200k的图片上传限制的方法
|
|
|
|
|
|
|
VIP资料
