귀여운 고양이

노트/유머 2007/10/08 18:37 posted by zekill


전에 인터넷을 돌다가 다운받았던 건데..동영상만 다운받아놨더니...-0-;;;;
고양이 종두 모르겠고...어디서 가져온건지도 모르겠구...
할튼 귀엽다..ㅋ 무슨 종인지 아시는분..^^;;;;





사용자 삽입 이미지
초사이어캣 하나효~
2007/10/08 18:37 2007/10/08 18:37

사용자 삽입 이미지


아래 소스는 간단하게 만들어본 소스이며 내용을 더 추가하여 고급기능을 활용할 수 있따.
우선 1번과 2번이 있는데 2003에서 1번은 기본적으로 작동하지 않는다.


'----------------------------------------------------
' 1번) IIS SMTP service, CDONTS.NewMail
'----------------------------------------------------
Const CdoBodyFormatHTML = 0
Const CdoBodyFormatText = 1
Const CdoMailFormatMime = 0
Const CdoMailFormatText = 1

'Send Mail
Dim objSendMail

Set objSendMail = CreateObject("CDONTS.NewMail")

With objSendMail 
 .From = "frommail"
 .To = "tomail"
 .Subject = "title"
 .MailFormat = cdoMailFormatMIME
 .BodyFormat = cdoBodyFormatHTML 
 .Body = "content"
 .Importance = CdoHigh
 .Send
End With

Set objSendMail = nothing


'----------------------------------------------------
' 2번) IIS SMTP service, CDO.Message
'----------------------------------------------------
Const cdoOutlookExvbsss = 2
Const cdoIIS = 1

Dim iMsg

Set iMsg = CreateObject("CDO.Message")

With iMsg 
 .Configuration.Load cdoIIS

 .To = "tomail"
 .From = "frommail"
 .Subject = "title"
 '.HTMLBody = "content"
 .TextBody = "content"
 '.BodyPart.Charset="ks_c_5601-1987"
 '.HTMLBodyPart.Charset="ks_c_5601-1987"

 '파일을 첨부하려면 아래 주석을 제거
 'Dim iBP
 'Set iBP = .AddAttachment(App.Path & "\file1.txt")

 .Send
End With

Set iMsg = Nothing 

위 내용보다 더 자세한 내용은 아래 주소에 가보면 잘 설명해놓았다.
뭐 위에 소스랑 약간 옵션이 다른것도 있긴 하지만 맘에 드는걸로 ㅋㅋ

http://www.motobit.com/tips/detpg_send-email-from-asp/

위 컴퍼넌트 문제라든가..뭐 어떤 이유로 사용할 수 없을 때에는...
개인적으로 imoxion 이라는 곳의 컴퍼넌트를 사용하기도 한다.
업로드 컴퍼넌트와 SMTP 컴퍼넌트는 가입만하면 무료로 다운받아서 사용할 수 있어서 문제도 없다.ㅋ

SMTP : http://www.imoxion.co.kr/solution/solution_smtp_overview.jsp
UpDown : http://www.imoxion.co.kr/solution/solution_updown_overview.jsp
뭐 광고는 아니니...^^;;;

2007/10/08 18:22 2007/10/08 18:22

초보적인 거라도 몰랐던거니 뭐...귀엽게 봐주삼....ㅋ

뭐 오라클로 많이 작업해본적이 없어서...그냥 따라만 썼는데...어느 날 저걸 빼먹고 계산된 값이 틀려 확인했더니...-0-;;;;;;

select last_day(trunc(SYSDATE)) from dual;

위의 쿼리는 현재 달의 끝날짜만을 정확히 가져오더라...

하지만 그렇게 되면 비교시에 저 날짜는 예를 들어 2007-10-31 00:00:00 이 되버린다..
그럼 10월 31일 이지만 10월 31일 10시쯤의 항목이라거나 어쨋든 00:00:00 이후 시간의 항목은 제외가 되버려서 결국은 10월 30일 마지막 시간까지의 자료만 나오게되는 셈이된다.
아...물론 10월 31일 00:00:00에 자료가 없다면 말이다..-0-;;;;
 


그래서 날짜값에 0.99999 를 붙이게 된다... 9가 딱 5개다 -0-//

select last_day(trunc(SYSDATE)) +0.99999 from dual;

이걸 붙이게 되면 2007-10-31 23:59:59 의 값을 가져오게 된다.
뭐 여기에 1초만 붙게된다면...담날이 되는거니....

9를 6개 이상 붙이면 정확히 다음날 날짜를 가져온다..-0-;;;;

뭐 대략 이런 차이 인거다...

between 등으로 기간검색등을 할때 잘 확인하자....
2007/10/08 18:16 2007/10/08 18:16