사랑하기 위해 필요한 것들

“신기미(愼機微)하여 국궁진력(鞠躬盡力)하라.“

마음속에 잡념들을 제거하고 스스로를 단속하면서 몸을 굽혀 온힘을 다하라.

 

“위군난(爲君難)이니 견인불발(堅忍不拔)하라.”

군주가 되는 일은 지극히 어려우니 굳게 함고 견디어 흔들리지 말라.

 

“대공지정(大公至正)하여 협화만방(協和萬邦)하라.”

공평하고 지극히 바른 가운데 온 세상을 평화롭게 하라.

 

http://msdn.microsoft.com/en-us/library/aa384106(VS.85).aspx
Status : http://msdn.microsoft.com/en-us/library/aa383887(VS.85).aspx

Public WithEvents WinHttp As WinHttpRequest
Dim DownSize as Long

Private Sub WinHttp_OnResponseStart(ByVal Status As Long, ByVal ContentType As String)
'Start
DownSize = CLng(WinHttp.GetResponseHeader("Content-Length"))
If Not Dir(App.Path & "\" & App.EXEName & "-Old.exe") = vbNullString Then
  Kill App.Path & "\" & App.EXEName & "-Old.exe"
End If
Name App.Path & "\" & App.EXEName & ".exe" As App.Path & "\" & App.EXEName & "-Old.exe"
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
End Sub

Private Sub WinHttp_OnResponseDataAvailable(Data() As Byte)
If DownSize > 0& Then
  Put #1, , Data()
End If
DoEvents
End Sub


Private Sub WinHttp_OnResponseFinished()
'End
Close #1
End Sub

파일 다운로드 예를 이벤트에 첨가 해두었습니다.
WinHttp COM 객체는 대용량 파일 다운로드에는 적합하지 못합니다.
제공되는 관련 API 를 이용하세요.

'적절한 곳에 넣어줍니다.
'Set WinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
Set WinHttp = New WinHttpRequest

WinHttp.Open "GET", "http://주소", True
WinHttp.Send "PARAM=1000"
WinHttp.WaitForResponse //완료까지 기다림
msgbox WinHttp.ResponseText
msgbox WinHttp.ResponseBody

쾌청한 하늘빛이 마치 가을이 성큼 다가선 것 같았다.
마음을 담아도 좋을 법한 파란 하늘이,
그리고 분홍빛 구름이 형용하기 힘든 자태롤 뽑내고 있었다.

무더위도 서서히 삭으라 들고 있습니다.
밖으로는 매미 우는 소리가 하늘을 찌르네요.
한 때가 지나치면 이별을 준비해야 합니다.
사랑할 때 보내는 것이 덜 아프겠죠.
사랑하니까 보내는 겁니다.
마음을 비우고
머리도 비우고
빈 잔처럼 텅 빈 마음을 하늘에 비추고 싶습니다.
이제 내 마음을 아는 사람은 이 세상에 단 한 사람 밖에 없습니다.
어디로 가려하고 무엇이 필요한지.
어떤 것을 주어야하는지 조차도
그 한사람이 내게 주었던 붉은 피를 적신 사랑,
그 사랑을 가지려 하는 사람들이 많이 있습니다.
눈물과 사랑과 희생으로 물들인 그 사랑을 말입니다.
이별조차도 두렵지 않을 그 사랑을 가지려 합니다.
이젠 모두 놓아 주기로 했습니다.
머리 속으로 지우고,
가슴으로 지우고,
눈물과 웃음으로 지우고 나면 남는 건 빈 백지일 뿐입니다.
그 백지를 가지고 구름이 지나친 저 달빛 속을 지나
온통 흰 색으로 물든 그곳으로 가려 합니다.
바람이 불어도
물결이 출렁거려도
온통 하얀 빛이 넘실거리는 그 세상 말입니다.
말하지 않아도
모든 사랑과 감정이 섞여진 그곳,
이제 이별을 준비합니다.

영원할 줄 알았던 사랑이 떠났습니다.
이미 이별을 준비했던 거였지만,
흔적으로 남겨두기로 했습니다.

이미 놔줘야 할 시기를 가늠해 보곤 했지만,
이렇게 떠나보내니
마음의 무거운 짐을 떨쳐낸 기분입니다.

10년이 지나고
또 20년이 지나고
변하는 건 좀더 이해할 수 있는 마음 인 듯합니다.
몸은 늙지만, 마음까지 늙어지지는 않습니다.

맑은 호수처럼 깊은 그곳에서 숨쉬는 고결한 사랑의 의미를 간직하면 그만입니다.
눈시울을 적시며
아파하던 그 기억,
함께하며 기뻐하는 그 기억,
아련히 파도를 따라 바다 저 깊은 곳으로 떠내려 가겠죠.

이별하는 순간에
고요한 듯 맑게 빛나던 가슴 속의 움직임이
사랑을 불러오는 빛이 되어 주겠죠.

사랑을 놔주듯,
사람을 놔주듯,
이제 제 자신을 놔 주어야 할 때 입니다.
자유로운 그 마음을 새로운 사랑에게
맑게 빛나는 그 마음을 새로운 사람에게 주고 싶습니다.

사랑합니다.
사랑해.
오늘, 다시 사랑하고 싶습니다.

1. http://www.taeyo.pe.kr/Lecture/20_TIps/Danny02.asp 참고
 
1. 모든 ASP 코드 페이지 첫줄에 다음과 같은 코드를 추가합니다
<% @LANGUAGE='VBSCRIPT' CODEPAGE='65001' %>
 
2. Meta 테그를 다음과 같이 추가 합니다.
<meta http-equiv='Content-Type' content='text/html; charset=UTF-8'>
 
3. 에디트플러스나 울트라 에디터에서 수정후 저장할 때 반드시 Encoding 방식을 UTF-8 로 저장합니다
 
4.DB Insert/Update 시 숫자 타입을 제외한 모든 대상에 N을 추가 합니다
Insert [into] table_name [(column_list)] Value N[data_value]
 
5.DB like 검색시 N 추가
 
6. 파일 첨부 DEXT Upload사용(영문으로 설치)
 SET uploadform = Server.CreateObject("DEXT.FileUpload")
 uploadform.DefaultPath = Server.MapPath(ESP_BBS_DATA)
 uploadform.CodePage = 65001
 wFileSize = 0
 rAttachment = uploadform("txtAttachFile")
 
 If Len(rAttachment) > 0 Then
  wFileName =  uploadform("txtAttachFile").FileName
  wFileSize =  uploadform("txtAttachFile").FileLen
 
  response.write uploadform.DefaultPath
  rAttachment = uploadform.SaveAs(uploadform.DefaultPath & "" & wFileName , False)
  rAttachment = UploadForm.LastSavedFileName
 End If
 
7. 파일 다운로드
 
<% @LANGUAGE='VBSCRIPT!' CODEPAGE='65001' %>
<%
 'Response.Charset = "UTF-8"
 filepath = Request.QueryString("txtFilepath") '// form으로 파라메터 전달해야 함.
 filename = Request.QueryString("txtFilename")'// form으로 파라메터 전달해야 함.
 
 If filepath = "" Then
  filepath=server.MapPath( Request.QueryString("txtFilename"))
  filename = Mid(filepath, InStrRev(filepath, "")+1)
 Else
  filepath=server.MapPath(filepath)
  filename =  Request.QueryString("txtFilename")
  If filename = "" Then
   filename = Request.QueryString("txtattachment")
  End If
 End If

 filepath = filepath &"" & filename
Call FileDown
%>
 
<%
Sub FileDown
' 참고http://www.taeyo.pe.kr/Lecture/20_TIps/Danny03.asp
 
 Response.Buffer = False
 Response.ContentType = "application/x-msdownload"
 'ContentType 를 선언합니다.
 'server.HTMLEncode
 'server.URLPathEncode
 Response.AddHeader "Content-Disposition","attachment; filename=" & server.URLPathEncode(filename) '//server.URLPathEncode 사용해야만 파일명 재대로 출력
 '헤더값이 첨부파일을 선언합니다.
 Set objStream = Server.CreateObject("ADODB.Stream")
 'Stream 을 이용합니다.
 objStream.Open
 '무엇이든 Set 으로 정의했으면 열어야 겠지요^^
 objStream.Type = 1
 objStream.LoadFromFile filepath
 '절대경로 입니다.
 download = objStream.Read
 Response.BinaryWrite download
 '이게 보통 Response.Redirect 로 파일로 연결시켜주는 부분을 대신하여 사용된 것입니다.
 Set objstream = nothing
 '초기화시키구요.
End Sub
%>
 
<%
Sub DEXTDown   ' DEXT.FileDownload 는 일본어 OS에 영문으로 설치시 한글파일 찾지 못함.(DextUpload 2.0까지는 그랬음)
 'On Error Resume Next
 Response.Buffer = False
 Response.AddHeader "Content-Disposition","inline;filename=" &  server.URLPathEncode(filename)
 set objFS = Server.CreateObject("Scripting.FileSystemObject")

 set objF = objFS.GetFile(filepath)
 
 Response.AddHeader "Content-Length", objF.Size
 set objF = nothing
 set objFS = nothing
 Response.ContentType = "application/x-msdownload"
 Response.CacheControl = "public"
 Set objDownload = Server.CreateObject("DEXT.FileDownload")
 objDownload.Download filepath
 Set uploadform = Nothing
End Sub
%>
 
8. CDO Mail발송
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML
Const cdoSendUsingPort = 2 '1:로컬, 2:외부 smtp
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
Flds.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25  '포트번호
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") =  "" 'ID
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") =  "" '암호

Flds.Update
Set iMsg.Configuration = iConf
iMsg.To = "xxxx@xxx.ccx" 'ToDo: Enter a valid email address.
iMsg.From = "xxxx@xxx.ccx"  'ToDo: Enter a valid email address.
iMsg.Subject = "This is a test CDOSYS message (Sent via Port 25)"
 
'iMsg..TextBody = strHTMLMsg '// 텍스트
iMsg.HTMLBody = strHTML  '// HTML 제목 깨짐 발생..

iMsg.BodyPart.Charset="UTF-8" '/// 한글을 위해선 꼭 넣어 주어야 합니다.
iMsg.HTMLBodyPart.Charset="UTF-8" '/// 한글을 위해선 꼭 넣어 주어야 합니다.
iMsg.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
 
 
9. ASP에서 배달 확인/ 읽음 확인 구현 방법 http://tong.nate.com/windeo/5767827

http://support.microsoft.com/default.aspx?scid=kb;ko;286430

<%
Set oMsg = CreateObject("CDO.Message")
oMsg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
‘ 생성되는 메시지가 SMTP pickup 디렉터리가 아닌 SMTP 서비스로 전송되게 합니다.
oMsg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "이름"
oMsg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxx"
oMsg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "seo-msg-01"
‘ 생성되는 메시지의 서버, 사서함 및 암호
oMsg.Configuration.Fields.Update

oMsg.From = "smpark@microsoft.com"
oMsg.To = "smpark@microsoft.com"

oMsg.Subject = "읽음 확인 및 배달 확인"
oMsg.DSNOptions = 14
‘ 이 메시지의 배달 상태 확인(delivery status notification:DSN)값으로 14는 배달 성공, 실패 및 지연시
‘ 확인메시지 생성
oMsg.Fields("urn:schemas:mailheader:return-receipt-to") = smpark@microsoft.com <mailto:smpark@microsoft.com>
‘ 받는 사람이 이 메시지를 열었을 때 읽음 확인 메시지가 여기에서 지정된 사람에게 보내집니다.
oMsg.Fields("urn:schemas:mailheader:disposition-notification-to") = smpark@microsoft.com <mailto:smpark@microsoft.com>
‘ MDN(Message Disposition Notification)은 이 메시지의 확인 메시지가 리턴 될 수신자를 지정합니다.
‘ MDN에 대하여는 Request for Comments (RFC) 2298에 자세히 설명됩니다.
oMsg.TextBody = " SMTP 서버를 통한 읽음 확인 및 배달 확인 메시지"
oMsg.Fields.Update
oMsg.Send

Set oMsg = Nothing
%>