★→ASP程序学习群:62655404 微信公众号开发
订阅本栏目 RSS您所在的位置: 深山工作室 > ASP学习 > 正文

asp获取汉字拼音的第一个字母

深山工作室 2014/5/20 14:26:54 深山 字体:  浏览 1965 我要评论
当前标签
拼音
 <%
'获取汉字拼音第一字母
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<=53688) 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 
%>
后一页:检测非法字符
相关阅读
( 2011/8/23 8:29:20 )旅游网站的企业站自定义功能完成。
( 2011/1/17 15:42:22 )javascript 根据汉字拼音首字母快速定位下拉列表
( 2011/1/14 17:03:42 )javascript取汉字拼音首字母缩写程序
( 2010/1/20 13:40:45 )ASP汉字转拼音,支持自定义特殊词语
( 2009/12/22 14:07:34 )仿taobao效果拼音字母检索功能
( 2009/8/29 9:11:31 )asp汉字转换为拼音
( 2009/8/28 8:47:05 )Javascript输入汉字自动转换为首字母的拼音码
( 2009/8/28 8:40:04 )JavaScript实现把汉字转换为拼音
共有0条关于《asp获取汉字拼音的第一个字母》的评论
发表评论
正在加载评论……
返回顶部发表评论
呢 称:
表 情:
内 容:
评论内容:不能超过 1000 字,需审核,请自觉遵守互联网相关政策法规。
验证码: 验证码 
深山工作室网友评论声明,请自觉遵守互联网相关政策法规。

您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。

更多信息>>栏目类别选择
rss学习
个人空间
网站设计
网站公告
下载
photoshop学习
ASP学习
DIV+CSS学习
SEO搜索引擎忧化
java学习
HTML学习
网站信息
网站类信息
更多>>同类信息
ASP利用fso读取文件夹里所有文件的名字
asp实现获得当前文章的上一篇信息与下一篇信息功能及代码
asp导出内容到excel表并自定义命名后下载(非打开)
'禁止站外提交页面和数据
asp将中文汉字字符转为unicode编码(\u编码)与把unicode编码转为汉字
asp中qequest读取优先级顺序(通过优化之后提高速度)
asp计算页面执行时间显示到毫秒
批量删除access字段里面fld.Properties.Delete
更多>>最新添加文章
网站从http改成https(ssl证书)后设置301跳转将http跳转到https的方法
ASP利用fso读取文件夹里所有文件的名字
jquery动态生成的html代码中无法使用jquery事件的解决方法
asp实现获得当前文章的上一篇信息与下一篇信息功能及代码
asp导出内容到excel表并自定义命名后下载(非打开)
'禁止站外提交页面和数据
asp将中文汉字字符转为unicode编码(\u编码)与把unicode编码转为汉字
asp中qequest读取优先级顺序(通过优化之后提高速度)
更多>>随机抽取信息
ASP.NET 2.0跨网页提交的三法
div+CSS的无限级扩展下拉菜单(全部加了注释)
ASP.NET 2和IIS 7.0发生不兼容变化
滑动展开/收缩广告(兼容ff/ie6/ie7)
五个简单措施增强IIS安全性
深山行者留言系统V2.2 .1 更新下载
纯div+css制作的弹出菜单-05
七种网站添加链接的简单方法
11