ASP 문자열 자르기

function cutString(tStr,length)
  dim i,j
  j = 0
 

  for i = 1 to len(tStr)
   if (asc(mid(tStr,i,1))<0) then
    j = j + 2
   else
    j = j + 1
   end if

   if (j > (length)) then
    cutString = left(tStr,i-2) & ".."
    exit function
   end if
  next

  cutString = tStr
end function

출처 ASP-문자열 자르기|작성자 혀니