[ASP] XML UTF-8 네트워크 디렉토리 파일 생성

xml을 표현해주는 asp파일을 사용할경우 DB연결할 필요 없이..

DB내용이 변경될때마다 자동으로 xml파일을 생성해주는건 만들어져있었다..

 

근데이게 FSO를 사용하다보니 utf-8형식으로 저장이 안되서 바꿨다..

 

utf-8형식으로 만들어진 xml로 보여주는 asp파일을 만들어두고..

 

해당 asp파일이 표현해주는 DB가 변동이 있을때마다..

 

해당 asp파일을 읽어서 XML로 저장해준다..

call CreateXMLFile(asp파일경로,생성할파일명.xml,케릭터셋지정)

 

Function CreateXMLFile(ByVal FilePath, ByVal XMLFileName, ByVal CharSet)
Dim objFso
Dim BinaryStream
Dim Binary
Dim Userfilename
Set objWinHttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1") 
objWinHttp.Open "GET", FilePath, false
objWinHttp.Send() 
Binary = objWinHttp.ResponseBody
set objWinHttp = nothing
Const adTypeText = 2
Const adTypeBinary = 1
Set BinaryStream = CreateObject("ADODB.Stream")
'//Specify stream type - we want To save text/string data.
BinaryStream.Type = adTypeBinary
'//Open the stream And write text/string data To the object
BinaryStream.Open
BinaryStream.Write Binary
'//Change stream type To binary
BinaryStream.Position = 0
BinaryStream.Type = adTypeText
'//Specify charset For the source text (unicode) data.
If Len(CharSet) > 0 Then
 BinaryStream.CharSet = CharSet
Else
 BinaryStream.CharSet = "us-ascii"
End If
set objFso=server.CreateObject("Scripting.Filesystemobject")
If Not objFso.DriveExists ("V") Then
Set WshNetwork = server.CreateObject("WScript.Network")
'WshNetwork.RemoveNetworkDrive "V:"
 WshNetwork.MapNetworkDrive "V:", 네트워크디렉토리경로, "false", 네트워크디렉토리계정, 네트워크디렉토리비번
Set WshNetwork = Nothing
set objFso=Nothing
End If
Userfilename = "v:\xml\"&XMLFileName
BinaryStream.SaveToFile UserfileName, 2 
Set BinaryStream = Nothing 
End Function