영삼넷IT 강국 = 김영삼 블로그에 오신걸 환영합니다.

데이타베이스를 사용하신다면 쿼리를 이용하시는게 훨씬 간단하고 Performance 또한 좋습니다.

하지만 순수하게 ASP내에서 문자열 길이를 일정하게 유지하셔야  한다면 다음 함수를 써보세요.

<%
                 
     
function LeftCut(strString, intCut)

    dim intPos, chrTemp, strCut, intLength

    '문자열 길이 초기화
    intLength = 0
    intPos = 1

   
    '문자열 길이만큼 돈다
    do while ( intPos <= Len( strString ))

     '문자열을 한문자씩 비교한다
        chrTemp = ASC(Mid( strString, intPos, 1))

       
        if chrTemp < 0 then '음수값(-)이 나오면 한글임
          strCut = strCut & Mid( strString, intPos, 1 )

          intLength = intLength + 2  '한글일 경우 문자열 길이를 2를 더한다
        else
          strCut = strCut & Mid( strString, intPos, 1 )           

          intLength = intLength + 1  '한글이 아닌경우 문자열 길이를 1을 더한다
        end If

        if intLength >= intCut  then
           exit do
        end if

        intPos = intPos + 1
 

    Loop

    '리턴값

    LeftCut = strCut

end function

Response.Write LeftCut("2010-12-10 미래에서 잘라낼 길이", 12) & "<br>"

Response.Write LeftCut("미래 2010-12-10 문자열중 잘라낼 길이", 12)

%>