CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2010 03 21 05:25:14

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

LIVRE D'OR EN ASP.NET ET XML

Information sur la source

Note :

8,50 / 10

Catégorie :ASP.Net

Niveau :Débutant Date de création :17/09/2002 Date de mise à jour :17/09/2002 16:32:49 Vu :9 828

Auteur : phildarvador

Ecrire un message privé

Site perso

Commentaire sur cette source (6)

Ajouter un commentaire et/ou une note

Description

Les commentaires sont enregistrés dans un fichier .xml où la page.aspx va les lire.
Je me suis inspiré d'un bouquin pour le faire, et ce code permet déjà de comprendre la logique du .net

Source

'fichier suggest.xml
'-------------------------------
<Messages>
<Message>
<Nom>Philippe</Nom>
<EMail>truc@yahoo.fr</EMail>
<Contenu>Héhé =)</Contenu>
<DateMessage>17/09/2002 15:22:03</DateMessage>
</Message>
</Messages>
'fichier suggest.aspx
'-----------------------------
<%@ Page Language="vb" Debug="true" %>
<%@Import NameSpace="System.XML"%>
<script runat=server>
Class Message
Public Nom as String
Public EMail as String
Public Contenu as String
Public DateMessage as Date
End Class
Sub Page_Load(sender as Object, e as EventArgs)
if Not Page.IsPostBack Then
guestbook.DataSource = GetDataSource
guestbook.DataBind
End If
End Sub
Sub btn_Click(sender as Object, e as EventArgs)
Dim doc as New XMLDocument
doc.Load(Server.MapPath("suggest.XML"))
Dim mElement as XMLElement
mElement = doc.CreateElement("Message")
Dim mSubElement as XMLElement
mSubElement = doc.CreateElement("Nom")
mSubElement.InnerText = txtNom.Text
mElement.AppendChild(mSubElement)
mSubElement = doc.CreateElement("EMail")
mSubElement.InnerText = txtEMail.Text
mElement.AppendChild(mSubElement)
mSubElement = doc.CreateElement("Contenu")
mSubElement.InnerText = txtComm.Text
mElement.AppendChild(mSubElement)
mSubElement = doc.CreateElement("DateMessage")
mSubElement.InnerText = DateTime.Now.ToString
mElement.AppendChild(mSubElement)
doc.DocumentElement.AppendChild(mElement)
doc.Save(Server.MapPath("suggest.XML"))
guestbook.DataSource = GetDataSource
guestbook.DataBind
txtNom.Text = ""
txtEmail.Text = ""
txtComm.Text = ""
End Sub
Function GetDataSource() as ArrayList
Dim mArray as New ArrayList
Dim doc as New XMLDocument
doc.Load(Server.MapPath("suggest.XML"))
Dim mNodeChild as XMLNode
Dim mNodeList as XMLNodeList
mNodeList = doc.GetElementsByTagName("Message")
For each mNodeChild in mNodeList
Dim mMessage as New Message
mMessage.Nom = mNodeChild.ChildNodes(0).InnerText
mMessage.EMail = mNodeChild.ChildNodes(1).InnerText
mMessage.Contenu = mNodeChild.ChildNodes(2).InnerText
mMessage.DateMessage = CDate(mNodeChild.ChildNodes(3).InnerText)
mArray.Add(mMessage)
Next
GetDataSource = mArray
End Function
</script>
<html><body>
<form runat=server>
<table width="500" border="0" cellspacing="5">
<tr valign="top">
<td>Nom</td>
<td>
<asp:TextBox id="txtNom" runat=Server/>
</td>
</tr>
<tr valign="top">
<td>EMail</td>
<td>
<asp:TextBox id="txtEMail" runat=Server/>
</td>
</tr>
<tr valign="top">
<td>Commentaire</td>
<td>
<asp:TextBox id="txtComm" TextMode=Multiline Width=250 Rows=5 runat=Server/>
</td>
</tr>
<tr><td colspan=2 align=right>
<asp:Button id=btn OnClick=btn_Click Text=Enregistrer runat=Server/>
</td>
</tr>
</table>
<asp:DataList id=guestbook runat=Server Border="1">
<HeaderStyle
font-bold=True
forecolor="White"
backcolor="Black"/>
<HeaderTemplate>
Vos suggestions
</HeaderTemplate>
<ItemTemplate>
Message du <%# Container.DataItem.DateMessage.ToString%><br/>
De <a href=mailto:<%# Container.DataItem.EMail%>><%# Container.DataItem.Nom%></a>
<p><%# Container.DataItem.Contenu%></p>
</ItemTemplate>
<AlternatingItemStyle BackColor="Silver"/>
</asp:DataList>
</form>
</body></html>

'fichier suggest.xml
'-------------------------------

<Messages>
  <Message>
    <Nom>Philippe</Nom>
    <EMail>truc@yahoo.fr</EMail>
    <Contenu>Héhé =)</Contenu>
    <DateMessage>17/09/2002 15:22:03</DateMessage>
  </Message>
</Messages>

'fichier suggest.aspx
'-----------------------------

<%@ Page Language="vb" Debug="true" %>

<%@Import NameSpace="System.XML"%>
<script runat=server>
Class Message
	Public Nom as String
	Public EMail as String
	Public Contenu as String
	Public DateMessage as Date
End Class

Sub Page_Load(sender as Object, e as EventArgs)
if Not Page.IsPostBack Then
	guestbook.DataSource = GetDataSource
	guestbook.DataBind
End If
End Sub

Sub btn_Click(sender as Object, e as EventArgs)
Dim doc as New XMLDocument
doc.Load(Server.MapPath("suggest.XML"))
Dim mElement as XMLElement
mElement = doc.CreateElement("Message")

Dim mSubElement as XMLElement
mSubElement = doc.CreateElement("Nom")
mSubElement.InnerText = txtNom.Text
mElement.AppendChild(mSubElement)

mSubElement = doc.CreateElement("EMail")
mSubElement.InnerText = txtEMail.Text
mElement.AppendChild(mSubElement)

mSubElement = doc.CreateElement("Contenu")
mSubElement.InnerText = txtComm.Text
mElement.AppendChild(mSubElement)

mSubElement = doc.CreateElement("DateMessage")
mSubElement.InnerText = DateTime.Now.ToString
mElement.AppendChild(mSubElement)

doc.DocumentElement.AppendChild(mElement)
doc.Save(Server.MapPath("suggest.XML"))

guestbook.DataSource = GetDataSource
guestbook.DataBind

txtNom.Text = ""
txtEmail.Text = ""
txtComm.Text = ""

End Sub

Function GetDataSource() as ArrayList
Dim mArray as New ArrayList
Dim doc as New XMLDocument
doc.Load(Server.MapPath("suggest.XML"))

Dim mNodeChild as XMLNode
Dim mNodeList as XMLNodeList
mNodeList = doc.GetElementsByTagName("Message")
For each mNodeChild in mNodeList
	Dim mMessage as New Message
	mMessage.Nom = mNodeChild.ChildNodes(0).InnerText
	mMessage.EMail = mNodeChild.ChildNodes(1).InnerText
	mMessage.Contenu = mNodeChild.ChildNodes(2).InnerText
	mMessage.DateMessage = CDate(mNodeChild.ChildNodes(3).InnerText)
	mArray.Add(mMessage)
Next

GetDataSource = mArray
End Function

</script>

<html><body>
<form runat=server>

  <table width="500" border="0" cellspacing="5">
    <tr valign="top"> 
      <td>Nom</td>
      <td> 
        <asp:TextBox id="txtNom" runat=Server/>
      </td>
  </tr>
    <tr valign="top"> 
      <td>EMail</td>
      <td> 
        <asp:TextBox id="txtEMail" runat=Server/>
      </td>
  </tr>
    <tr valign="top"> 
      <td>Commentaire</td>
      <td> 
        <asp:TextBox id="txtComm" TextMode=Multiline Width=250 Rows=5 runat=Server/>
      </td>
  </tr>
<tr><td colspan=2 align=right>
<asp:Button id=btn OnClick=btn_Click Text=Enregistrer runat=Server/>
</td>
</tr>
</table>
<asp:DataList id=guestbook runat=Server Border="1">
<HeaderStyle
	font-bold=True
	forecolor="White"
	backcolor="Black"/>
<HeaderTemplate>
	Vos suggestions
</HeaderTemplate>
<ItemTemplate>
	Message du <%# Container.DataItem.DateMessage.ToString%><br/>
	De <a href=mailto:<%# Container.DataItem.EMail%>><%# Container.DataItem.Nom%></a>
	<p><%# Container.DataItem.Contenu%></p>
</ItemTemplate>
<AlternatingItemStyle BackColor="Silver"/>
</asp:DataList>
</form>
</body></html>

Conclusion

Bonne prog' =)

Phildarvador

Sources du même auteur

PROTEGER UNE PAGE PAR LOGIN/PASSWORD

Toutes les sources de phildarvador

Sources de la même categorie

UTILISATION DE LA MÉTHODE SORT ET SORTDIRECTION AVEC UN GRID... par jesusonline

CUSTOM DATEPIKER DÉRIVANT DE COMPOSITECONTROL par fredzool

UN MODULE POUR APPRENDRE SQL par Elmarzougui

BOUTON QUI EMPECHE LE MULTI CLIC AVANT LA FIN DU TRAITEMENT.... par fredzool

BOUTON AVEC CSS ET USERCONTROL WITH EVENT par fredzool

Toutes les sources de la catégorie ASP.Net

Commentaires et avis

Commentaire de fabrice69 le 18/09/2002 23:26:32 administrateur CS

Pas mal le systeme de sauvegarde en XML de plus c'est vraiment très rapide. reste à voir quand le fichier est conséquent.

F___

Commentaire de phildarvador le 19/09/2002 19:38:14

C'est sûr qu'avec un fichier volumineux il faut plutot envisager une liaison avec une base =)

Commentaire de Jackboy le 20/02/2003 05:33:28

Invalid byte was found at byte index 101.
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

Exception Details: System.ArgumentException: Invalid byte was found at byte index 101.

Source Error:

Line 55: Dim mArray As New ArrayList
Line 56: Dim doc As New XMLDocument
Line 57: doc.Load(Server.MapPath("suggest.XML"))
Line 58:
Line 59: Dim mNodeChild As XMLNode

Source File: d:inetpubwwwrootlivre d'orsuggest.aspx    Line: 57

Stack Trace:

[ArgumentException: Invalid byte was found at byte index 101.]
   System.Xml.XmlScanner.GetChars(Byte[] srcBuffer, Int32& srcOffset, Int32 srcLen, Char[] destBuffer, Int32 destOffset, Boolean zeroedOut) +171
   System.Xml.XmlScanner.Read() +129
   System.Xml.XmlScanner.ScanContent() +412
   System.Xml.XmlTextReader.ParseBeginTagExpandCharEntities() +266
   System.Xml.XmlTextReader.Read() +216
   System.Xml.XmlValidatingReader.ReadNoCollectTextToken() +38
   System.Xml.XmlValidatingReader.Read() +14
   System.Xml.XmlLoader.LoadChildren(XmlNode parent) +33
   System.Xml.XmlLoader.LoadElementNode() +144
   System.Xml.XmlLoader.LoadCurrentNode() +38
   System.Xml.XmlLoader.LoadCurrentNode() +192
   System.Xml.XmlLoader.LoadChildren(XmlNode parent) +47
   System.Xml.XmlLoader.LoadElementNode() +144
   System.Xml.XmlLoader.LoadCurrentNode() +38
   System.Xml.XmlLoader.LoadCurrentNode() +192
   System.Xml.XmlLoader.LoadChildren(XmlNode parent) +47
   System.Xml.XmlLoader.LoadElementNode() +144
   System.Xml.XmlLoader.LoadCurrentNode() +38
   System.Xml.XmlLoader.LoadDocSequence(XmlDocument parentDoc) +49
   System.Xml.XmlLoader.Load(XmlDocument doc, XmlReader reader, Boolean preserveWhitespace) +121
   System.Xml.XmlDocument.Load(XmlReader reader) +72
   System.Xml.XmlDocument.Load(String filename) +78
   ASP.suggest_aspx.GetDataSource() in d:inetpubwwwrootlivre d'orsuggest.aspx:57
   ASP.suggest_aspx.Page_Load(Object sender, EventArgs e) in d:inetpubwwwrootlivre d'orsuggest.aspx:14
   System.Web.UI.Control.OnLoad(EventArgs e) +67
   System.Web.UI.Control.LoadRecursive() +29
   System.Web.UI.Page.ProcessRequestMain() +724

Commentaire de phildarvador le 17/09/2003 20:10:13

Pour la configuration de IIS, cherche sur le site ou sur google...

Commentaire de dotnet11 le 21/03/2006 16:54:44

maous

Commentaire de Josh08 le 10/02/2008 20:50:54 9/10

Hello.
Tout d'abord, merci pour ce code qui marche très bien.

Mais j'ai un petit soucis (surement un truc débile...) :
comment faire pour récupérer à l'affichage les retours à la ligne enregistrer dans le fichier XML ? En effet, les retours à la ligne "tapés" dans la textBox sont bien enregistrés dans le XML mais à l'affichage, ils sont ignorés.

Merci.

Ajouter un commentaire

Nos sponsors

Derniers Blogs

NOUVEAU SYSTèME D'AIDE POUR VISUAL STUDIO 2010 : POUR CEUX QUI N'APPRéCIENT PAS TROP L'ABSENCE D'INDEX... par coq

L'INTERFACE NATURELLE DE WINDOWS PHONE 7 SERIES par odewit

COMMENT MAPPER UNE VUE SQL SUR UNE COLLECTION DE COMPLEX TYPE? par Matthieu MEZIL

SQL SERVER : QUERY NOTIFICATION OU COMMENT êTRE NOTIFIé DE MODIFICATIONS DE DONNéES CôTé APPLICATION (SQLDEPENDENCY) par christian

[WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL? par JeremyJeanson

Forum

UTILISATEUR par zaydounhlel

RE : EDITCOMMANDCOLUMN ET TEXTBOX par ggtry

RE : VIRUS par ghuysmans99

SCRIPT POUR UN BOUTON SVP par biogeol

RE : ENREGISTER UN FICHIER DANS UNE BASE DE DONNéE par gharsallah

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Logiciels

Academy System (10.9.4.0)
ACADEMY SYSTEM (10.9.4.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System
Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)
XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)

Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise...

Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate
Xilisoft DVD Ripper Ultimate (5.0.64.0304)
XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)

Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ...

Cliquez pour télécharger Xilisoft DVD Ripper Ultimate
Axalot, logiciel de sauvegarde de données en ligne (1.10.108.1)
AXALOT, LOGICIEL DE SAUVEGARDE DE DONNéES EN LIGNE (1.10.108.1)

Perdre tout le contenu de votre disque dur, vous imaginez ? Vos photos, vos musiques, votre compt...

Cliquez pour télécharger Axalot, logiciel de sauvegarde de données en ligne
Rigs of Rods (63.3)
RIGS OF RODS (63.3)

c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo...

Cliquez pour télécharger Rigs of Rods