ASP函数计算字符串长度

'*****************************************
'函数名：strLength
'作  用：求字符串长度。汉字算两个字符，英文算一个字符。
'参  数：str  ----要求长度的字符串
'返回值：字符串长度
'*****************************************

<%
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

%>

原载: http://www.auuo.com
版权说明：原创文章欢迎转载，但转载请务必以超链接标明文章原始出处、作者信息和本声明。否则必追究法律责任

ASP函数计算字符串长度

联系我们

QQ：51193930(Ahoo)
MSN：auuocx@hotmail.com
网址：http://www.auuo.com
地址：慈溪天九商务中心525室
电话：189-0662-0882

我们的优势
拥有优秀的网站设计师与程序工程师，精通各种一流的图形设计软件，如Photoshop、Freehand CorlDraw、Flash、Dreamweaver、Fireworks等等制作网页和平面设计图。以及使用C语言、C#、ASP.NET框架、asp、php等语言为您开发项目，我们为您准备了最专业的技术服务。为您开发的网站精致实用，代码清晰，保证您的网站安全可靠修改方便，最重要的是符合市场需求，并随时为客户解决各种技术问题。

我们正在努力开拓...

baidu

互联网 本网站