ASP获取字符串长度的自定义函数


ASP获取字符串长度的自定义函数

'----------------------------------------------------------------'
' getStrLen
' 获取字符长度,一个中文字符长度算 2
' 参数:
' str 需要获取长度的字符串
' 返回值:整数 (字符串的长度)
'----------------------------------------------------------------'
Function GetStrLen(str)
If IsNull(str) Or str = "" Then
getStrLen = 0
Else
Dim i, n, k, chrA
k = 0
n = Len(str)
For i = 1 To n
chrA = Mid(str, i, 1)
If Asc(chrA) >= 0 And Asc(chrA) <= 255 Then
k = k + 1
Else
k = k + 2
End If
Next
getStrLen = k
End If
End Function

本文作者:



相关阅读:
在Windows Server 2008 X64中通过.NET程序调用32位com组件
dedecms 5.1 游客匿名投稿实现方法
利用CSS3的定位页面元素
批处理写的 oracle 数据库备份还原工具
系统分配随机密码
asp汉字中文图片验证码
XHTML2死掉,XHTML1.x语法在HTML5中可以使用
论WEB标准在中国的灰飞烟灭
5.7 实现高级JavaScript技术(三)
WIN2003 服务器安全配置批处理文件
JS多级连动菜单
什么是XHTML?
活用Windows Server 2008系统的几种安全功能
asp.net程序在调式和发布之间图片路径问题的解决方法
快速导航

Copyright © 2016 phpStudy | 皖ICP备18014864号-4