emailsb.aspx

来自「用VB实现」· ASPX 代码 · 共 77 行

ASPX
77 行
字号 
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<script runat ="server">
    
    Sub SendMail()
        Dim strTo As String = ToBox.Text  
        Dim strFrom As String = FromBox.Text
        Dim strSubject As String =SubjectBox.Text  
        Dim strBody As String =BodyBox.Text		
	   
	    System.Web.Mail.SmtpMail.SmtpServer ="127.0.0.1"
        System.Web.Mail.SmtpMail.Send(strFrom, strTo, strSubject, strBody)			
        Response.Redirect("mailSucess.aspx") 
      End Sub
</script>
<script runat ="server">
 Sub btnMail_Click(sender As Object, e As System.EventArgs)         
        SendMail()
  End Sub
</script>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>电子邮件服务器行为</title>
</head>
<body>
<form runat="server">
  <div align="center">
    <table width="616" border="0">
      <tr>
        <td colspan="2"><div align="center" class="style1">在线发送邮件
            <hr>
        </div></td>
      </tr>
      <tr>
        <td align="right" ><div align="right">发件人</div></td>
        <td width="513">
          <div align="left">
            <asp:TextBox ID="FromBox" runat="server" />              
        </div></td>
      </tr>
      <tr>
        <td align="right"><div align="right">收件人</div></td>
        <td><div align="left">
          <asp:TextBox ID="ToBox" runat="server" />        
        </div></td>
      </tr>
      <tr>
        <td colspan="2" align="right"><hr align="left"></td>
      </tr>
      <tr>
        <td align="right"><div align="right">主题</div></td>
        <td><div align="left">
          <asp:TextBox ID="SubjectBox" runat="server" />        
        </div></td>
      </tr>
      <tr>
        <td align="right" valign="top"><div align="right">内容</div></td>
        <td><div align="left">
          <asp:TextBox ID="BodyBox" runat="server" Columns="50" TextMode="MultiLine" Rows="10" />        
        </div></td>
      </tr>
      <tr>
        <td height="23">&nbsp;</td>
        <td align="left" valign="middle"><asp:Button ID="btnMail" runat="server" Text="发送邮件" OnClick="btnMail_Click" />
          <asp:Label ID="lblMessage" runat="server" />          </td>
      </tr>
      <tr align="center">
        <td colspan="2"><div align="center"></div></td>
      </tr>
    </table>
  </div>
</form>
</body>
</html>

emailsb.aspx - 源码说明

本页面展示了「用VB实现」中的 emailsb.aspx 源码文件，采用 ASPX 编程语言编写，共 77 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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