<% Dim str1, str2 Application("aaa") = "1111 : 2222 : 3333 : 4444 : 5555" str2 = Split( Application("aaa"), " : " ) ' split() ÇÔ¼ö¿¡ ÀÇÇØ ³ª¿Â °á°ú°ªÀÌ ¹è¿À̸é... if isArray(str2) then ' Á¦´ë·Î ©¶ú´ÂÁö( split() ) È®ÀÎ for i = 0 to UBound(str2) response.write str2(i)&"<br>" next str1 = str2(0) for i = 1 to UBound(str2) if str2(i) <> "3333" then str1 = str1 & " : " & str2(i) end if next end if Application("aaa") = str1 response.write Application("aaa") %>