Thumb Bild mit ASP.net erzeugen

in /von

Mit ASP.net ist es relativ einfach ein Thumb Bild zu erzeugen. ASP.net stellt dafür die Klasse „Graphics“ zur Verfügung.

Dim thumb As New Bitmap(width, height)
 Dim g As Graphics = Graphics.FromImage(thumb)

g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic

g.DrawImage(bm, New Rectangle(destX, destY, width, height), New Rectangle(0, 0, bm.Width, bm.Height), GraphicsUnit.Pixel)

g.Dispose()

thumb.Save(strDestinationpfad, System.Drawing.Imaging.ImageFormat.Jpeg)

Download Beispielscript

imageresize.aspx

E-Mail mit Authentifizierung mit ASP CDO versenden

in /von

Beispielscript für das versenden von E-Mails mittels ASP.

<%

Const cdoSendUsingPickup = 1 'E-Mail mithilfe des SMTP Pickup Verzeichnis versenden .
Const cdoSendUsingPort = 2 'E-Mail mithilfe des Netwerkes versenden. (SMTP over the network).

Const cdoAnonymous = 0 'keine Authentifizierung
Const cdoBasic = 1 'Klartext Authentifizierung
Const cdoNTLM = 2 'NTLM

Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = "Example CDO Message" 
objMessage.From = """DeinNmae"" <ww@yy.com>" 
objMessage.To = "dietmar@harb.at" 
objMessage.TextBody = "Beispieltext" & vbCRLF & "SMTP Authentifizierung."

'== Nachfolgende Sektion dient zum Konfigurieren des Remote SMTP Servers.

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "domainname"

'Authentifizierungsmethode, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

'UserID des SMTP Servers, meist die E-Mailadresse
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "ww@yy"

'Passwort des SMTP Servers
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "+++++"

'Server Port (normalerweise 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 

'SSL verwenden? (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

'Connection Timeout in Sekunden 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objMessage.Configuration.Fields.Update

'==End Konfiguration SMTP Server==

objMessage.Send

%>