Save.asp
<!-#includefile = "adovbs.inc"->
<%
'constantsfileincludedeDabove.
'파일이 존재하면 삭제하십시오
Dimobjfso
setobjfso = server.createobject ( "scripting.filesystemobject")
ifobjfso.fileExists (server.mappath ( "db_xml.xml"))
objfso.deletefileserver.mappath ( "db_xml.xml")
endif
setobjfso = 아무것도
'변수 선언
dimcnnxml'adoconnection
dimrstxml'adorecordset
'데이터 연결 객체를 만듭니다
setcnnxml = server.createobject ( "adodb.connection")
'이것은 액세스 데이터베이스에 연결하는 예입니다.
'cnnxml.open "공급자 = microsoft.jet.oledb.4.0; dataSource ="_
'& server.mappath ( "db_scratch.mdb") & ";"
'다음은 다음을 설명해야 할 예입니다.
cnnxml.open "제공자 = sqloledb; dataSource = 10.2.1.214;"_
& "InitialCatalog = 샘플; userId = 샘플; 비밀번호 = 비밀번호;"_
& "ConnectTimeout = 15; NetworkLibrary = DBMSSOCN;"
setrstxml = server.createobject ( "adodb.recordset")
setrstxml = cnnxml.execute ( "select*fromscratchorderByid;")
response.write "<p> savingdataasxml ... </p>"& vbcrlf
'XML 형식으로 저장하십시오.
rstxml.saveserver.mappath ( "db_xml.xml"), adpersistxml
'개체를 닫고 리소스를 해제하십시오
rstxml.close
setrstxml = 아무것도
cnnxml.close
setcnnxml = 아무것도 없습니다
응답. "<p> xmlfilewriten ... </p>"& vbcrlf
response.write "<p> 클릭 <ahref =" "db_xml.xml" "> here </a> toviewthefile. </p>"& vbcrlf
%>