The detection and judgement function of English character length in ASP

Function strlength (str)
       on ERROR RESUME NEXT
        Dim Winnt_chinese
       winnt_chinese    = (len ("forum") =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