ACTIVE SERVER PAGE

FileSystemObject 객체는 파일을 생성하여 저장할 경우 Unicode 형식으로 저장되는 경우를 볼 수 있습니다.

이때 UTF-8 , EUR-KR 형식으로 저장하기 위해서는 ADODB.Stream 객체를 사용하면 됩니다.
 

        f_name = "/file_data/naver_ep/epall.txt"
	f_name = Server.MapPath(f_name)

	dim stm2
	Set stm2 = server.CreateObject("ADODB.Stream")
	stm2.Open 
	stm2.Type = 2				'adTypeBinary (1), TEXT(2)
	stm2.Charset = "euc-kr"		'또는 UTF-8

	stm2.WriteText("하하하")&Chr(13)&Chr(10)
	stm2.WriteText("하하하")&Chr(13)&Chr(10)
	stm2.WriteText("하하하")&Chr(13)&Chr(10)
	stm2.WriteText("하하하")&Chr(13)&Chr(10)
	stm2.WriteText("하하하")&Chr(13)&Chr(10)
	stm2.WriteText("하하하")&Chr(13)&Chr(10)
	stm2.WriteText("하하하")&Chr(13)&Chr(10)

	call stm2.SaveToFile(f_name , 2)

위와 같은 형식으로 생성할 수 있습니다.