繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP常用函数:getpy()
- ASP
- ASP技巧：让Len,Left,Right函数识别中文
- Flash和ASP实现的用户登录/注册程序
- ASP随机显示不重复记录解决方案
- ASP动态网页制作常用错误处理
- ASP对网页进行限制性的访问
- 初学:ASP内建对象Response
- ASP Server object error的解决办法
- ASP教程,ASP实现防盗链的方法
- 更改windows XP 的IIS连接数
- xmldom在服务器端生成静态html页面
- asp技巧:防止被杀毒软件误删的代码
- ASP教程:初步接触ASP缓存技术
- ASP教程:rs.getrows的使用方法介绍
- ASP技巧:Utf-8和Gb2312乱码问题的终结
- ASP教程:applicaton对象的使用集合
- ASP环境:启动停止IIS不重启电脑的技巧
- 利用FLV组件制作的播放器，动态获取变量，控制FLV文件
- ASP教程:ASP错误ASP 0201的解决方法
- ASP技巧教程:认识学习codepage的属性
- Codepage参数和其对应的语言
ASP常用函数:getpy()
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 153 ::
收藏到网摘: n/a
<%
'取字段数据每个汉字的拼音首字母
Function getpychar(char)
tmp = 65536 + Asc(char)
If(tmp>= 45217 And tmp<= 45252) Then
getpychar = "A"
ElseIf(tmp>= 45253 And tmp<= 45760) Then
getpychar = "B"
ElseIf(tmp>= 47761 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
Function getpy(Str)
For i = 1 To Len(Str)
getpy = getpy&getpychar(Mid(Str, i, 1))
Next
End Function
%>
评论 (0) All
