save.asp <% ' Constants file included above. ' 파일 이 존재 하면 Dim 삭제 objFSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(Server.MapPath("db_xml.xml")) Then objFSO.DeleteFile Server.MapPath("db_xml.xml") End IF Set objFSO = 변수 설명 Dim cnnXML ' ADO connection Dim rstXML ' ADO recordset'데이터 연결 대상 세트 만 들 기 cnnXML = Server.CreateObject("ADODB.Connection") ' access 데이터 베 이 스 를 연결 하 는 예 입 니 다.'cnnXML.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _ ' & Server.MapPath("db_scratch.mdb") & ";" ' 다음은 Sqlserver 를 예 로 들 어 cnnXML.Open "Provider=SQLOLEDB;Data Source=10.2.1.214;" _ & "Initial Catalog=samples;User Id=samples;Password=password;" _ & "Connect Timeout=15;Network Library=dbmssocn;" Set rstXML = Server.CreateObject("ADODB.Recordset") Set rstXML = cnnXML.Execute("SELECT * FROM scratch ORDER BY id;") Response.Write "
Saving data as XML...
" & vbCrLf ' xml 형식 으로 저장 합 니 다.rstXML.Save Server.MapPath("db_xml.xml"), adPersistXML ' 대상 을 닫 고 자원 을 방출 합 니 다 rstXML.Close Set rstXML = Nothing cnnXML.Close Set cnnXML = Nothing Response.Write "
XML file written...
" & vbCrLf Response.Write "
Click here to view the file.
" & vbCrLf %>
