<!-- Split 함수를 이용해서 문자열에서 특정문자를 제거하는 함수입니다.
혹시 필요하신분 있을까봐 간단히 만들어 봤습니다. -->
<%
Function Get_AbString( strSource, chrSource )
Dim strTemp, chrTemp, strDest
strTemp = strSource
chrTemp = chrSource
'Split 함수: 지정된 수의 부분 문자열을 포함하는 0부터 시작하는 1차원 배열을 반환합니다.
'strDest에는 chrSource의 갯수를 반환합니다. 여기서는 2
'분리된 문자열은 strDest(0) 부터 시작해서 반환한 strDest의 갯수만큼의 1차원 배열에 저장됩니다.
'여기서는 strDest(0), strDest(1), strDest(2)
strDest = Split( strTemp, chrTemp )
strTemp = ""
for i = 0 to ubound(strDest)
strTemp = strTemp & strDest(i)
next
Get_AbString = strTemp
End Function
Response.Write Get_AbString( "2,000,000", "," )
%>