<%
'----------------------------------------------------------------------------------------
'yyyymmdd의 형식으로 포맷
'----------------------------------------------------------------------------------------
Function GetFormatDate1(dtDate)
GetFormatDate1 = year(dtDate) & Right("0" & Month(dtDate),2) & Right("0"&day(dtDate),2)
End Function
'----------------------------------------------------------------------------------------
'yyyymmdd 를 yyyy-mm-dd로
'----------------------------------------------------------------------------------------
Function GetFormatDate2(strDt)
GetFormatDate2 = mid(strDt, 1, 4) & "-" & mid(strDt, 5, 2) & "-" & mid(strDt, 7, 2)
End Function
'----------------------------------------------------------------------------------------
'firstValue가 Null이면 DefaultValue를 return, Null이 아니면 firstValue를 return
'----------------------------------------------------------------------------------------
Function SetDefault(firstValue, DefaultValue)
if firstValue = "" then
SetDefault = DefaultValue
else
SetDefault = firstValue
end if
End Function
'----------------------------------------------------------------------------------------
'빈문자이면 로 치환
'----------------------------------------------------------------------------------------
Function WriteChar(str)
if (trim(str) = "") or (isnull(str)) then
WriteChar = " "
else
WriteChar = str
end if
End Function
'----------------------------------------------------------------------------------------
'수자형의 데이타를 세자리마다 콤마표시 (0은 " "로 return)
'----------------------------------------------------------------------------------------
Function WriteNumberZeroNull1(num)
if num <> "" then
if num <> 0 then
WriteNumberZeroNull1 = Formatnumber(num, 0)
elseif num = 0 then
WriteNumberZeroNull1 = " "
end if
else
WriteNumberZeroNull1 = " "
end if
End Function
'----------------------------------------------------------------------------------------
'수자형의 데이타를 세자리마다 콤마표시 (0은 ""으로 return)
'----------------------------------------------------------------------------------------
Function WriteNumberZeroNull2(num)
if num <> "" then
if num <> 0 then
WriteNumberZeroNull2 = Formatnumber(num, 0)
elseif num = 0 then
WriteNumberZeroNull2 = ""
end if
else
WriteNumberZeroNull2 = ""
end if
End Function
'----------------------------------------------------------------------------------------
'수자형의 데이타를 세자리마다 콤마표시 (0은 0으로 return)
'----------------------------------------------------------------------------------------
Function WriteNumber(num)
if num > 0 then
WriteNumber = Formatnumber(num, 0)
elseif num < 0 then
WriteNumber = Formatnumber(num, 0)
elseif num = 0 then
WriteNumber = "0"
else
WriteNumber = " "
end if
End Function
'----------------------------------------------------------------------------------------
'num이 Null이면 0을 return, Null이 아니면 num을 return
'----------------------------------------------------------------------------------------
Function NullCheck(num)
if num = "" then
NullCheck = 0
else
if len(trim(num)) <= 0 then
NullCheck = 0
end if
NullCheck = num
end if
End Function
'----------------------------------------------------------------------------------------
'메세지 표시하기
'----------------------------------------------------------------------------------------
Sub DisplayMsg(intGb, strUrl)
Dim strMsg
select case intGb
case 0
strMsg = "DB가 이상합니다."
case 1
strMsg = "조회된 자료가 없습니다."
case 2
strMsg = "수정되었습니다."
case 3
strMsg = "수정되지 않았습니다."
case 4
strMsg = "등록되었습니다."
case 5
strMsg = "등록되지 않았습니다."
case 6
strMsg = "생성되었습니다."
case 7
strMsg = "생성되지 않았습니다."
case 8
strMsg = "삭제되었습니다."
case 9
strMsg = "삭제되지 않았습니다."
case 10
strMsg = "저장되었습니다."
case 11
strMsg = "저장되지 않았습니다."
end select
if strUrl <> "" then
response.write " " & vbnewline
else
response.write " " & vbnewline
end if
End Sub
'----------------------------------------------------------------------------------------
'특수문자를 변환
'----------------------------------------------------------------------------------------
Function EncodeWord(ByVal CheckValue)
CheckValue = replace(CheckValue, "'", "''")
EncodeWord = CheckValue
End Function
'----------------------------------------------------------------------------------------
'특수문자를 변환
'----------------------------------------------------------------------------------------
Function DecodeWord(ByVal CheckValue)
CheckValue = replace(CheckValue, "''", "'")
DecodeWord = CheckValue
End Function
'----------------------------------------------------------------------------------------
'html 태그 변환
'----------------------------------------------------------------------------------------
Function Tag2Text(text)
Dim str
str = Replace(text, "&" , "&")
str = Replace(str, "<", "<")
str = Replace(str, ">", ">")
Tag2Text = str
End Function
%>
MAMMUT
