Generation de xml via asp

Soyez le premier à donner votre avis sur cette source.

Vue 6 768 fois - Téléchargée 359 fois

Description

reformatage de données d'une base en fichier XML

Source / Exemple :


<%@ Language=VBScript %>
<%Option explicit
dim sql, rs, newFileObject, newFile, objDataConn
set objDataConn = CreateObject("ADODB.Connection")
sql = "SELECT * FROM T_USER"
set rs = CreateObject("ADODB.recordset")
rs.Open sql, objDataConn

set newFileObject = Server.CreateObject("Scripting.FileSystemObject")
set newFile = newFileObject.CreateTextFile("C:\temp\" & "testxml.xml")
Do While Not rs.EOF
	newFile.Writeline("<USER>") 
	newFile.Writeline("<LOGIN>" & trim (rs.Fields("USER_LOGIN")) & "</LOGIN>")
	newFile.Writeline("<PASSWORD>" & trim (rs.Fields("USER_PASSWORD")) & "</PASSWORD>")
	newFile.Writeline("<FIRSTNAME>" & trim (rs.Fields("USER_FIRSTNAME")) & "</FIRSTNAME>")
	newFile.Writeline("<LASTNAME>" & trim (rs.Fields("USER_LASTNAME")) & "</LASTNAME>")
	newFile.Writeline("</USER>")
	rs.MoveNext
loop

rs.Close
Set rs = Nothing
newFile.Close
if newFileObject.FileExists("C:\temp\testxml.xml") then 
	Response.Write("création ok!") 
end if
set newFile = Nothing
set newFileObject = Nothing
objDataConn.Close
set objDataConn = Nothing

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de jaszbere

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.