ACTIVE SERVER PAGE

ACTIVE SERVER PAGE > UTF-8 프로그래밍 방법 (한글깨짐 방지를 위한 방법들)

등록일 : 2017-07-04 18:18 조회수 : 36,460

1. 모든 ASP 코드 페이지 첫줄에 다음과 같은 코드를 추가합니다


		@CODEPAGE="65001" language="vbscript" 
		session.CodePage = "65001" 
		Response.CharSet = "utf-8" 
		Response.buffer=true 
		Response.Expires = 0

2. Meta 테그를 다음과 같이 추가 합니다.

아리러니하게도 XHTML 과 HTML5 에서의 인코딩 설정은 다르다.

XHTML의 경우에는 아래 코드를 <head> 태그 안에 삽입한다.

<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">

HTML5의 경우 아래 코드를 <head> 태그 안에 삽입한다.
<meta charset="utf-8">

그리고 주의해야 할 부분이 메타테그 내의 캐릭터셋이다.

만약 타이틀이 한글이라면 브라우저에 따라 캐릭터셋을 선언하기 전부터 한글 인코딩이 결정는 경우가 있다
(이후 캐릭터 셋을 정의한다고 해도 소용없음)

만약 타이틀이 한글일 경우는 순서를 캐릭터셋 선언 이후로 해줘야 한다.

<head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>가나다</title>

-- 주의 : UTF-8 과 utf-8 은 서로 다른 타입의 인코딩을 제공한다. 한가지로 통일해서 사용하자.

3. Response.ChaRset = "utf-8"
ASP의 response.charset을 이용해서 문자 코드 세트명을 지정하는 부분 입니다.
설정시 <html> 태그 보다 앞에 선언 되어야 HTML 이 출력되면서 해당 속성을 인식하게 됩니다.

4. 에디트플러스나 울트라 에디터에서 수정후 저장할 때 반드시 Encoding 방식을 UTF-8 로 저장합니다

5.DB Insert/Update 시 숫자 타입을 제외한 모든 대상에 N을 추가 합니다
Insert 테이블이름 (칼럼a, 칼럼b) value (N'입력a', N'입력b')
update 테이블이를 set 칼럼a = N'입력a' where 고유칼럼 = '번호'

6.DB like 검색시 N 추가

7. 파일 첨부 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

9. 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

10. 한글 링크가 포함되어 있는 경우 Target 페이지에서 한글이 깨지는 현상 해결 방법
Server 객체의 URLPathEncode 함수를 사용해서 받으면 된다.

Server.UrlEncode() 를 사용해도 됩니다.

fname = request("fname")

<a href="a.asp?fname=<%=Server.URLPathEncode(fname)%>"> 링크가기 </a>

11. 업로드 컴포넌트 UTF-8 지원여부 확인

SiteGalaxy(사이트 갤럭시) 및 ABC 업로드 : utf-8을 지원하지 않음
ABC 업로드 : 4.1 부터 지원
덱스트업로드는 3.x 이후 지원

				
		set UploadForm				= Server.CreateObject("ABCUpload4.XForm") 
		UploadForm.CodePage		= 65001
		UploadForm.Overwrite		= True														'덮어쓰기 허용
		UploadForm.AbsolutePath		= True
		UploadForm.MaxUploadSize		= 1024*1024*20												'파일용량 (10M)


		If UploadForm("board_fname1") <> "" Then
			FileCnt		= UploadForm("board_fname1").count-1
		Else
			FileCnt		= 0
		End If

		Dim UpFileName()
		Redim UpFileName(FileCnt) 


		'파일 업로드 처리

		For i = 0 To FileCnt
			Set theField =  UploadForm(Trim("board_fname1"))(i+1)
		Next

12. 파일다운로드 - 한글파일명 깨지는 현상
아래소스의 핵심은 Server.URLPathEncode 객체를 이용하는 겁니다.

<a href="a.asp?fname=<%=Server.URLPathEncode(fname)%>"> 다운로드 </a>

		<%@ CODEPAGE=65001%>
		<%session.CodePage = "65001" %>
		<%response.charset = "utf-8"%>
		<%
		Response.buffer=true 
		Response.Expires = 0 

		'Response.ContentType = "application/octet-stream" 
		'Response.ContentType = "application/unknown"
		Response.ContentType="application/x-gzip"
		fname		= request("fname")
		fpath		= request("fpath")

		Response.AddHeader "Content-Disposition","attachment; filename=" & Server.URLPathEncode(fname)

		UP_FILE_DIR = "/file_data/"&FPATH&FNAME
		UP_FILE_DIR = Server.MapPath(UP_FILE_DIR)  


		Set objStream = Server.CreateObject("ADODB.Stream")
		objStream.Open
		objStream.Type = 1
		 
		objStream.LoadFromFile UP_FILE_DIR
			 
		strFile = objStream.Read
		 
		Response.BinaryWrite strFile
		Set objStream = Nothing
		response.End
		%>

13. Javascript 를 이용하여 한글을 링크 연결할경우는 escape() 함수를 이용하여 링크를 걸어주어야 합니다.

document.location.href = "movepage.aspx?name=" + escape("배철수");

목록으로