<% 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<°ø½ÃÁ¤º¸