[classic asp] 엑셀(csv) 로 저장하기

<% @CodePage = 65001 %>

 

Response.BinaryWrite(ChrB(239) & ChrB(187) & ChrB(191))

 

Session.CodePage = 65001

Response.ChaRset = "utf-8"

 

'Session.CodePage = 949 '한글 깨짐 방지

'Response.ChaRset = "euc-kr" '한글 깨짐 방지  

 

Response.ContentType = "application/vnd.ms-excel;charset=utf-8;"

Response.AddHeader "Content-Disposition","attachment;filename=" & Replace(Date,"-","") & ".csv" 

 

Response.Write "번호,이름,전화" & Chr(10)

Response.Write Chr(34) & "1" & Chr(34) & ","

Response.Write Chr(34) & "홍길동" & Chr(34) & ","

Response.Write Chr(34) & "010-1111-2222" & Chr(34)

Response.Write Chr(34) & Replace(memo,"""","""""") & Chr(34)

Response.Write Chr(34) & "=" & Chr(34) & Chr(34) & "0123456" & Chr(34) & Chr(34) & Chr(34) '텍스트 속성으로 저장