Section courante

A propos

Section administrative du site

En ASP, lorsqu'on reçoit des courriels et qu'on souhaite les lires, il y a très peut de support permettant l'interprétation. Ainsi, il n'existe même pas de fonction permettant la conversion des caractères ISO 8859 à ANSI, lequel est pourtant très répandu sur le Web. Preuve sans nulle doute, que l'ASP 3.0 bien que très répandu n'est pas un produit terminé.

Voici maintenant le code source ASP permet de convertir un caractère ISO 8859 en format ANSI:

  1. <%
  2. Function ISO8859ToAnsi(sText)
  3.      sText = Replace(sText,"=" & vbCRLF,"")
  4.      sText = Replace(sText,"=" & Chr(13),vbCRLF)
  5.      sText = Replace(sText,"=" & Chr(10),vbCRLF)
  6.      sText = Replace(sText,"=09"," ")
  7.      sText = Replace(sText,"=20"," ")
  8.      sText = Replace(sText,"=21","!")
  9.      sText = Replace(sText,"=28","(")
  10.      sText = Replace(sText,"=29",")")
  11.      sText = Replace(sText,"=2E",".")
  12.      sText = Replace(sText,"=3A",":")
  13.      sText = Replace(sText,"=3D","=")
  14.      sText = Replace(sText,"=92","'")
  15.      sText = Replace(sText,"=A0"," ")
  16.      sText = Replace(sText,"=AB","«")
  17.      sText = Replace(sText,"=AE","®")
  18.      sText = Replace(sText,"=BB","»")
  19.      sText = Replace(sText,"=C0","À")
  20.      sText = Replace(sText,"=C7","Ç")
  21.      sText = Replace(sText,"=C9","É")
  22.      sText = Replace(sText,"=CA","Ê")
  23.      sText = Replace(sText,"=CB","Ë")
  24.      sText = Replace(sText,"=CE","Î")
  25.      sText = Replace(sText,"=D4","Ô")
  26.      sText = Replace(sText,"=D6","Ö")
  27.      sText = Replace(sText,"=DB","Û")
  28.      sText = Replace(sText,"=E0","à")
  29.      sText = Replace(sText,"=E2","â")
  30.      sText = Replace(sText,"=E7","ç")
  31.      sText = Replace(sText,"=E8","è")
  32.      sText = Replace(sText,"=E9","é")
  33.      sText = Replace(sText,"=EA","ê")
  34.      sText = Replace(sText,"=EB","ë")
  35.      sText = Replace(sText,"=EE","î")
  36.      sText = Replace(sText,"=F4","ô")
  37.      sText = Replace(sText,"=F6","ö")
  38.      sText = Replace(sText,"=FB","û")
  39.      ISO8859ToAnsi = sText
  40. End Function
  41. %>


Dernière mise à jour : Mercredi, le 20 août 2014