 |
Publicité 
|
Boutons sensitifs - Partie II
Un exemple complet est disponible à http://www.devparadise.com/cgi-bin/ devsrc2.pl?Conf=r&ID=67
Il est possible de nommer une Image comme par ex : <IMG SRC="Bouton10.gif" WIDTH=96 HEIGHT=40 BORDER=0 name="test1">
Et donc en modifiant l'exemple téléchargé comme ceci :
<A HREF="http://www.devparadise.com/devtools/" onmouseover="move_in('test1','bouton9.gif')" onmouseout="move_out('test1','bouton10.gif')">
<IMG SRC="Bouton10.gif" WIDTH=96 HEIGHT=40 BORDER=0 name="test1"></A>
on obtient le même résultat avec moins d'erreurs.
DLL Active X
Nous vous mettons à disposition une DLL active X permettant d'envoyer des mails par SMTP. Cette DLL est gratuite.
Elle est utilisable en ASP, VB, et dans tous les langages utilisants les DLLs Active X.
Nous avons testé cette DLL sous Windows 95, NT, IIS 3 et 4.
Voici un exemple d'utilisation :
<%
Set Mail = Server.CreateObject("ASPToolKit.Mail")
Mail.HostName = "mail.serveur.com" ' Nom du serveur smtp ou son adresse IP (string)
Mail.From = "moi@serveur.com" ' Adresse Email de l'expéditeur (string)
Mail.FromName = "moi" ' Nom de l'expéditeur (optionnel) (string)
Mail.MailTo = "receveur@serveur.com" ' Adresse Email du receveur (string)
Mail.MailToName = "receveur" ' Nom du receveur (optionnel) (string)
Mail.ReplyTo = "retour@serveur.com" ' Adresse Email de retour (optionnel) (string)
Mail.ReplyToName = "retour" ' Nom du retour (optionnel) (string)
Mail.Subject = "test dll activex" ' Sujet (string)
Mail.message = "Ceci est le test du message" ' Message (string)
Mail.MessageID = "" ' ID du message (optionnel) (string)
Mail.LogFile = True ' Pour tester l'envoi de message enregistre dans un fichier log si True à mettre à False une fois les tests terminés (boolean)
if Mail.SendEmail() = 0 Then ' retour en Integer 0 pour Ok sinon un numéro d'erreur
else
' Problème lors de l'envoi du message
end if
%>
reverse IP
<%
Set IP = Server.CreateObject("ASPToolKit.IP")
HostName = IP.Reverse(Request.ServerVariables ("REMOTE_ADDR"))
if HostName=Request.ServerVariables ("REMOTE_ADDR") then
end if
%>
Téléchargement : http://www.devparadise.com/cgi-bin/ devsrc2.pl?Conf=r&ID=71
|
