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

來源:互聯網
上載者:User
<%@ 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

相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。