ASP에서 글자(한글포함)길이 알맞게 자르기

Function cutStr(str, cutLen)                                '// cutStr(문자열, 자를길이)

   Dim strLen, strByte, strCut, strRes, char, i
   strLen = 0
   strByte = 0
   strLen = Len(str)

   for i = 1 to strLen
      char = ""
      strCut = Mid(str, i, 1)
      char = Asc(strCut)
      char = Left(char, 1)

      if char = "-" then  '2Bye
          strByte = strByte + 2
      else
          strByte = strByte + 1
      end if

      if cutLen < strByte then
          strRes = strRes & ".."
          exit for
      else
          strRes = strRes & strCut
      end if
   next

   cutStr = strRes
End