데이타베이스를 사용하신다면 쿼리를 이용하시는게 훨씬 간단하고 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)
%>