ASPX – programmer web.sitemap et construire son propre menu

laurent - responsable Technique 19 novembre 2016

Bonjour,

Après des heures de recherche afin de pouvoir utiliser web.sitemap en mode programmé dans ma master page, je vous livre ici la méthode la plus simple afin de parser le fichier xml :

Tout d’abord le fichier XML web.sitemap

<?xml version="1.0" encoding="UTF-8"?>
<siteMap xmlns="http://schemas.microsoft.com/AspNet/SiteMap-File-1.0">
  <siteMapNode title="Accueil">
    <siteMapNode title="Nos métiers">
      <siteMapNode url="location-camion-paca.aspx" title="SN SMTM LOCATION" />
      <siteMapNode url="transport-marchandise-paca.aspx" title="SN SMTM TRANSPORT" />
      <siteMapNode url="transport-express-paca.aspx" title="SN SMTM EXPRESS" />
      <siteMapNode url="prestataire-transport-frigorifique-paca.aspx" title="SN SMTM FROID" />
    </siteMapNode>
    <siteMapNode title="SN SMTM">
      <siteMapNode url="implantations-snsmtm.aspx" title="LES IMPLANTATIONS SN SMTM" />
      <siteMapNode url="flotte-reference-transport.aspx" title="Notre Flotte, nos Références" />
      <siteMapNode url="transport-paca-objectif-co2.aspx" title="Objectif Co²" />
    </siteMapNode>
    <siteMapNode url="cotation-transport.aspx" title="DEMANDE DE COTATION" />
    <siteMapNode url="#footer" title="NOUS CONTACTER" />
  </siteMapNode>
</siteMap>

<?xml version="1.0" encoding="UTF-8"?>

</siteMapNode>

</siteMapNode>

</siteMapNode>

</siteMap>

Dans mon cas je ne devais utiliser que url et title, on peut rajouter autant d’infos que vous désirez (description, …)
A savoir, une ligne de titre, ex :

<siteMapNode title="Nos métiers">

1	<siteMapNode title="Nos métiers">

ne doit pas contenir « # » en url par exemple, car si ce même lien se reproduit cela plante, effectivement impossible d’avoir deux liens identiques dans un même fichier de liens.

La partie cs intégrée à ma master page :

protected StringBuilder sb = new StringBuilder();        

protected void Page_Load(object sender, EventArgs e)
{

        XmlDocument doc = new XmlDocument();
        doc.Load(Server.MapPath("~/web.sitemap"));

        foreach (XmlNode itemNode in doc.DocumentElement.ChildNodes)
        {
            XmlElement itemElement = (XmlElement)itemNode;
            // Premier node = Accueil > on zappe dans mon cas
            //sb.AppendFormat("<li>[Item]: {0} | {1}</li>", itemElement.Attributes["title"].Value, itemElement.Attributes["url"].Value);
            if (itemNode.ChildNodes.Count > 0)
            {
                foreach (XmlNode childNode in itemNode.ChildNodes)
                {
                    XmlNode node = childNode.Attributes["url"];
                    if (node != null)
                        sb.AppendFormat("<li>[Item]: {0} | {1}</li>", childNode.Attributes["title"].Value, childNode.Attributes["url"].Value);
                    else
                    {
                        sb.AppendFormat("<li>[Item]: {0} </li>", childNode.Attributes["title"].Value);
                        foreach (XmlNode childNode2 in childNode.ChildNodes)
                        {
                            sb.AppendFormat("<li>[SubItem]: {0} | {1}</li>", childNode2.Attributes["title"].Value, childNode2.Attributes["url"].Value);
                        }
                    }
                }
            }
        }
}

protected StringBuilder sb = new StringBuilder();

protected void Page_Load(object sender, EventArgs e)

{

XmlDocument doc = new XmlDocument();

doc.Load(Server.MapPath("~/web.sitemap"));

foreach (XmlNode itemNode in doc.DocumentElement.ChildNodes)

{

XmlElement itemElement = (XmlElement)itemNode;

// Premier node = Accueil > on zappe dans mon cas

//sb.AppendFormat("<li>[Item]: {0} | {1}</li>", itemElement.Attributes["title"].Value, itemElement.Attributes["url"].Value);

if (itemNode.ChildNodes.Count > 0)

{

foreach (XmlNode childNode in itemNode.ChildNodes)

{

XmlNode node = childNode.Attributes["url"];

if (node != null)

sb.AppendFormat("<li>[Item]: {0} | {1}</li>", childNode.Attributes["title"].Value, childNode.Attributes["url"].Value);

else

{

sb.AppendFormat("<li>[Item]: {0} </li>", childNode.Attributes["title"].Value);

foreach (XmlNode childNode2 in childNode.ChildNodes)

{

sb.AppendFormat("<li>[SubItem]: {0} | {1}</li>", childNode2.Attributes["title"].Value, childNode2.Attributes["url"].Value);

}

Il faut ajouter l’ assembly :

System.Xml

Méthode : je lis le premier node parent, et je regarde si il existe des nodes enfants, si oui alors j’affiche tous les enfants.

A savoir, pour checker si une valeur existe utiliser cette méthode :

XmlNode node = childNode.Attributes["valeur de champ"];
if (node != null){ ... }

1 2	XmlNode node = childNode.Attributes["valeur de champ"]; if (node != null){ ... }

Prochain cours, génération de web.sitemap et fichier d’indexation google …

MailMessage avec localhost

laurent - responsable Technique 13 avril 201630 novembre 2017

Méthode très intéressante si jamais le serveur de relais n’est pas joignable. De base tous nos serveurs smtp des machines sont réglés pour relayer les emails via notre serveur de relais, et pour IIS l’envoi de message est donc configuré via localhost.

Le but du jeu est donc de stocker dans un dossier de transit nos emails à envoyer. Si le serveur de relais à un souci, les emails restent stockés et partiront dès que ce dernier sera de nouveau joignable. Voilà, plus possible de perdre l’envoi d’un email dans vos codes !

MailMessage message = new MailMessage();
message.From = new MailAddress("vador@totolapin.com");
message.To.Add("ewok@totolapin.com");
message.Subject = "Test localhost";
message.Body = "<p>Coucou de localhost !</p>";
message.BodyEncoding = System.Text.Encoding.ASCII;
message.IsBodyHtml = true;
message.Priority = MailPriority.Normal;

var server = new SmtpClient("localhost");
server.PickupDirectoryLocation = "C:\\inetpub\\mailroot\\Pickup";
server.Send(message);

MailMessage message = new MailMessage();

message.From = new MailAddress("vador@totolapin.com");

message.To.Add("ewok@totolapin.com");

message.Subject = "Test localhost";

message.Body = "<p>Coucou de localhost !</p>";

message.BodyEncoding = System.Text.Encoding.ASCII;

message.IsBodyHtml = true;

message.Priority = MailPriority.Normal;

var server = new SmtpClient("localhost");

server.PickupDirectoryLocation = "C:\\inetpub\\mailroot\\Pickup";

server.Send(message);

Convertir decimal en entier pour les paiements sécurisés

laurent - responsable Technique 13 avril 201613 avril 2016

Pour tous les paiements sécurisés on envoie les valeurs sous forme d’entier en centimes , ex :

88.59 € = 8859

1	88.59 € = 8859

Voici un petit code qui arrondit le montant à deux chiffres après la virgule et vous rend le résultat sous forme d’entier.

public static int convertirStrInt(string strTxt)
    {
        decimal decNb = 0;
        int intNb = 0;
        decimal.TryParse(strTxt, out decNb);  // conversion en décimal
        decNb = Math.Round(decNb, 2); // on arrondit à deux chiffres après la virgule
        intNb = (int)(decNb * 100); // on multiplie par 100 pour avoir une valeur sans virgule
        return intNb;
    }

public static int convertirStrInt(string strTxt)

{

decimal decNb = 0;

int intNb = 0;

decimal.TryParse(strTxt, out decNb); // conversion en décimal

decNb = Math.Round(decNb, 2); // on arrondit à deux chiffres après la virgule

intNb = (int)(decNb * 100); // on multiplie par 100 pour avoir une valeur sans virgule

return intNb;

}

IIS Rewrite : SEO rewrite language

Guillaume - ingénieur systèmes 12 avril 2016

Voici comment interpréter une url et la transformer

<rule name="Rewrite lang fr" >
    <match url="^(en|it)/([^/]+)/?$" />
    <conditions logicalGrouping="MatchAll" trackAllCaptures="false">
        <add input="{REQUEST_FILENAME}" matchType="IsFile" negate="true" />
        <add input="{REQUEST_FILENAME}" matchType="IsDirectory" negate="true" />
    </conditions>
    <action type="Rewrite" url="/{R:2}?lang={R:1}" appendQueryString="true" />
</rule>

</conditions>

</rule>

IIS Rewrite : Redirect 301 au lieu d’erreur 404

Guillaume - ingénieur systèmes 30 mars 201630 mars 2016

Cette règle est à placer après les rewriting. Elle vérifie si un répertoire ou un fichier existe et redirige le cas échéant.

<configuration>
  <system.webServer>
    <rewrite>
      <rules>
        <rule name="Redirect file not exist" stopProcessing="true">
          <match url="(.*)$" ignoreCase="true" />
          <conditions logicalGrouping="MatchAll">
	    <add input="{REQUEST_FILENAME}" matchType="IsFile" negate="true" />
	    <add input="{REQUEST_FILENAME}" matchType="IsDirectory" negate="true" />
          </conditions>
          <action type="Redirect" url="http://www.monsite.fr/"  redirectType="Permanent" />
        </rule>
      </rules>
    </rewrite>
  </system.webServer>
</configuration>

<system.webServer>

<rules>

</conditions>

</rule>

</rules>

</rewrite>

</system.webServer>

</configuration>

Smart Upload, autoriser le téléchargement de gros fichiers

laurent - responsable Technique 11 février 2015 2 Comments

La valeur est définie par AspMaxRequestEntityAllowed dans la metabase de IIS, elle est de base fixée à 200 000.

Voici le type d’erreurs rencontrées :

– asp 0104 : « opération non autorisé ».
– Request object error ‘ASP 0104 : 80004005’
Operation not Allowed
/votre fichier, line de déclaration aspSmartUpload

Voici la procédure à suivre :

– Stopper IIS 6 ! sinon aucune action possible sur la metabase, au pire re démarrer le serveur si vous n’arrivez pas à enregistrer le fichier.
– Voire mieux : clic droit sur « Gestionnaire des Services Internet (IIS) » et cochez l’activation de la modification directe de la metabase le temps de faire votre modif…
– Ouvrir le fichier metabase.xml placé dans c:\windows\system32\inetsrv
– Trouver la ligne AspMaxRequestEntityAllowed et changer la valeur par « 1073741824 » (pour 1Go).

Have a good Upload …

PS : Big dédicasse à nos amis Belges pour leurs investigations, merci Mike.

Créer une table ACCESS vide

laurent - responsable Technique 11 février 2015 Comments

Voilà un petit code fort pratique en ASP pour copier une table vide avec le nom de votre choix (nom_table). La table VIDE correspond à la table que vous souhaitez copier, bien entendu vous aurez pris soin de la créer avec les champs de votre choix sans données.

<%@ Language=VBScript %> 
<% 

' === création table M si inexistante =============================================

Set ConBDD     = CreateObject("ADODB.Connection")

sDB                  = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\www\chemin_physique_vers_votre_base" 

conBDD.Open sDB
dim rs2:set rs2=createobject("ADODB.recordset")

nom_table = DatePart("m",Date()) &"_"& DatePart("yyyy",Date())
flag_er=True

rs2.open conBDD.OpenSchema (20)
do while not rs2.eof
            if rs2(3)= "TABLE" then
                        if rs2(2)= nom_table then
                        flag_er=False:   exit do
                        end if
            end if 
rs2.movenext
loop
rs2.close

if flag_er then    
            conBDD.execute "SELECT * INTO " & nom_table & " from VIDE;"           ' table vide avec les champs prédéfinis
            rs2.open "select * from STATS order by id_stat", conBDD,1,2
            rs2.addnew
            rs2("stat_table") = nom_table
            rs2.update
            rs2.close
end if

' fermeture connexion
set rs2=nothing: set rs=nothing
conBDD.Close


'---- Détermine si l'année est bisextiles ou pas ----
Function BisexYear(WhichYear)
    If WhichYear/4=Int(WhichYear/4) Then
        BisexYear=True
    Else
        BisexYear=False
    End If
End Function

'---- Le nombre de jours dans un mois ----
Function xDaysIn(WhichDate)
    Dim xdays
    xDays=Array("","31","","31","30","31","30","31","31","30","31","30","31")
    If Month(WhichDate)=2 Then
        If BisexYear(Year(WhichDate))=True Then
            xDaysIn=29
        Else
            xDaysIn=28
        End If      
    Else
        xDaysIn=xDays(Month(WhichDate))
    End If
End Function   

%>

<%@ Language=VBScript %>

' === création table M si inexistante =============================================

Set ConBDD = CreateObject("ADODB.Connection")

sDB = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\www\chemin_physique_vers_votre_base"

conBDD.Open sDB

dim rs2:set rs2=createobject("ADODB.recordset")

nom_table = DatePart("m",Date()) &"_"& DatePart("yyyy",Date())

flag_er=True

rs2.open conBDD.OpenSchema (20)

do while not rs2.eof

if rs2(3)= "TABLE" then

if rs2(2)= nom_table then

flag_er=False: exit do

end if

rs2.movenext

loop

rs2.close

if flag_er then

conBDD.execute "SELECT * INTO " & nom_table & " from VIDE;" ' table vide avec les champs prédéfinis

rs2.open "select * from STATS order by id_stat", conBDD,1,2

rs2.addnew

rs2("stat_table") = nom_table

rs2.update

rs2.close

end if

' fermeture connexion

set rs2=nothing: set rs=nothing

conBDD.Close

'---- Détermine si l'année est bisextiles ou pas ----

Function BisexYear(WhichYear)

If WhichYear/4=Int(WhichYear/4) Then

BisexYear=True

Else

BisexYear=False

End If

End Function

'---- Le nombre de jours dans un mois ----

Function xDaysIn(WhichDate)

Dim xdays

xDays=Array("","31","","31","30","31","30","31","31","30","31","30","31")

If Month(WhichDate)=2 Then

If BisexYear(Year(WhichDate))=True Then

xDaysIn=29

Else

xDaysIn=28

End If

Else

xDaysIn=xDays(Month(WhichDate))

End If

End Function

PS : Vous noterez deux petites fonctions capables de déterminer si l’année est bissextile et le nombre de jours dans un mois.

Smartp Upload, exemple d’utilisation

laurent - responsable Technique 11 février 2015 Comments

Un petit exemple simple d’utilisation de smart upload :

Le formulaire :

<form method="post" action="tapagedetraitement.asp" ENCTYPE="multipart/form-data" id=form1 name=form1>
<table width="100%" border=0>
<tr><td align=center><input type="file" name="fichier" class=form></td></tr>
<tr><td>&nbsp;</td></tr>
<tr><td align=center><input type="submit" value="Enregistrer" class=envoi2 name=submit></td></tr>
</table>
</form>

</table>

</form>

La page de traitement :

cheminPDF = Server.MapPath("download/") &"\"

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload
For each file In mySmartUpload.Files
   If not file.IsMissing Then
      nom_ext      = file.FileExt   ' extension
      nom_fichier   = file.FileName   ' nom complet
      if lcase(nom_ext)="pdf" then
         ' rec ---------------------------------------------------------
         file.SaveAs cheminPDF & nom_fichier
         mem="":  msg="<b><font color=green>> Votre fichier est correctement enregistré.</font></b>"
      else
         mem="erreur":   msg="<b><font color=red>> Votre fichier n'est pas un .pdf, il n'a pu être enregistré.</font></b>"
      end if
   Else
      mem="erreur":   msg="<b><font color=red>> Fichier manquant, vous avez oublié de sélectionner un PDF.</font></b>"
   End if
Next
Set mySmartUpload = Nothing
response.write(msg)

cheminPDF = Server.MapPath("download/") &"\"

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

mySmartUpload.Upload

For each file In mySmartUpload.Files

If not file.IsMissing Then

nom_ext = file.FileExt ' extension

nom_fichier = file.FileName ' nom complet

if lcase(nom_ext)="pdf" then

' rec ---------------------------------------------------------

file.SaveAs cheminPDF & nom_fichier

mem="": msg="<b><font color=green>> Votre fichier est correctement enregistré.</font></b>"

else

mem="erreur": msg="<b><font color=red>> Votre fichier n'est pas un .pdf, il n'a pu être enregistré.</font></b>"

end if

Else

mem="erreur": msg="<b><font color=red>> Fichier manquant, vous avez oublié de sélectionner un PDF.</font></b>"

End if

Set mySmartUpload = Nothing

response.write(msg)

en admettant bien entendu qu’on stocke les fichiers dans le dossier /download.

MSXML sous IIS7

laurent - responsable Technique 11 février 2015 Comments

Comment utiliser msxml 3 ou 6 en ASP :

<%                
url = "http://www.serveur-windows.com"
set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP.6.0") 
xmlhttp.open "GET", url, false 
xmlhttp.send "" 
Response.write xmlhttp.responseText 
set xmlhttp = nothing 
%>

url = "http://www.serveur-windows.com"

set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP.6.0")

xmlhttp.open "GET", url, false

xmlhttp.send ""

Response.write xmlhttp.responseText

set xmlhttp = nothing

Pour utiliser la 3.0 il faudra donc écrire :

set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP.3.0")

1	set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP.3.0")

URL rewriting via le web.config

laurent - responsable Technique 11 février 201511 février 2015 Comments

Trouvé sur aspfr.com par Vladam, et ça marche du tonnerre, tout est implémenté dans le web.config avec la dll URLRewriter.dll :http://www.aspfr.com/codes/IMPLEMENTER-TRES-FACILEMENT-URLREWRITER-REECRITURE-URL-NET-GENIAL_31527.aspx

1°) Ouvrez votre WEB.CONFIG et ajoutez les éléments suivants :
    - Dans la section <configuration> ajoutez le code ci-dessous 
         <configSections>
      <section name="RewriterConfig" type="URLRewriter.Config.RewriterConfigSerializerSectionHandler, URLRewriter" />
   </configSections>
    - Dans la section <system.web> ajoutez le code ci-dessous
        <httpModules>
      <add type="URLRewriter.ModuleRewriter, URLRewriter" name="ModuleRewriter" />
   </httpModules>
   <httpHandlers>
      <add verb="*" path="*.aspx" type="URLRewriter.RewriterFactoryHandler, URLRewriter" />
   </httpHandlers>
2°) Il ne vous reste plus qu'a définir les Urls que vous souhaitez pour le rewriting
    pour cela, c'est très simple :
    Dans la section <configuration> sous l'élément <configSections> que vous avez déjà ajouté dans l'étape 2, vous ajoutez le nouvelle section ci-dessous :
    <RewriterConfig>
      <Rules>
         <RewriterRule>
            <LookFor>~/cartes_virtuelles_amour\.aspx</LookFor>
            <SendTo>~/themes.aspx?rel=4&amp;title=AMOUR</SendTo>
         </RewriterRule>
      </Rules>
    </RewriterConfig>
    Et vous pouvez répéter l'éléments <RewriterRule> autant de fois que vous avez de page à réécrire.

1°) Ouvrez votre WEB.CONFIG et ajoutez les éléments suivants :

- Dans la section <configuration> ajoutez le code ci-dessous

</configSections>

- Dans la section <system.web> ajoutez le code ci-dessous

</httpModules>

</httpHandlers>

2°) Il ne vous reste plus qu'a définir les Urls que vous souhaitez pour le rewriting

pour cela, c'est très simple :

Dans la section <configuration> sous l'élément <configSections> que vous avez déjà ajouté dans l'étape 2, vous ajoutez le nouvelle section ci-dessous :

<Rules>

<LookFor>~/cartes_virtuelles_amour\.aspx</LookFor>

<SendTo>~/themes.aspx?rel=4&title=AMOUR</SendTo>

</RewriterRule>

</Rules>

</RewriterConfig>

Et vous pouvez répéter l'éléments <RewriterRule> autant de fois que vous avez de page à réécrire.

Actualités, interventions et astuces en hébergement

Programmation

ASPX – programmer web.sitemap et construire son propre menu

MailMessage avec localhost

Convertir decimal en entier pour les paiements sécurisés

IIS Rewrite : SEO rewrite language

Voici comment interpréter une url et la transformer

IIS Rewrite : Redirect 301 au lieu d’erreur 404

Smart Upload, autoriser le téléchargement de gros fichiers

Créer une table ACCESS vide

Smartp Upload, exemple d’utilisation

MSXML sous IIS7

URL rewriting via le web.config