sendimage.aspx

asp.net技术内幕的书配源码

<%@ Import Namespace="System.Web.Mail" %>
<%@ Import Namespace="System.IO" %>
<%
Dim objMailMessage As MailMessage
Dim swHTMLBody As StringWriter
Dim twTextWriter As HtmlTextWriter

swHTMLBody = New StringWriter
twTextWriter = New HtmlTextWriter( swHTMLBody )

twTextWriter.RenderBeginTag( "html" )
twTextWriter.RenderBeginTag( "head" )
twTextWriter.RenderBeginTag( "title" )
twTextWriter.Write( "Thank You!" )
twTextWriter.RenderEndTag
twTextWriter.RenderEndTag
twTextWriter.AddAttribute( "bgcolor", "lightblue" )
twTextWriter.RenderBeginTag( "body" )
twTextWriter.AddAttribute( "src", "aspnet.gif" )
twTextWriter.RenderBeginTag( "img" )
twTextWriter.RenderEndTag
twTextWriter.RenderEndTag
twTextWriter.RenderEndTag

' Create the Mail Message
objMailMessage = New MailMessage
objMailMessage.From = "[e-mail]"
objMailMessage.To = "[e-mail]"
objMailMessage.Subject = "Here's the image!"
objMailMessage.Body = swHTMLBody.ToString
objMailMessage.BodyFormat = MailFormat.HTML
objMailMessage.UrlContentLocation = "http://www.yourdomain.com/"

' Send the Mail Message
SmtpMail.Send( objMailMessage )
%>
Image Sent!