<% 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 %> 만인에미디어
 
 
홈<IR<공시정보