龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > web编程 > asp编程 >

asp 中英文字符长度检测判断函数

时间:2012-12-31 22:56来源:未知 作者:admin 点击: 次
分享到：

asp 中英文字符长度检测判断函数

function strLength(str)
       ON ERROR RESUME NEXT
       dim WINNT_CHINESE
       WINNT_CHINESE    = (len("论坛")=2)
       if WINNT_CHINESE then
          dim l,t,c
          dim i
          l=len(str)
          t=l
          for i=1 to l
             c=asc(mid(str,i,1))
             if c<0 then c=c+65536
             if c>255 then
                t=t+1
             End if
          next
          strLength=t
       else
          strLength=len(str)
       End if
       if err.number<>0 then err.clear
End function


精彩图集
精彩文章

热门标签

链表 调用WebService Lesson01_07 全排列算法 var UpdateDaset 解除禁用 繁体 双击table 深入分析 php常用字符串 采集网站资源 微信打开网页 实时推送代 建立数据库 php常用函数 二级 只读属性对象 完全退出 bond 防范 SQL执行错误 判断机器 整型参数转 php php中使用sw socket.error 扩展模块 搜索技术文章 新浪开放接口 pyside unescape 直接下载 读写数据库 原因分析 磁盘更改 php php判断来访 工具 php解压文件 删除行 并发下载 检测链接 interface def 皇后 SQL*Loader 垂直平铺 均衡 php PHP面 计划任务 QQ游戏 线程锁 系统登录 类型强制转换 顶尖算法 连续日期 漏洞 webwiew 元素拖动 解法 Mysql数据库优化

赞助商链接