极光下载站 - 打造齐全的绿色软件家园

极光下载站

当前位置: 首页 技术开发 NET专区 .net beta2 操作email的例子(转)

.net beta2 操作email的例子(转)

时间:2006/7/19 5:52:53 作者:佚名 人气:136

<%@ Page Language="VB" ClientTarget="downlevel" %>
<%@ Import Namespace="System.Web.Mail" %>

<script language="VB" runat="server">
Sub btnSendMail_OnClick(Source As Object, E As EventArgs)
Dim myMessage As New MailMessage
Dim myMailAs New SmtpMail
Dim strEmailAs String

If Page.IsValid() Then
strEmail = txtEmail.Text

myMessage.From = "webmaster@" & Request.ServerVariables("SERVER_NAME")
myMessage.To = strEmail
myMessage.Subject = "E-mail Sample from ASP 101!"
myMessage.Body = "This message was sent from sample code by " & _
"http://www.asp101.com.It is used to show people how " & _
"to send e-mail from an ASP+ page.This mail was sent " & _
"from " & Request.ServerVariables("SERVER_NAME") & "." & _
vbCrLf & vbCrLf & _
"This email was sent to " & strEmail & "."

myMail.Send(myMessage)

frmEmail.Visible = False
lblUserMessage.Text = "Your message has been sent to " & strEmail & "."
End If
End Sub
</script>

<html>
<head>
<title>ASP+ Email Sample</title>
</head>
<body>

<asp:Label id="lblUserMessage" text="Enter your e-mail address:" runat="server" />
<form method="post" id="frmEmail" runat="server">
<asp:TextBox id="txtEmail" size="30" runat="server" />
<asp:RequiredFieldValidator runat="server"
id="validEmailRequired" ControlToValidate="txtEmail"
errormessage="Please enter an email address."
display="Dynamic" />
<asp:RegularExpressionValidator runat="server"
id="validEmailRegExp" ControlToValidate="txtEmail"
ValidationExpression="^[\w-]+@[\w-]+\.(com|net|org|edu|mil)$"
errormessage="Please enter a valid email address."
Display="Dynamic" />

<asp:Button id="btnSendMail" text="Send Mail!" OnClick="btnSendMail_OnClick" runat="server" />
</form>

</body>
</html>
-------------------------------------------
come from asp101.com
<
标签
分享到:

公众号