ADODB.Stream À» ÀÌ¿ëÇؼ utf-8ÆÄÀÏ¿¡ ÅؽºÆ®¸¦ Ãß°¡ ÇÒ·Á°í Çϴµ¥ ´ÙÀ½°ú °°ÀÌ ¿¡·¯°¡ ³³´Ï´Ù.
ADODB.Stream ¿À·ù '800a0bbc'
ÆÄÀÏ¿¡ ¾²Áö ¸øÇß½À´Ï´Ù.
/spam/filter_save_2.asp, ÁÙ 49
±¸Á¶´Â 1¹ø ¼¹ö¿¡¼ 2¹ø¼¹öÀÇ ÆäÀÌÁö¸¦ È£ÃâÇؼ 2¹ø¼¹ö¿¡ÀÖ´Â .datÆÄÀÏ(utf-8)¿¡ ÅؽºÆ®¸¦ Ãß°¡Çϴµ¥¿ä
À§¿¡¿Í °°Àº ¿¡·¯°¡ ³ª³×¿ä ¤Ð
µ¥ÀÌÅÍ ÀÔ·ÂÇÏ´Â ºÎºÐÀº
set objStream = server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 2
objStream.Charset = "utf-8"
do while not Rs.EOF
for i=0 to Rs.fields.count - 1
objstream.WriteText Rs(i) & vbcrlf
next
Rs.movenext
loop
objStream.SaveToFile filter_path, 2
objstream.Close
set objstream =nothing
Rs.close
set Rs = nothing
¼Ò½ºÀÇ ÀϺκÐÀε¥ ¿¡·¯°¡ ³ª´Â ºÎºÐÀº
objStream.SaveToFile filter_path, 2 ¿©±â¼ ¿¡·¯°¡ ³ª³×¿ä ¤Ð
¿øÀÎÀ» ¸ð¸£°Ú¾î¿ä;;
¾î¶»°Ô ó¸® ÇؾßÇϳª¿ä ¤Ð