<%
FUNCTION cutStr(str, cutLen)
Dim strLen, strByte, strCut, strRes, char, i
strLen = 0
strByte = 0
IF str="" OR ISNULL(str) THEN
cutStr=str
EXIT FUNCTION
END IF
strLen = Len(str)
for i = 1 to strLen
char = ""
strCut = Mid(str, i, 1) ' 일단 1만큼 잘라서 strRes에 저장한다.
char = Asc(strCut) ' 아스키 코드값 읽어오기
char = Left(char, 1)
if char = "-" OR strCut = "~" then ' "-"이면 2바이트 문자임
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 Function
%>
만인에미디어
