熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

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

2013-11-13 10:44:56  來源: .NET編程 

  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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.