Generation de xml via asp

Soyez le premier à donner votre avis sur cette source.

Vue 6 800 fois - Téléchargée 361 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

Commentaire

jaszbere
Messages postés
9
Date d'inscription
samedi 12 avril 2003
Statut
Membre
Dernière intervention
26 avril 2003
-
Salut intoX!

Merci pour ce code merveilleur!
Je l'ai modifie pour que ca marche sur ma machine, mais il y a encore des problemes. je veux que chaque fois que j'appele mon page asp pour different clients le code genere un fichier .xml unique qui correspond a son username!

voici mon code:

<html>

<% @Language = "VBScript" %>

<%
response.ContentType = "text/xml"
set conn=Server.CreateObject("ADODB.Connection")
conn.provider="Microsoft.Jet.OLEDB.4.0;"
conn.open server.mappath("sample.mdb")
sql="select * from Sample"
set rs=Conn.Execute(sql)
'rs.MoveFirst()

set newFileObject = Server.CreateObject("Scripting.FileSystemObject")
set newFile = newFileObject.CreateTextFile("C:Inetpubwwwroot" & "test2.xml")
newFile.Writeline("<guestbook>")
Do While Not rs.EOF
newFile.Writeline("<client>")
newFile.Writeline(" " & rs("ID") & " ")
newFile.Writeline("<Name>" & rs("Name") & "</Name>")
newFile.Writeline("<City>" & rs("City") & "</City>")
newFile.Writeline("<State>" & rs("State") & "</State>")
newFile.Writeline("<Country>" & rs("Country") & "</Country>")
newFile.Writeline("</client>")
rs.MoveNext()
loop
rs.close()
conn.close()
newFile.Writeline("</guestbook>")
newFile.Close
if newFileObject.FileExists("C:Inetpubwwwroot estxml.xml") then
Response.Write("création ok!")
end if
set newFile = Nothing
set newFileObject = Nothing
set conn = Nothing
%>

</html>

Si tu veux m'aide ecrire moi s'il tu plait!
Merci beaucoup!

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.