IIS6, ISAPI rewrite

laurent - responsable Technique 11 février 201527 mai 2015 Comments

301 avec et sans www

Exemple en excluant les stats awstats et tout le dossier admin

RewriteEngine on
RewriteCond %{HTTP_HOST} ^domaine\.ext$ [NC] 
RewriteCond $1 !^(awstats\.pl|admin)
RewriteRule (.*) http://www.domaine.ext/$1 [NC,R=301,L]

RewriteEngine on

RewriteCond %{HTTP_HOST} ^domaine\.ext$ [NC]

RewriteCond $1 !^(awstats\.pl|admin)

RewriteRule (.*) http://www.domaine.ext/$1 [NC,R=301,L]

Ou pour exclure un dossier

RewriteRule ^(cgi-bin/.+) $1 [NC,L]

1	RewriteRule ^(cgi-bin/.+) $1 [NC,L]

Exemple avec des liens incluant des ?

RewriteEngine on
RewriteCond %{HTTP_HOST} ^jcpoiret.rd-corsica.net$ [NC]
RewriteRule ^(.*) http://www.jcpoiret.com%{REQUEST_URI}  [NC,R=301,L]

RewriteEngine on

RewriteCond %{HTTP_HOST} ^jcpoiret.rd-corsica.net$ [NC]

RewriteRule ^(.*) http://www.jcpoiret.com%{REQUEST_URI} [NC,R=301,L]

Changement de dossier

#redirecting to another URL
RewriteRule ^dossier1/(.*)$ http://www.domaine.com/dossier2/$1 [L,R=301]

1 2	#redirecting to another URL RewriteRule ^dossier1/(.*)$ http://www.domaine.com/dossier2/$1 [L,R=301]

Besoin d’autoriser la redirection seulement si une extension existe :

RewriteRule .*.html - [L] 
RewriteRule .*.asp - [L]

1 2	RewriteRule ..html - [L] RewriteRule ..asp - [L]

Forcer le HTTPS

RewriteEngine On
RewriteCond %{SERVER_PORT} !^443$
RewriteRule ^(.*) https://votre_domaine/$1

RewriteEngine On

RewriteCond %{SERVER_PORT} !^443$

RewriteRule ^(.*) https://votre_domaine/$1

Cherche un mot

<rule name="Dacia" enabled="true" stopProcessing="true">
<match url="^modeles\.php$" ignoreCase="true" />
<conditions logicalGrouping="MatchAll" trackAllCaptures="false">
   <add input="{QUERY_STRING}" pattern="marq=Dacia" />
</conditions>
 <action type="Redirect" url="index.php/autres/dacia" appendQueryString="false" redirectType="Permanent" />
</rule>

</conditions>

</rule>

Cherche un mot générique

<rule name="Query String Rewrite" stopProcessing="true">
<match url="^modeles\.php$" ignoreCase="true" />
<conditions logicalGrouping="MatchAll" trackAllCaptures="false">
   <add input="{QUERY_STRING}" pattern="marq=([^=&amp;]+)$" />
</conditions>
<action type="Redirect" url="index.php/{C:1}" appendQueryString="false" redirectType="Permanent" />
</rule>

</conditions>

</rule>

Pour tester le type de redirection, une seule adresse :
http://www.annuaire-info.com/outil-referencement/test-redirection/

Plus d’infos sur le rewriting et rès bien écrit au demeurant :
http://www.annuaire-info.com/lien-dur-lien-mou/

IIS6 WAMUserName

laurent - responsable Technique 11 février 2015 Comments

A la réinjection d’un backup ou changement de nom d’un serveur IIS, l’IWAm d’origine apparaît toujours. Pour ce, supprimez toutes les applications, arrêtez IIS puis dans : c\InetPub\AdminScripts\ lancez la commande suivante :

cscript adsutil.vbs SET W3SVC/WAMUserName IWAM_MachineName

1	cscript adsutil.vbs SET W3SVC/WAMUserName IWAM_MachineName

Si il revient, pensez à supprimer toutes les applications puis relancez l’opération.

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.

SPF

laurent - responsable Technique 11 février 2015 Comments

Vos emails sont hébergés un autre serveur que celui qui expédie vos emails et vous ne passez pas le barrage du SPF ou du Hello, aucun souci dans la zone DNS on va juste rajouter un ch’tit commentaire :

v=spf1 ip4:IP_officiel_serveur_de_mail a:IP_ou_Domaine_du_serveur_de_relais -all

1	v=spf1 ip4:IP_officiel_serveur_de_mail a:IP_ou_Domaine_du_serveur_de_relais -all

Et voilà le travail.

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.

Un tableau sans champ vide après un split

laurent - responsable Technique 11 février 201513 avril 2016 Comments

Une astuce toute simple qui permet de spliter un tableau sans plus se soucier d’un champ vide.

tabTemp = tabIp.Split(new string[] { "," }, StringSplitOptions.RemoveEmptyEntries);

1	tabTemp = tabIp.Split(new string[] { "," }, StringSplitOptions.RemoveEmptyEntries);

Erreur 404

laurent - responsable Technique 11 février 2015 Comments

IIS gère les erreurs 404 pour les pages asp,htm et php mais pas pour les pages en aspx qui sont gérées par le web.config, donc il faudra rajouter dans le web.config :

<configuration>
    <system.web>
        <customErrors mode="On" >
            <error statusCode="404" redirect="404.aspx" />
        </customErrors>

<system.web>

</customErrors>

en admettant que votre page d’erreur est 404.aspx bien entendu

Actualités, interventions et astuces en hébergement