아미(아름다운미소)

[asp] 유용함수 정리 '' 'HTML 태그제거 ' Function StripTags( htmlDoc ) Dim rex Set rex = New Regexp rex.Pattern= "]+>" rex.Global=True StripTags =rex.Replace(htmlDoc,"") End Function '=========================================================================== '함수명 : DB_IN_STR 'INPUT : cur_str ==> 검사할 문자열 '기능설명 : DB입력할때 ' 만 '' 로 교체 '===========================================================================..

마지막 문자열 구하기 Option Explicit Dim str : str = "100|5|0||2028|1090|서울특별시 강남구 삼성동" Response.write SearchAddress(str) Function SearchAddress(byRef paramStr) Dim ipos Dim strLen Dim Result '------------------------------------------------ ' 입력되는 인자의 전체 길이. '------------------------------------------------ strLen = Len(paramStr) '------------------------------------------------ ' 문자 '|' 마지막에 위치하는 자리 수 ..

- 숫자 확인후 3자리마다 , 해주고 숫자가 아니면 문자 그대로 보내줌 Function ChkNumericToValue(CheckValue) If ISNumeric(CheckValue) Then ChkNumericToValue = FormatNumber(CheckValue,0) Else ChkNumericToValue = CheckValue End If End Function - Comma 뺀 숫자만 추출 Function ChkToMComma(CheckValue) dim CheckMomma If Len(CheckValue) > 0 Then CheckValue = replace(CheckValue, ",","") ChkToMComma = CheckValue Else ChkToMComma = "" End I..

- 문자열 바이트길이 가져오기 '-------------------------------------------------------- ' Function Name : GetLength ' Description : 문자열 바이트길이 가져오기 ' Example : GetLength("문자열") ' output : 6 ' -------------------------------------------------------- Function GetLength(strText) Dim nByteLen, nIdx, nLenIdx, nTextLenth If IsNull(strText) Then GetLength = 0 Exit Function End If nByteLen = 0 nTextLenth = Len(strTex..

- 윤달 체크 function get_month_lastday(year, mon) dim month_day(12) month_day(1) = 31 month_day(2) = 28 month_day(3) = 31 month_day(4) = 30 month_day(5) = 31 month_day(6) = 30 month_day(7) = 31 month_day(8) = 31 month_day(9) = 30 month_day(10) = 31 month_day(11) = 30 month_day(12) = 31 if mon = 2 and isdate(year & "-" & mon & "29") then get_month_lastday = 29 else get_month_lastday = month_day(mon) ..