asp 한글 깨졌을때 코드추가

**** euc-kr ****


<% @Language="VBScript" CODEPAGE="949" %>
<%
Response.CharSet="euc-kr"
Session.codepage="949"
Response.codepage="949"
Response.ContentType="text/html;charset=euc-kr"
%>

<% @Language="VBScript" CODEPAGE="949" %>

Response.CharSet="euc-kr"

Session.codepage="949"

Response.codepage="949"

Response.ContentType="text/html;charset=euc-kr"

**** utf-8 ****


<%@Language="VBScript" CODEPAGE="65001" %>
<%
Response.CharSet="utf-8"
Session.codepage="65001"
Response.codepage="65001"
Response.ContentType="text/html;charset=utf-8"
%>

<%@Language="VBScript" CODEPAGE="65001" %>

Response.CharSet="utf-8"

Session.codepage="65001"

Response.codepage="65001"

Response.ContentType="text/html;charset=utf-8"

**** utf-8 csv 로 엑셀에 저장 시****


엑셀 시작부분에 아래 문장을 넣으면 글자가 깨지지 않음 
Response.BinaryWrite(ChrB(239) & ChrB(187) & ChrB(191))

'엑셀로 저장
Response.Buffer = True
Response.ContentType = "appllication/vnd.ms-excel" '// 엑셀로 지정
Response.CacheControl = "public"
Response.AddHeader "Content-Disposition","attachment; filename=Mobile_Seg_list.csv"

엑셀 시작부분에 아래 문장을 넣으면 글자가 깨지지 않음

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

'엑셀로 저장

Response.Buffer = True

Response.ContentType = "appllication/vnd.ms-excel" '// 엑셀로 지정

Response.CacheControl = "public"

Response.AddHeader "Content-Disposition","attachment; filename=Mobile_Seg_list.csv"

UTF-8 기타 처리 참고
http://unions5.tistory.com/38