- <%
- '取字段数据每个汉字的拼音首字母
- 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
- %>
ASP常用函数:getpy()
2019-10-25 11:21asp教程网 ASP教程
ASP常用函数:getpy()
延伸 · 阅读
- 2019-10-25我用ASP写的m行n列的函数,动态输出创建TABLE行列
- 2019-10-25ASP常用函数:Delay()
- 2019-10-25ASP常用函数:Trace()
- 2019-10-25ASP实现关键词获取(各搜索引擎,GB2312及UTF-8)
- 2019-10-25ASP常用函数:TimeZone
- 2019-10-25ASP常用函数:CStrIP()
精彩推荐
- ASP教程
通过Response.Flush()实现下载失败的解决方法
Response.Flush()实现对服务端文件的下载时,会失败,不能正常弹出IE下载框,通过测试发现时浏览器的安全设置问题,如下操作便可解决...
- ASP教程
获取一个数字的个位、十位、百位的函数代码
获取一个数字的个位、十位、百位的代码,需要的朋友可以参考下。...
- ASP教程
ASP固定比例裁剪缩略图的方法
这篇文章主要介绍了ASP固定比例裁剪缩略图的方法,需要的朋友可以参考下...
- ASP教程
ASP所有的Session变量获取实现代码
在程序调试中,有时候需要知道有多少Session变量在使用,她们的值如何?由于Session对象提供一个称为Contents的集合(Collection),我们可以通过For...Each循环来...
- ASP教程
用ASP打开远端MDB文件的方法
用ASP打开远端MDB文件的方法,如果你用ODBC connection (DSN or DSN-less)来访问远端的(UNC path)数据库, OLEDB会出现以下错误信息...
- ASP教程
ASP中常用的函数和详细说明
各位都把ASP用的函数和详细说明贴出来,供大家学习. 我知道的如下: 1.函数array() 功能:创建一个数组变量 格式:array(list) 参数:list 为数组变量中的每个数值列...
- ASP教程
用正则和xmlHttp实现的asp小偷程序
用正则和xmlHttp实现的asp小偷程序...
- ASP教程
asp读取远程文件并保存到本地代码
asp读取远程文件并保存到本地代码 ...