欢迎来到站长教程网!
兔子CDN

ASP编程

当前位置:主页 > 网络编程 > ASP编程 >

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

时间:2020-09-06|栏目: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编程

下一篇:ASP下Cookie操作的详细讲解

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

本文地址:www.dtcnnet.com/asp/25712.html

广告投放 | 联系我们 | 版权申明

重要申明:本站所有的文章、图片、评论等,均由网友发表或上传并维护或收集自网络,属个人行为,与本站立场无关。

如果侵犯了您的权利,请与我们联系,我们将在24小时内进行处理、任何非本站因素导致的法律后果,本站均不负任何责任。

联系QQ:584415406 | 邮箱:584415406#qq.com(#换成@)

Copyright © 2015-2020 小白站长网 版权所有 苏ICP备20040415号