asp 取得中文句子头一个字的大写拼音字母的函数

答案：取得中文句子头一个字的大写拼音字母
<% 
'****************************** 
'函数：getpychar(char) 
'参数：char,任意中文字符或句子 
'作者：阿里西西 
'日期：2007/7/15 
'描述：取得中文句子头一个字的大写拼音字母 
'示例：getpychar("欢迎访问阿里西西") 
'****************************** 
Function getpychar(char) 
 Dim tmp 
 tmp=65536+Asc(char)  
 If(tmp>=45217 And tmp<=45252) Then  
 getpychar= "A"  
 ElseIF(tmp>=45253 And tmp<=45760) Then  
 getpychar= "B"  
 ElseIF(tmp>=45761 And tmp<=46317) Then  
 getpychar= "C"  
 ElseIF(tmp>=46318 And tmp<=46825) Then  
 getpychar= "D"  
 ElseIF(tmp>=46826 And tmp<=47009) Then  
 getpychar= "E"  
 ElseIF(tmp>=47010 And tmp<=47296) Then  
 getpychar= "F"  
 ElseIF(tmp>=47297 And tmp<=47613) Then  
 getpychar= "G"  
 ElseIF(tmp>=47614 And tmp<=48118) Then  
 getpychar= "H"  
 ElseIF(tmp>=48119 And tmp<=49061) Then  
 getpychar= "J"  
 ElseIF(tmp>=49062 And tmp<=49323) Then  
 getpychar= "K"  
 ElseIF(tmp>=49324 And tmp<=49895) Then  
 getpychar= "L"  
 ElseIF(tmp>=49896 And tmp<=50370) Then  
 getpychar= "M"  
 ElseIF(tmp>=50371 And tmp<=50613) Then  
 getpychar= "N"  
 ElseIF(tmp>=50614 And tmp<=50621) Then  
 getpychar= "O"  
 ElseIF(tmp>=50622 And tmp<=50905) Then  
 getpychar= "P"  
 ElseIF(tmp>=50906 And tmp<=51386) Then  
 getpychar= "Q"  
 ElseIF(tmp>=51387 And tmp<=51445) Then  
 getpychar= "R"  
 ElseIF(tmp>=51446 And tmp<=52217) Then  
 getpychar= "S"  
 ElseIF(tmp>=52218 And tmp<=52697) Then  
 getpychar= "T"  
 ElseIF(tmp>=52698 And tmp<=52979) Then  
 getpychar= "W"  
 ElseIF(tmp>=52980 And tmp<=53640) Then  
 getpychar= "X"  
 ElseIF(tmp>=53689 And tmp<=54480) Then  
 getpychar= "Y"  
 ElseIF(tmp>=54481 And tmp<=62289) Then  
 getpychar= "Z"  
 Else '如果不是中文，则不处理  
 getpychar=char  
 End If  
End Function 
%>

上一个：asp实现计算两个时间内的工作日的函数
下一个：asp 生成任意英文+数字位数长度的随机码函数