ASP - 문자열자르기 함수

'결과예제 :
'str = "12345678901234567890"
'm_StrCut( str, "10")            '결과 : 1234567890
'm_StrCut( str, 10)            '결과 : 1234567890
'
'
'str = "나는당신을무진장사랑01234567890"
'm_StrCut( str, 10)            '결과 : 나는당신을무진장사랑
'
'str = "012나는당신을무진장사랑"
'm_StrCut( str, 10)            '결과 : 012나는당신을무진
'
'str = "01나는당신을무진장사랑"
'm_StrCut( str, 10)            '결과 : 01나는당신을무진장

function m_StrCut( str, maxLen)
      dim s_len, i, new_str, t
      dim s, a

 

      s_len = len(str)
      maxLen = Cint(maxLen)      '숫자형으로 데이타 형식을 변환하기
      'if maxLen>s_len then
      '      maxLen = s_len
      'end if

 

      t = 0

 

      for i=1 to s_len
            s = mid(str, i, 1)
            a = asc(s)
            if (a>0 and a<127) then
                  t = t + 1
            else
                  t = t + 2
            end if
      next
      if t>maxLen then
            t = maxLen
      end if

 

      new_str = Mid(str, 1, t)

 

      'response.write "<hr>"
      response.write "<br>" & new_str
      'response.write "<br>" & t
      'response.write "<br>" & maxLen
      'response.write "<hr>"

      m_StrCut = new_str
end function