网络编程 
首页 > 网络编程 > 浏览文章

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

(编辑:jimmy 日期: 2024/11/27 浏览:3 次 )
取得中文句子头一个字的大写拼音字母
<%
'******************************
'函数: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 生成任意英文+数字位数长度的随机码函数
友情链接:杰晶网络 DDR爱好者之家 南强小屋 黑松山资源网 白云城资源网 网站地图 SiteMap