.net beta2 操作email的例子（转）-普克计算机教程

<%@ 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 myMail    As New SmtpMail
        Dim strEmail  As 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


	当前位置：普克>>计算机教程>>.net>>E-mail专题>>.net beta2 操作email的