mail1.aspx

来自「《精通ASP.NET网络编程》附带实例」· ASPX 代码 · 共 49 行

ASPX
49 行
字号 
<%@Import Namespace="System.Web.Mail" %> 
<Html>
<Body BgColor="White">
<Form runat="server">
<Table Border=1>
  <Tr>
   <Td>收件人：</Td>
   <Td><Input Type="Text" id="mailTo" Size=40 runat="server"/></Td></Tr>
  <Tr>
   <Td>发送人：</Td>
   <Td><Input Type="Text" id="mailFrom" Size=40 runat="server"/></Td></Tr>
  <Tr>
   <Td>标题：</Td>
   <Td><Input Type="Text" id="mailSubject" Size=40 runat="server"/></Td></Tr>
  <Tr>
   <Td>内容：</Td>
   <Td><TextArea id="mailBody" Rows=8 Cols=60 runat="server"></TextArea><br>
       <Asp:RadioButtonList id="Format" runat="server"
       RepeatDirection="Horizontal" RepeatColumns="2">
       <asp:ListItem Selected>Html格式</asp:ListItem>
       <asp:ListItem>纯文字格式</asp:ListItem>
       </Asp:RadioButtonList>
   </Td>
  </Tr>
</Table>
<Input Type="Button" Value="发送" id="Button1"
       OnServerClick="Button1_Click" runat="server"/>
</Form>
<Hr>
<asp:Label id="Label1" runat="server"/>
</Body>
</Html>
<script Language="VB" runat="server">
   Sub Button1_Click(sender As Object, e As EventArgs) 
      Dim mail As MailMessage = New MailMessage
      mail.To         = mailTo.Value
      mail.From       = mailFrom.Value
      mail.Subject    = mailSubject.Value
      If Format.SelectedItem.Text = "纯文字格式" Then
         mail.BodyFormat = MailFormat.Text 
      Else
         mail.BodyFormat = MailFormat.Html
      End If
      mail.Body       = mailBody.Value
      SmtpMail.Send(mail) 
      Label1.Text = "信件已经成功发送出!"
   End Sub
</script>

mail1.aspx - 源码说明

本页面展示了「《精通ASP.NET网络编程》附带实例」中的 mail1.aspx 源码文件，采用 ASPX 编程语言编写，共 49 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP.NET相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?