emailpage.aspx

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

ASPX
101 行
字号 
<%@ Page Language="VB" ContentType="text/html"  %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<script runat ="server">
    
    Sub btnMail_Click(sender As Object, e As System.EventArgs) 
        If CheckFields() = False Then Exit Sub
        SendMail()
    End Sub

    Sub SendMail()
        Dim strTo As String = ToBox.Text
        Dim strFrom As String = FromBox.Text
        Dim strSubject As String = Subject.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

    Function CheckFields() As Boolean

        Dim strBlankMessage As String = ""

        If Not FromBox.Text.Length > 0 Then strBlankMessage = "发件人 "
        If Not ToBox.Text.Length > 0 Then strBlankMessage = strBlankMessage + "收件人 "
        If Not Subject.Text.Length > 0 Then strBlankMessage = strBlankMessage + "主题 "

        If strBlankMessage.Length > 0 Then
           lblMessage.Text = "内容" + strBlankMessage + " 必需输入!!"
           CheckFields = False
        Else
           CheckFields = True
        End If

    End Function
</script>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>发送电子邮件</title>
<style type="text/css">
<!--
.style1 {
	font-size: xx-large;
	font-weight: bold;
}
-->
</style>
</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="Subject" 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>

emailpage.aspx - 源码说明

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

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

⌨️ 快捷键说明

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