原创投稿 |　常用软件
您的位置：网站首页 > 源码分享 > ASP程序 > 正文

判断文章中文字符数量ASP技巧

文章作者：三亚上门维修电脑 发布日期：2012/2/11 9:03:33
dim WINNT_CHINESE
   WINNT_CHINESE = (len("论坛")=2)

   function strLength(str)
       ON ERROR RESUME NEXT
       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

注意：联系我时，请一定说明是从【S】看到的信息，谢谢。

编辑：
联系电话：
联系 QQ：
打电话给我、或者加QQ好友时，请一定说明来自（三亚上门维修电脑）谢谢您！
三亚上门维修电脑

上一篇：检查sql字符串中是否有单引号有则进行转化ASP技巧
下一篇：转换html代码子程序ASP技巧