Première chose dans mysql workbench installer le Connector/ODBC 32 bits (x86) pour ASP Classic.
Ensuite remplacer
DRIVER={MySQL ODBC 5.1 Driver}
par
DRIVER={MySQL ODBC 5.3 ANSI Driver}
Plus d’infos sur :
https://wiki.locaweb.com.br/pt-br/Como_conectar_a_um_banco_MySQL_atrav%C3%A9s_de_script_ASP
La valeur est définie par AspMaxRequestEntityAllowed dans la metabase de IIS, elle est de base fixée à 200 000.
– 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.
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.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 |
<%@ 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 %> |
PS : Vous noterez deux petites fonctions capables de déterminer si l’année est bissextile et le nombre de jours dans un mois.
Un petit exemple simple d’utilisation de smart upload :
|
1 2 3 4 5 6 7 |
<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> </td></tr> <tr><td align=center><input type="submit" value="Enregistrer" class=envoi2 name=submit></td></tr> </table> </form> |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
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) |
Comment utiliser msxml 3 ou 6 en ASP :
|
1 2 3 4 5 6 7 8 |
<% 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 :
|
1 |
set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP.3.0") |
Un grand merci au concepteur de http://www.sepa-convertir.eu qui nous livre ses recherches sur l’objet CDO.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 |
<% 'Format HTML Texte = "TOTO TITI TATA" 'Format non html Msg = "TOTO TITI TATA" & vbcrlf '============================= 'For the priority '============================ Const cdoPriorityNonUrgent= -1 ' Nonurgent priority Const cdoPriorityNormal= 0 ' Normal priority Const cdoPriorityUrgent= 1 'Urgent priority '=============================== 'For the importance of the mail '=============================== Const cdoLow= 0 ' Low importance Const cdoNormal= 1 ' Normal importance Const cdoHigh= 2 ' High importance '==================================== 'For the sensitivity of the mail '================================= Const cdoSensitivityNone= 0 ' None Const cdoPersonal = 1 ' Personal Const cdoPrivate = 2 ' Private Const cdoCompanyConfidential = 3 ' Company Confidential Const CdoReferenceTypeName = 1 '================================================ ' Beginning of paramters '================================================ ToAddress = "toto@toto.fr" ' destinataire de l'email ---Obligatoire Subject = "SEPA-CONVERTIR.EU : Renseignements" ' Objet de l' email '============================= SmtpServer = "smtp.toto.fr" 'adresse du serveur smtp -- Obligatoire Password = "titi" 'Mot de passe de votre compte email FromName= " Jean DURAND" ' Nom de la personne qui envoie l'email FromAdress = "toto@toto.fr" ' addresse de l'expéditeur '======================= CcAddress = "" ' addresse pour carbon copy - laisser à blanc si pas necessaire BccAddress = "" ' addresse pour block carbon copy - laisser à blanc si pas necessaire Username = "toto@toto.fr" ' adresse du compte mail depuis lequel le courriel est envoyé Obligatoire ' port utilise pour envoyer le mail ex 25 pour un provider normal ou 465 pour gmail IPPort = 25 ' si ssl IPPort = 465 ssl = 0 '0 si vous n'utilisez pas ssl ou 1 si vous utilisez ssl ex pour gmail AttachFiles= "" 'liste des fichiers attaches que vous souhaitez envoyer (chemin physique de chaque fichier + nom + separe par des ;" replyto = FromAdress 'adresse email souhaitée pour la réponse au mail dispositionnotificationTo = FromAdress 'adresse souhaitée pour l'accusé de réception ReturnreceiptTo=FromAdress ' email si vous souhaitez avoir l'accusé de réception Importance = cdoHigh 'Haute importance; Priotité d'envoi du message : "High=2", "Normal"=1, "Low=0" Priorite = cdoPriorityUrgent 'Priorité urgente sensitivity = cdoCompanyConfidential ' degré de confidentialité transfert = 0 ' 0 Ne pas transférer 1 Transfert libre '======================================================= ' End of paramters '====================================================== Set objemail = CreateObject("CDO.Message") If IsObject(objemail) then objeMail.BodyPart.charset = "utf-8" Set iConf = CreateObject("CDO.Configuration") objemail.Configuration= iconf objemail.MimeFormatted= True objemail.to= ToAddress objEmail.From = Chr(34) &FromName & Chr(34)&"<" & FromAdress& ">" objemail.Subject= Subject 'Pour le texte en HTML objemail.HTMLBody= Texte 'Si le mailer n'est pas HTML objemail.TextBody = Msg objemail.replyTo= replyto If CcAddress <> "" Then objemail.Cc = CcAddress End If If BccAddress <> "" then objemail.Bcc = BccAddress End If objemail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")= 2 objemail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")= SmtpServer If IPPort = 0 then IPPort = 25 End If objemail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= IPPort 'Authenticated SMTP If Username <> "" then objemail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")= 1 objemail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")= Username objemail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")= Password End If If ssl then objemail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl")= 2 End If 'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server) objemail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")= 60 objeMail.Configuration.Fields.Update '================== ' sensitivity '================ Select case sensitivity Case cdoCompanyConfidential objemail.Fields.Item("urn:schemas:mailheader:Sensitivity") = "Company-Confidential" Case cdoPersonal objemail.Fields.Item("urn:schemas:mailheader:Sensitivity") = "Private" Case cdoPrivate objemail.Fields.Item("urn:schemas:mailheader:Sensitivity") = "Personal" Case cdoSensitivityNone objemail.Fields.Item("urn:schemas:mailheader:Sensitivity") = "None" End Select Select case transfert Case 0 objemail.Fields.Item("urn:schemas:mailheader:X-Message-Flag") = "Ne pas Transferer" Case 1 oobjemail.Fields.Item("urn:schemas:mailheader:X-Message-Flag") = "Transfert Libre" End Select objemail.Configuration.Fields.Update Select case Priorite Case cdoPriorityUrgent objemail.Fields("urn:schemas:mailheader:X-MSMail-Priority") = "High" objemail.Fields("urn:schemas:mailheader:X-Priority") = CStr(cdoPriorityUrgent) objemail.Fields("Fields('urn:schemas:mailheader:priority") = CStr(cdoPriorityUrgent) Case cdoPriorityNormal objemail.Fields("urn:schemas:mailheader:X-MSMail-Priority") = "Normal" objemail.Fields("urn:schemas:mailheader:X-Priority") = CStr(cdoPriorityNormal) objemail.Fields("Fields('urn:schemas:mailheader:priority") = CStr(cdoPriorityNormal) Case cdoPriorityNonUrgent objemail.Fields("urn:schemas:mailheader:X-MSMail-Priority") = "Low" objemail.Fields("urn:schemas:mailheader:X-Priority") = CStr(cdoPriorityNonUrgent) objemail.Fields("urn:schemas:mailheader:priority") = CStr(cdoPriorityNonUrgent) End Select Select case Importance Case cdoHigh objemail.Fields.Item("urn:schemas:httpmail:importance") = cdoHigh Case cdoNormal objemail.Fields.Item("urn:schemas:httpmail:importance") = cdoNormal Case cdoLow objemail.Fields.Item("urn:schemas:httpmail:importance") = cdoLow End Select If dispositionnotificationTo <> "" then objemail.Fields("urn:schemas:mailheader:disposition-notification-to")= dispositionnotificationTo end if If ReturnreceiptTo <> "" then objemail.Fields("urn:schemas:mailheader:return-receipt-to")= ReturnreceiptTo end if If dispositionnotificationTo <> "" or ReturnreceiptTo <> "" then 'Update settings objemail.Fields.Update end if 'Déclaration des "inline attachments" Permet d'inclure des images dans le corps du mail Path = Server.MapPath("/image/") Set objbodypart = objemail.AddRelatedBodyPart( Path& "\fond.gif" ,"fond.gif",CdoReferenceTypeName) objbodypart.Fields("urn:schemas:mailheader:Content-ID") = "<fond.gif>" objbodypart.Fields.Item("urn:schemas:mailheader:Content-Disposition") = "inline" objbodypart.Fields.Update Set objbodypart1 = objemail.AddRelatedBodyPart(Server.MapPath("/image/logo.gif") ,"logo.gif",CdoReferenceTypeName) objbodypart1.Fields("urn:schemas:mailheader:Content-ID") = "<logo.gif>" objbodypart1.Fields.Item("urn:schemas:mailheader:Content-Disposition") = "inline" objbodypart1.Fields.Update Set objbodypart2 = objemail.AddRelatedBodyPart(Server.MapPath("/image/toto.vcf") ,"sepa.vcf",CdoReferenceTypeName) objbodypart2.Fields("urn:schemas:mailheader:Content-ID") = "<toto.vcf>" objbodypart2.Fields.Item("urn:schemas:mailheader:Content-Disposition") = "inline" objbodypart2.Fields.Update ' Sending attach files If AttachFiles <> "" then Resultat= Split(AttachFiles, ";") for each x in resultat objemail.AddAttachment (x) Next End If 'objEmail.DSNOptions = 14 objemail.Send Set iconf=nothing Set objbodypart= Nothing set objbodypart1=Nothing set objbodypart2=Nothing set objemail= Nothing Else Response.write "Sorry - Erreur de creation de l'objet" End if %> |
Sous iis7 et 8 (2008 serveur et +) il faut utiliser CDO.message :
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
<% Set myMail=CreateObject("CDO.Message") myMail.Subject="Test email with CDO" myMail.From="votre_email" myMail.To="email_destinataire" myMail.TextBody="This is a message." myMail.HtmlBody="<p>This is a message.</p>" ' méthode pour envoyer de notre serveur de relais ou de celui de votre choix myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 ' myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="mail.rd-andorre.net" myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 ' ---------------------- ' méthode la plus judicieuse, si serveur de relais down on ne perd pas les envois, ça reste stocké jusqu'à ce que le serveur de relais soit de nouveau opérationnel myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=1 myMail.Configuration.Fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup" ' ---------------------- myMail.Configuration.Fields.Update myMail.Send set myMail=nothing %> |
» Quelques fonctions utiles sous CDO :
|
1 2 3 4 5 6 |
<% myMail.CC = "email1@email.com" ' liste des destinataires en CarbonCopy myMail.BCC = "email1@email.com" ' liste des destinataires en BlindCarbonCopy myMail.ReplyTo = "email@email.com" ' adresse de réponse si différente de l'expéditeur myMail.AddAttachement("C://chemin/fichier") ' envoyer un fichier joint %> |
|
1 2 3 4 5 6 |
<% ' SMTP authentication myMail.Configuration.Fields.Item( ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication myMail.Configuration.Fields.Item( ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="postmaster@mydomain.com" myMail.Configuration.Fields.Item( ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="password" %> |
Sous 2000 serveur, utilisez CDONTS (obsolète) :
|
1 2 3 4 5 6 7 8 9 |
<% Dim CD: set CD = server.CreateObject("CDONTS.NewMail") CD.From = "expediteur_mail" CD.To = "recipient" CD.Subject = "exp_sujet" CD.Body = "texte" CD.Send Set CD = nothing %> |
» Quelques fonctions utiles sous CDONTS :
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
<% CD.Importance = 0 ' importance : 0 = normal, 1 = urgent, 2 = tres urgent ' CD.AttachFile "\\repertoire\fichier.jpg","fichier.jpg" ' le chemin du fichier qui sera attache (chemin absolu, nom du fichier) ' CD.Cc = "email1@email.com, email2@email.com" ' liste des destinataires en CarbonCopy, separes par une virgule ' CD.BCc = "email1@email.com, email2@email.com" ' liste des destinataires en BlindCarbonCopy (Copie cachee invisible), separes par une virgule ' CD.BodyFormat = 0 CD.MailFormat = 0 ' Pour envoyer un mail au format HTML, ajouter les 2 lignes precedentes. ' ' Pour laisser le mail en format PlainText, mettez des 1 pour ces 2 lignes ' %> |