asp 中英文字符長度檢測判斷函數

　　function strLength(str)
       ON ERROR RESUME NEXT
       dim WINNT_CHINESE
       WINNT_CHINESE    = (len("論壇")=)
       if WINNT_CHINESE then
          dim ltc
          dim i
          l=len(str)
          t=l
          for i= to l
             c=asc(mid(stri))
             if c< then c=c+
             if c> then
                t=t+
             End if
          next
          strLength=t
       else
          strLength=len(str)
       End if
       if errnumber<> then errclear
End function

From:http://tw.wingwit.com/Article/program/net/201311/14425.html