asp에서 substring 만들어 사용 전체공개

1. - 사용법    
2.   Response.Write substring("동해물과 백두산이", 6, "...")   
3. - 결과    
4.   동해물...    
5.   
6. Function substring(str, max_len, end_str)   
7.     Dim i, cnt, return_str   
8.     cnt = 0   
9.     return_str = str   
10.     for i = 1 to len(str)   
11.         if Asc(mid(str, i,1)) <= 0 then   
12.             cnt = cnt + 2   
13.         else   
14.             cnt =  cnt + 1   
15.         end if   
16.   
17.         if cnt >= max_len then   
18.             return_str = mid(str, 1, i) & "..."  
19.             exit for   
20.         end if   
21.     next   
22.     substring = return_str   
23. End Function