來源:http://www.aspfree.com/asp+/demos/emailhtml1.aspx
html1.htm
---------------------------------------------------------------------
<html>
<head>
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<form method="post" name="frmEmail" action="email.aspx" >
發送郵件給:<input type="text" name="mailto" size="30" value="someone@chinaasp.com"><br><br>
<input type="submit" value="ASP+ 郵件發送" name="cmdSubmit">
</form>
</body>
</html>
emal.aspx
---------------------------------------------------------------------
<%@ Import Namespace="System.Web.Util" %>
<script language="VB" runat=server ID=Script1>
Sub Page_load(Sender as Object, E as EventArgs)
Dim MyMail as New MailMessage
MyMail.To = request.form("mailto")
MyMail.From = "webmaster"
MyMail.Subject = "webmaster給您發了一封電子郵件"
MyMail.BodyFormat = MailFormat.Html
MyMail.Body = "<html><body><h1><a href='http://www.chinaasp.com'>ChinaASP.com</a> 使用ASP+程式給你發了一封EMail! Hohoho!</h1></body></html>"
SmtpMail.Send(MyMail)
End Sub
</script>
<html>
<head>
<title>ASP+郵件發送</title>
