SimageUtil : Changer la taille d une image en ASP

Voici, simplifié, le code ASP qui permet de retailler une image en ASP :

  Set myImage = Server.CreateObject("SImageUtil.Image")
  myImage.OpenImageFile("/repertoire/"&rs("image")&")")
  myImage.ChangeSize 100,70
  myImage.SaveJpgFile "repertoire1/"&nom_image&".jpg", 75
  myImage.Close()


Uploader en asp sans composant.

Upload de fichiers sur serveur sans besoin de composant serveur.

Code ...


Publicité




ABCPDF :Generer des fichiers PDF par ASP a la volee

Voici un exemple de fonctionnement :

Set theDoc = Server.CreateObject("ABCpdf3.Doc")
theDoc.FontSize = 96
theDoc.AddText "bonjour"
theDoc.Save "c:\mypdfs\simple.pdf"


Set theDoc = Server.CreateObject("ABCpdf3.Doc")
theDoc.AddGrid
theDoc.Color = "255 0 0"
theDoc.Width = 10
theDoc.Rect.Position 100, 200
theDoc.Rect.Width = 400
theDoc.Rect.Height = 500
theDoc.FrameRect
theDoc.Save "c:\mypdfs\coordinates.pdf"


Comment envoyer un mail grace a Cdonts ?

Voici le code source de l'envoi :

Dim MAILCDO
Set MAILCDO = Server.CreateObject("CDONTS.NewMail")
MAILCDO.To = "info@votredomaine.com"
MAILCDO.From = "info@votredomaine.com"
MAILCDO.Subject = "Sujet"
MAILCDO.Body = "CorpsDuTexte"
MAILCDO.Importance = 1
MAILCDO.BodyFormat=0
MAILCDO.MailFormat=0
MAILCDO.Send
set MAILCDO=Nothing


Telechargement de ASPUPLOAD

Vous pouvez telecharger ASPUPLOAD ici

Comment contourner la limitation de taille des fichiers uploads avec AspSmartUpload ?

On peut soit passer par un parametre de la fonction dans le code ASP : MaxFileSize =
Soit modifier la base registre dans
HKEY_LOCAL_MACHINE\SOFTWARE\Advantys\aspSmartUpload\MaxFileSize

La valeur sera exprimée en ko



website counter