asp³£ÓÃСÀý×Ó¾ßÌåÓ¦ÓøĶ¯Ò»Ï°É

µÚÒ»¼¯  ÏÈ·¢¸öÊÔÏÂ
<script LANGUAGE=vbscript>
function getchar(char)
charobj=65536+asc(char)
if(charobj>=45217 and charobj<=45252) then 
getchar= "A"
elseif(charobj>=45253 and charobj<=45760) then
getchar= "B"
elseif(charobj>=45761 and charobj<=46317) then
getchar= "C"
elseif(charobj>=46318 and charobj<=46825) then
getchar= "D"
elseif(charobj>=46826 and charobj<=47009) then 
getchar= "E"
elseif(charobj>=47010 and charobj<=47296) then 
getchar= "F"
elseif(charobj>=47297 and charobj<=47613) then 
getchar= "G"
elseif(charobj>=47614 and charobj<=48118) then
getchar= "H"
elseif(charobj>=48119 and charobj<=49061) then
getchar= "J"
elseif(charobj>=49062 and charobj<=49323) then 
getchar= "K"
elseif(charobj>=49324 and charobj<=49895) then 
getchar= "L"
elseif(charobj>=49896 and charobj<=50370) then 
getchar= "M"
elseif(charobj>=50371 and charobj<=50613) then 
getchar= "N"
elseif(charobj>=50614 and charobj<=50621) then 
getchar= "O"
elseif(charobj>=50622 and charobj<=50905) then
getchar= "P"
elseif(charobj>=50906 and charobj<=51386) then 
getchar= "Q"
elseif(charobj>=51387 and charobj<=51445) then 
getchar= "R"
elseif(charobj>=51446 and charobj<=52217) then 
getchar= "S"
elseif(charobj>=52218 and charobj<=52697) then 
getchar= "T"
elseif(charobj>=52698 and charobj<=52979) then 
getchar= "W"
elseif(charobj>=52980 and charobj<=53640) then 
getchar= "X"
elseif(charobj>=53689 and charobj<=54480) then 
getchar= "Y"
elseif(charobj>=54481 and charobj<=62289) then
getchar= "Z"
else 
getchar=char
end if
end function

function getpy(str)
for i=1 to len(str)
getpy=getpy&getchar(mid(str,i,1))
next
end function

µã»÷ä¯ÀÀ¸ÃÎļþ